STRING PROCESSING SUMMARY FOR VB PROJECT Visdata.vbp
Made on Tuesday, Apr 8, 2003 at 9:43 AM
(No Resource File) had no strings moved to the resource file.
(No Resource File) has no strings strings remaining in source code.
(No Master Res) had no strings moved to the resource file.
(No Master Res) has no strings strings remaining in source code.
ABOUTBOX.FRM had 11 strings moved to the resource file.
FORMCAPTION = "About Visual Data Manager"
LABEL0 = "Microsoft Visual Basic"
Label1 = "Visual Data Manager"
Label2 = "Version 6.0"
LABEL3 = "Copyright © Microsoft Corp. 1996-98"
Me.Caption = "About Visual Data Manager"
cmdOK.Caption = "&OK"
lblLabels(3).Caption = "Copyright © Microsoft Corp. 1996-98"
lblLabels(2).Caption = "Version 6.0"
lblLabels(1).Caption = "Visual Data Manager"
lblLabels(0).Caption = "Microsoft Visual Basic"
ABOUTBOX.FRM has 1 string strings remaining in source code.
BUTTON1 = "&OK"
ADDFIELD.FRM had 24 strings moved to the resource file.
cboFieldType.AddItem "Boolean"
cboFieldType.AddItem "Text"
cboFieldType.AddItem "Binary"
cboFieldType.AddItem "Memo"
MsgBox "'" fld.Name & "'" & MSG1
MsgBox "'" & fld.Name & "'" MSG1
FORMCAPTION = "Add Field"
BUTTON2 = "&Close"
MSG1 = " Already exists!"
Me.Caption = "Add Field"
optVariable.Caption = "VariableField"
optFixedField.Caption = "FixedField"
chkAutoInc.Caption = "AutoIncrField"
chkAllowZeroLen.Caption = "AllowZeroLength"
chkRequired.Caption = "Required"
cmdOK.Caption = "&OK"
cmdClose.Caption = "&Close"
lblLabels(0).Caption = " Name: "
lblLabels(2).Caption = " Type: "
lblLabels(3).Caption = " Size: "
lblLabels(4).Caption = "OrdinalPosition: "
lblLabels(5).Caption = "ValidationText: "
lblLabels(6).Caption = "ValidationRule: "
lblLabels(7).Caption = "DefaultValue: "
ADDFIELD.FRM has 10 strings strings remaining in source code.
cboFieldType.AddItem "Byte"
cboFieldType.AddItem "Integer"
cboFieldType.AddItem "Long"
cboFieldType.AddItem "Currency"
cboFieldType.AddItem "Single"
cboFieldType.AddItem "Double"
cboFieldType.AddItem "Date/Time"
txtFieldSize.Text = "50"
txtFieldSize.Text = "50"
BUTTON1 = "&OK"
Addindex.frm had 16 strings moved to the resource file.
Me.Caption = Me.Caption & " to " frmTblStruct.txtTableName
Me.Caption = Me.Caption & " to " StripConnect(gnodDBNode2.Text)
FORMCAPTION = "Add Index"
BUTTON2 = "&Close"
LABEL0 = "Name:"
Label1 = "Indexed Fields:"
Label2 = "Available Fields:"
Me.Caption = "Add Index"
chkIgnoreNulls.Caption = "IgnoreNulls"
chkPrimary.Caption = "Primary"
chkUnique.Caption = "Unique"
cmdOK.Caption = "&OK"
cmdClose.Caption = "&Close"
lblLabels(2).Caption = "Available Fields: "
lblLabels(1).Caption = "Indexed Fields:"
lblLabels(0).Caption = "Name: "
Addindex.frm has 2 strings strings remaining in source code.
txtFields.Text = sTmp & "" lstFields
BUTTON1 = "&OK"
ATTACH.FRM had 9 strings moved to the resource file.
MsgBar "Attaching " .txtAttachName.Text, True
FORMCAPTION = "Attachments"
BUTTON1 = "&New"
BUTTON2 = "&ReAttach"
BUTTON3 = "&Close"
Me.Caption = "Attachments"
cmdNew.Caption = "&New"
cmdReAttach.Caption = "&ReAttach"
cmdClose.Caption = "&Close"
ATTACH.FRM has 4 strings strings remaining in source code.
lstTables.AddItem tdf.Name & String(32 - Len(tdf.Name), " "& vbTab & tdf.SourceTableName & "=>" & tdf.Connect
lstTables.AddItem tdf.Name & String(32 - Len(tdf.Name), " ") & vbTab & tdf.SourceTableName & "=<" tdf.Connect
lstTables.AddItem .txtAttachName.Text & String(32 - Len(.txtAttachName.Text), " "& vbTab & .cboTableName.Text & "=>" & sConnect
lstTables.AddItem .txtAttachName.Text & String(32 - Len(.txtAttachName.Text), " ") & vbTab & .cboTableName.Text & "=<" sConnect
CPYSTRU.FRM had 24 strings moved to the resource file.
MsgBox (StripConnect(lstTables.List(i))) & ": " MSG3, vbInformation, Me.Caption
MsgBox (StripConnect(lstTables.List(i))) & ": " MSG4, vbInformation, Me.Caption
MsgBox (StripConnect(lstTables.List(i))) & ": " MSG3, vbInformation, Me.Caption
FORMCAPTION = "Copy Structure"
BUTTON2 = "&Close"
LABEL0 = "Tables:"
Label1 = "Target Database:"
Label2 = "Target Connect String:"
LABEL3 = "(Note: Export is Faster)"
CHKBOX1 = "Copy Indexes"
CHKBOX2 = "Copy Data"
MSG1 = "Copying Table(s)"
MSG2 = "Enter New Table Name:"
MSG3 = "Copy of Data was Unsuccessful!"
MSG4 = "Copy of Structure was Successful!"
Me.Caption = "Copy Structure"
chkCopyData.Caption = "Copy Data "
cmdClose.Caption = "&Close"
cmdOK.Caption = "&OK"
chkCopyIndexes.Caption = "Copy Indexes"
lblLabels(3).Caption = "(Note:Export is Faster)"
lblLabels(2).Caption = " Target Connect String: "
lblLabels(1).Caption = " Target Database: "
lblLabels(0).Caption = " Tables: "
CPYSTRU.FRM has 1 string strings remaining in source code.
BUTTON1 = "&OK"
Database.frm had 3 strings moved to the resource file.
Set nodX = tvDatabase.Nodes.Add("T" & sTBLName, tvwChild, _
sTBLName & ">AttachType", _
sTmp & " Table"ATTACHED_STR)
FORMCAPTION = "Database Window"
Me.Caption = "Database"
Database.frm has 39 strings strings remaining in source code.
Set nodX = tvDatabase.Nodes.Add(, , "<" PROPERTIES_STR, PROPERTIES_STR, PROPERTY_STR)
Set nodX = tvDatabase.Nodes.Add(, , "T" tblObj.Name, tblObj.Name, ATTACHED_STR)
Set nodX = tvDatabase.Nodes.Add(, , "T" tblObj.Name, tblObj.Name, TABLE_STR)
Set nodX = tvDatabase.Nodes.Add("T" sTBLName, tvwChild, _
sTBLName & ">Fields", _
FIELDS_STR, FIELD_STR)
Set nodX = tvDatabase.Nodes.Add("T" & sTBLName, tvwChild, _
sTBLName & "<Fields"_
FIELDS_STR, FIELD_STR)
Set nodX = tvDatabase.Nodes.Add("T" sTBLName, tvwChild, _
sTBLName & ">Indexes", _
INDEXES_STR, INDEX_STR)
Set nodX = tvDatabase.Nodes.Add("T" & sTBLName, tvwChild, _
sTBLName & "<Indexes"_
INDEXES_STR, INDEX_STR)
Set nodX = tvDatabase.Nodes.Add("T" sTBLName, tvwChild, _
sTBLName & ">" & PROPERTIES_STR, _
PROPERTIES_STR, PROPERTY_STR)
Set nodX = tvDatabase.Nodes.Add("T" & sTBLName, tvwChild, _
sTBLName & "<" PROPERTIES_STR, _
PROPERTIES_STR, PROPERTY_STR)
sTmp = Left(sTmp, InStr(sTmp, ""- 1)
Set nodX = tvDatabase.Nodes.Add("T" sTBLName, tvwChild, _
sTBLName & ">AttachType", _
sTmp & " Table", ATTACHED_STR)
Set nodX = tvDatabase.Nodes.Add("T" & sTBLName, tvwChild, _
sTBLName & "<AttachType"_
sTmp & " Table", ATTACHED_STR)
Set nodX = tvDatabase.Nodes.Add(sQRYName, tvwChild, _
sQRYName & "<" PROPERTIES_STR, _
PROPERTIES_STR, PROPERTY_STR)
Me.Height = Val(GetRegistryString("DBWindowHeight""3870"))
Me.Height = Val(GetRegistryString("DBWindowHeight", "3870"
Me.Width = Val(GetRegistryString("DBWindowWidth""3835"))
Me.Width = Val(GetRegistryString("DBWindowWidth", "3835"
Me.Top = Val(GetRegistryString("DBWindowTop""0"))
Me.Top = Val(GetRegistryString("DBWindowTop", "0"
Me.Left = Val(GetRegistryString("DBWindowLeft""0"))
Me.Left = Val(GetRegistryString("DBWindowLeft", "0"
SaveSetting APP_CATEGORY, APPNAME, "DBWindowTop"Me.Top
SaveSetting APP_CATEGORY, APPNAME, "DBWindowLeft"Me.Left
SaveSetting APP_CATEGORY, APPNAME, "DBWindowWidth"Me.Width
SaveSetting APP_CATEGORY, APPNAME, "DBWindowHeight"Me.Height
Set nodX = tvDatabase.Nodes.Add(Node.Key, _
tvwChild, _
Node.Parent.Key & "<" FIELDS_STR & ">" & fldObj.Name, _
fldObj.Name, FIELD_STR)
Set nodX = tvDatabase.Nodes.Add(Node.Key, _
tvwChild, _
Node.Parent.Key & ">" & FIELDS_STR & "<" fldObj.Name, _
fldObj.Name, FIELD_STR)
If prpObj.Name <> "Value"hen
Set nodX = tvDatabase.Nodes.Add(Node.Key, _
tvwChild, _
Node.Parent.Key & Node.Key & "<" prpObj.Name, _
prpObj.Name & "=" & vTmp, PROPERTY_STR)
Set nodX = tvDatabase.Nodes.Add(Node.Key, _
tvwChild, _
Node.Parent.Key & Node.Key & ">" & prpObj.Name, _
prpObj.Name & "=" vTmp, PROPERTY_STR)
Set nodX = tvDatabase.Nodes.Add(Node.Key, _
tvwChild, _
Node.Parent.Key & "<" INDEXES_STR & ">" & idxObj.Name, _
idxObj.Name, INDEX_STR)
Set nodX = tvDatabase.Nodes.Add(Node.Key, _
tvwChild, _
Node.Parent.Key & ">" & INDEXES_STR & "<" idxObj.Name, _
idxObj.Name, INDEX_STR)
Set nodX = tvDatabase.Nodes.Add(Node.Key, _
tvwChild, _
Node.Parent.Key & Node.Key & "<" prpObj.Name, _
prpObj.Name & "=" & vTmp, PROPERTY_STR)
Set nodX = tvDatabase.Nodes.Add(Node.Key, _
tvwChild, _
Node.Parent.Key & Node.Key & ">" & prpObj.Name, _
prpObj.Name & "=" vTmp, PROPERTY_STR)
Set nodX = tvDatabase.Nodes.Add(Node.Key, _
tvwChild, _
Node.Key & "<" prpObj.Name, _
prpObj.Name & "=" & vTmp, PROPERTY_STR)
Set nodX = tvDatabase.Nodes.Add(Node.Key, _
tvwChild, _
Node.Key & ">" & prpObj.Name, _
prpObj.Name & "=" vTmp, PROPERTY_STR)
Set nodX = tvDatabase.Nodes.Add(Node.Key, _
tvwChild, _
Node.Parent.Key & "<" prpObj.Name, _
prpObj.Name & "=" & vTmp, PROPERTY_STR)
Set nodX = tvDatabase.Nodes.Add(Node.Key, _
tvwChild, _
Node.Parent.Key & ">" & prpObj.Name, _
prpObj.Name & "=" vTmp, PROPERTY_STR)
GetPropertyValue = "N/A"
DATAFORM.FRM had 35 strings moved to the resource file.
lblFieldName(i).Caption = recTmp.Fields(i).Name & ":"
MsgBox "Error:" Err & " " & Error
MsgBox "Error:" & Err & " " Error
BUTTON1 = "&Cancel"
BUTTON2 = "&Update"
BUTTON3 = "&Delete"
BUTTON4 = "&Find"
BUTTON5 = "&Refresh"
BUTTON6 = "&Close"
BUTTON7 = "&Add"
Label1 = "Field Name:"
Label2 = "Value:"
MSG1 = "New Record"
MSG2 = "Select a Picture File to Load"
MSG3 = "Data error event hit Err:"
MSG4 = "Save New Record?"
MSG5 = "Commit Changes?"
MSG6 = "Commit Changes before Closing?"
MSG7 = "Delete Current Record?"
MSG8 = "Enter Seek Value:"
MSG9 = "Enter Search Expression:"
MSG10 = " Rows"
MSG11 = " Rows (Forward Only Recordset)"
MSG12 = " [Not Updatable]"
MSG13 = "Function not available for paramaterized query!"
Me.Caption = "Data Control"
cmdCancelAdd.Caption = "C&ancel"
cmdRefresh.Caption = "&Refresh"
cmdFind.Caption = "&Find"
cmdClose.Caption = "&Close"
cmdDelete.Caption = "&Delete"
cmdAdd.Caption = "&Add"
cmdUpdate.Caption = "&Update"
lblFieldHeader.Caption = "Field Name:"
lblFieldValue.Caption = " Value:"
DATAFORM.FRM has 8 strings strings remaining in source code.
SendKeys "{Tab}"
.Filter = "Bitmaps (*.bmp)|*.bmp|Icons (*.ico)|*.ico|Metafiles (*.wmf)|*.wmf|All Files (*.*)|*.*"
datDataCtl.Recordset.Seek "="sFindStr
If datDataCtl.Tag = "OLE"hen
If datDataCtl.Tag = "OLE"hen
sCurrStat = "(BOF)/" mlNumRows
sCurrStat = "(EOF)/" mlNumRows
sCurrStat = lCurrRec & "/" mlNumRows
DATAGRID.FRM had 4 strings moved to the resource file.
MsgBox "Error:" Err & " " & Error$
MsgBox "Error:" & Err & " " Error$
MSG8 = "Delete Current Row?"
Me.Caption = "Data Grid"
DATAGRID.FRM has no strings strings remaining in source code.
DATATYPE.FRM had 19 strings moved to the resource file.
lstTypes.AddItem "Access MDB"
lstTypes.AddItem "Dbase IV"
lstTypes.AddItem "Dbase III"
lstTypes.AddItem "FoxPro 2.6"
lstTypes.AddItem "FoxPro 2.5"
lstTypes.AddItem "FoxPro 2.0"
lstTypes.AddItem "Paradox 4.X"
lstTypes.AddItem "Paradox 3.X"
lstTypes.AddItem "Btrieve"
lstTypes.AddItem "Excel 5.0"
lstTypes.AddItem "Excel 4.0"
lstTypes.AddItem "Excel 3.0"
lstTypes.AddItem "Text"
BUTTON2 = "&Cancel"
Label1 = "Data Source:"
Me.Caption = "Data Type"
cmdCancel.Caption = "&Cancel"
cmdOK.Caption = "&OK"
lblLabel1.Caption = " Data Source: "
DATATYPE.FRM has 4 strings strings remaining in source code.
If Tag <> "LOADED"hen
Tag = "LOADED"
lstTypes.AddItem "ODBC"
BUTTON1 = "&OK"
DBPwd.FRM had 7 strings moved to the resource file.
FORMCAPTION = "Password Required"
BUTTON2 = "&Cancel"
Label1 = "&Enter database password:"
Me.Caption = "Password"
cmdCancel.Caption = "&Cancel"
cmdOK.Caption = "&OK"
lblLabels(0).Caption = "Enter database password:"
DBPwd.FRM has 1 string strings remaining in source code.
BUTTON1 = "&OK"
DCPROP.FRM had 42 strings moved to the resource file.
FORMCAPTION = "Data Control Properties"
BUTTON1 = "&Refresh Data Control"
BUTTON2 = "&Cancel"
Label1 = "Database Properties"
Label2 = "Recordset Properties"
LABEL3 = "Data Control Properties"
LABEL4 = "Bound Binary Control Type:"
Me.Caption = "Data Control Properties"
optOLECtl.Caption = "OLE"
optPictureCtl.Caption = "PictureBox"
chkForwardOnly.Caption = "ForwardOnly"
chkFailOnError.Caption = "FailOnError"
chkSQLPassthrough.Caption = "SQLPassthru"
chkConsistent.Caption = "Consistent"
chkInconsistent.Caption = "Inconsistent"
chkAppendOnly.Caption = "AppendOnly"
chkReadOnly.Caption = "ReadOnly"
chkDenyRead.Caption = "DenyRead"
chkDenyWrite.Caption = "DenyWrite"
chkDBReadOnly.Caption = "ReadOnly"
chkExclusive.Caption = "Exclusive"
cmdCancel.Caption = "&Cancel"
cmdRefresh.Caption = "&Refresh Data Control"
optRSType(1).Caption = "1 - Dynaset"
optRSType(0).Caption = "0 - Table"
optRSType(2).Caption = "2 - Snapshot"
optEOFAction(2).Caption = "2 - AddNew"
optEOFAction(0).Caption = "0 - MoveLast"
optEOFAction(1).Caption = "1 - EOF"
optBOFAction(1).Caption = "1 - BOF"
optBOFAction(0).Caption = "0 - MoveFirst"
lblLabels(9).Caption = "Bound Binary Control Type: "
lblLabels(8).Caption = "Data Control Properties"
lblLabels(10).Caption = "Recordset Properties"
lblLabels(7).Caption = "Database Properties"
lblLabels(6).Caption = "Options: "
lblLabels(5).Caption = "RecordSource: "
lblLabels(4).Caption = "Connect: "
lblLabels(3).Caption = "Name: "
lblLabels(2).Caption = "RecordsetType: "
lblLabels(1).Caption = "EOFAction: "
lblLabels(0).Caption = "BOFAction: "
DCPROP.FRM has 3 strings strings remaining in source code.
gDataCtlObj.Tag = IIf(optOLECtl.Value, "OLE""PIC")
gDataCtlObj.Tag = IIf(optOLECtl.Value, "OLE", "PIC"
optOLECtl.Value = IIf(gDataCtlObj.Tag = "OLE"True, False)
DFD.FRM had 44 strings moved to the resource file.
.Properties!DataSource = "Data1"
.Properties!DataSource = "Data1"
.Properties!DataSource = "Data1"
sCode = sCode & vbCrLf & "End Sub"
sCode = sCode & vbCrLf & "End Sub"
sCode = sCode & vbCrLf & "End Sub"
sCode = sCode & vbCrLf & " Data1.Recordset.Bookmark = Data1.Recordset.LastModified"
sCode = sCode & vbCrLf & "End Sub"
sCode = sCode & vbCrLf & " Unload Me"
sCode = sCode & vbCrLf & "End Sub"
sCode = sCode & vbCrLf & " MsgBox ""Data error event hit err:"" & Error$(DataErr)"
sCode = sCode & vbCrLf & " Response = 0 'throw away the error"
sCode = sCode & vbCrLf & "End Sub"
sCode = sCode & vbCrLf & " Screen.MousePointer = vbDefault"
sCode = sCode & vbCrLf & " On Error Resume Next"
sCode = sCode & vbCrLf & " Data1.Caption = ""Record: "" & (Data1.Recordset.AbsolutePosition + 1)"
sCode = sCode & vbCrLf & "End Sub"
sCode = sCode & vbCrLf & " Select Case Action"
sCode = sCode & vbCrLf & " End Select"
sCode = sCode & vbCrLf & " Screen.MousePointer = vbHourglass"
sCode = sCode & vbCrLf & "End Sub"
sCode = sCode & vbCrLf & "End Sub" vbCrLf
FORMCAPTION = "Data Form Designer"
BUTTON1 = "&Build the Form"
BUTTON2 = "&Close"
Label1 = "Form Name (w/o Extension):"
LABEL4 = "Available Fields:"
LABEL5 = "Included Fields:"
MSG1 = "Form Name cannot be blank!"
MSG2 = "You must enter a RecordSource!"
MSG3 = "You must include some Columns!"
CTLNAME1 = "&Add"
CTLNAME2 = "&Delete"
CTLNAME3 = "&Refresh"
CTLNAME4 = "&Update"
CTLNAME5 = "&Close"
Me.Caption = "Data Form Designer"
cmdBuildForm.Caption = "&Build the Form"
cmdClose.Caption = "&Close"
lblLabels(2).Caption = "Select a Table/QueryDef from the list or enter a SQL statement."
lblLabels(4).Caption = "Included Fields: "
lblLabels(1).Caption = "RecordSource: "
lblLabels(3).Caption = "Available Fields: "
lblLabels(0).Caption = "Form Name (w/o Extension): "
DFD.FRM has 66 strings strings remaining in source code.
.Properties!Name = "frm" txtFormName.Text
Set ctlNewControl = frmNewForm.Designer.ContainedVBControls.Add("Label"Nothing)
.Properties!Caption = sTmp & ":"
.Properties!Name = "lblLabels"
Set ctlNewControl = frmNewForm.Designer.ContainedVBControls.Add("CheckBox"Nothing)
.Properties!Name = "chkFields"
Set ctlNewControl = frmNewForm.Designer.ContainedVBControls.Add("OLE"Nothing)
.Properties!Name = "oleFields"
If .Properties("Index"= -1 Then
.Properties("Index"= 0
SendKeys "{Esc}"
Set ctlNewControl = frmNewForm.Designer.ContainedVBControls.Add("TextBox"Nothing)
.Properties!Name = "txtFields"
Set ctlNewControl = frmNewForm.Designer.ContainedVBControls.Add("Data"Nothing)
Set ctlNewControl = frmNewForm.Designer.ContainedVBControls.Add("CommandButton"Nothing)
.Properties!Name = "cmdAdd"
Set ctlNewControl = frmNewForm.Designer.ContainedVBControls.Add("CommandButton"Nothing)
.Properties!Name = "cmdDelete"
Set ctlNewControl = frmNewForm.Designer.ContainedVBControls.Add("CommandButton"Nothing)
.Properties!Name = "cmdRefresh"
Set ctlNewControl = frmNewForm.Designer.ContainedVBControls.Add("CommandButton"Nothing)
.Properties!Name = "cmdUpdate"
Set ctlNewControl = frmNewForm.Designer.ContainedVBControls.Add("CommandButton"Nothing)
.Properties!Name = "cmdClose"
sCode = "Private Sub cmdAdd_Click()"
sCode = sCode & vbCrLf & " Data1.Recordset.AddNew"
sCode = sCode & vbCrLf & "Private Sub cmdDelete_Click()"
sCode = sCode & vbCrLf & " 'this may produce an error if you delete the last"
sCode = sCode & vbCrLf & " 'record or the only record in the recordset"
sCode = sCode & vbCrLf & " Data1.Recordset.Delete"
sCode = sCode & vbCrLf & " Data1.Recordset.MoveNext"
sCode = sCode & vbCrLf & "Private Sub cmdRefresh_Click()"
sCode = sCode & vbCrLf & " 'this is really only needed for multi user apps"
sCode = sCode & vbCrLf & " Data1.Refresh"
sCode = sCode & vbCrLf & "Private Sub cmdUpdate_Click()"
sCode = sCode & vbCrLf & " Data1.UpdateRecord"
sCode = sCode & vbCrLf & "Private Sub cmdClose_Click()"
sCode = sCode & vbCrLf & "Private Sub Data1_Error(DataErr As Integer, Response As Integer)"
sCode = sCode & vbCrLf & " 'This is where you would put error handling code"
sCode = sCode & vbCrLf & " 'If you want to ignore errors, comment out the next line"
sCode = sCode & vbCrLf & " 'If you want to trap them, add code here to handle them"
sCode = sCode & vbCrLf & "Private Sub Data1_Reposition()"
sCode = sCode & vbCrLf & " 'This will display the current record position"
sCode = sCode & vbCrLf & " 'for dynasets and snapshots"
sCode = sCode & vbCrLf & " 'for the table object you must set the index property when"
sCode = sCode & vbCrLf & " 'the recordset gets created and use the following line"
sCode = sCode & vbCrLf & " 'Data1.Caption = ""Record: "" & (Data1.Recordset.RecordCount * (Data1.Recordset.PercentPosition * 0.01)) + 1"
sCode = sCode & vbCrLf & "Private Sub Data1_Validate(Action As Integer, Save As Integer)"
sCode = sCode & vbCrLf & " 'This is where you put validation code"
sCode = sCode & vbCrLf & " 'This event gets called when the following actions occur"
sCode = sCode & vbCrLf & " Case vbDataActionMoveFirst"
sCode = sCode & vbCrLf & " Case vbDataActionMovePrevious"
sCode = sCode & vbCrLf & " Case vbDataActionMoveNext"
sCode = sCode & vbCrLf & " Case vbDataActionMoveLast"
sCode = sCode & vbCrLf & " Case vbDataActionAddNew"
sCode = sCode & vbCrLf & " Case vbDataActionUpdate"
sCode = sCode & vbCrLf & " Case vbDataActionDelete"
sCode = sCode & vbCrLf & " Case vbDataActionFind"
sCode = sCode & vbCrLf & " Case vbDataActionBookMark"
sCode = sCode & vbCrLf & " Case vbDataActionClose"
sCode = sCode & vbCrLf & "Private Sub oleFields_DblClick(Index As Integer)"
sCode = sCode & vbCrLf & " 'this is the way to get data into an empty ole control"
sCode = sCode & vbCrLf & " 'and have it saved back to the table"
sCode = sCode & vbCrLf & " oleFields(Index).InsertObjDlg"
Label2 = "RecordSource:"
LABEL3 = "Select a Table/QueryDef from the list or enter a SQL statement."
DYNASNAP.FRM had 41 strings moved to the resource file.
MsgBar "Getting Memo Field Data"True
lblFieldName(i).Caption = mrsFormRecordset(i).Name & ":"
BUTTON1 = "&Add"
BUTTON2 = "&Edit"
BUTTON3 = "&Delete"
BUTTON4 = "&Close"
BUTTON5 = "&Sort"
BUTTON6 = "F&ilter"
BUTTON7 = "&Move"
BUTTON8 = "&Find"
BUTTON9 = "&Cancel"
BUTTON10 = "&Update"
Label1 = "Field Name:"
Label2 = "Value (F4=Zoom)"
MSG1 = "Add record"
MSG2 = "Enter number of Rows to Move:"
MSG3 = "(Use negative value to move backwards)"
MSG4 = "Field Length Exceeded, Data Truncated!"
MSG5 = "Delete Current Record?"
MSG6 = "Edit record"
MSG7 = "Enter Filter Expression:"
MSG8 = "Setting New Filter"
MSG9 = "Enter Search Parameters"
MSG10 = "Searching for New Record"
MSG11 = "Record Not Found"
MSG12 = "Resizing Form"
MSG13 = "Enter Sort Column:"
MSG14 = "Setting New Sort Order"
Me.Caption = "Dynaset/Snapshot"
cmdMove.Caption = "&Move"
cmdSort.Caption = "&Sort"
cmdFilter.Caption = "F&ilter"
cmdClose.Caption = "&Close"
cmdDelete.Caption = "&Delete"
cmdEdit.Caption = "&Edit"
cmdAdd.Caption = "&Add"
cmdFind.Caption = "&Find"
cmdUpdate.Caption = "&Update"
cmdCancel.Caption = "&Cancel"
lblFieldValue.Caption = " Value (F4=Zoom)"
lblFieldHdr.Caption = "Field Name:"
DYNASNAP.FRM has 8 strings strings remaining in source code.
SendKeys "{Tab}"
If (mbAddNewFlag Or mbEditFlag) And gsZoomData <> "__CANCELLED__"hen
sTmp = AddBrackets((mrsFormRecordset(i).Name)) & " " gsFindOp & " '" & gsFindExpr & "'"
sTmp = AddBrackets((mrsFormRecordset(i).Name)) & " " & gsFindOp & " '" gsFindExpr & "'"
sTmp = AddBrackets((mrsFormRecordset(i).Name)) & " " & gsFindOp & " '" & gsFindExpr & "'"
sTmp = AddBrackets((mrsFormRecordset(i).Name)) & " " gsFindOp & " #" & gsFindExpr & "#"
sTmp = AddBrackets((mrsFormRecordset(i).Name)) & " " & gsFindOp & " #" gsFindExpr & "#"
sTmp = AddBrackets((mrsFormRecordset(i).Name)) & " " & gsFindOp & " #" & gsFindExpr & "#"
ERRORS.FRM had 6 strings moved to the resource file.
FORMCAPTION = "Errors"
BUTTON1 = "&Refresh"
BUTTON2 = "&Close"
Me.Caption = "Errors"
cmdClose.Caption = "&Close"
cmdRefresh.Caption = "&Refresh"
ERRORS.FRM has no strings strings remaining in source code.
EXPNAME.FRM had 5 strings moved to the resource file.
FORMCAPTION = "Export"
BUTTON2 = "&Cancel"
Me.Caption = "Export Name"
cmdCancel.Caption = "&Cancel"
cmdOK.Caption = "&OK"
EXPNAME.FRM has 1 string strings remaining in source code.
BUTTON1 = "&OK"
FIND.FRM had 16 strings moved to the resource file.
lstOperators.AddItem "Like"
FORMCAPTION = "Find Record"
BUTTON2 = "&Cancel"
Label1 = "&Fields:"
Label2 = "&Operators:"
LABEL3 = "&Value or Expression:"
Me.Caption = "Find"
optFindType(3).Caption = "FindLast"
optFindType(2).Caption = "FindPrevious"
optFindType(1).Caption = "FindNext"
optFindType(0).Caption = "FindFirst"
cmdOK.Caption = "&OK"
cmdCancel.Caption = "&Cancel"
lblLabels(1).Caption = "Operators: "
lblLabels(0).Caption = "Fields: "
lblLabels(2).Caption = "Value or Expression: "
FIND.FRM has 7 strings strings remaining in source code.
lstOperators.AddItem "="
lstOperators.AddItem "><"
lstOperators.AddItem "<="
lstOperators.AddItem ">="
lstOperators.AddItem "<"
lstOperators.AddItem ">"
BUTTON1 = "&OK"
GRPSUSRS.FRM had 42 strings moved to the resource file.
Label2 = "Groups Belonged to:"
LABEL3 = "Members:"
LABEL4 = "Owner:"
BUTTON1 = "&New"
BUTTON2 = "&Delete"
BUTTON3 = "&Set/Clear Password"
BUTTON4 = "&Assign"
BUTTON5 = "&Close"
OPTION1 = "Users"
OPTION2 = "Groups"
FRAME1 = "Permissions"
MSG1 = "You do not have permission to change the Owner!"
MSG2 = "No Group Selected!"
MSG3 = "Delete Group?"
MSG4 = "No User Selected!"
MSG5 = "Delete User?"
MSG6 = "New Group"
MSG7 = "New User"
MSG8 = "Clear the Password?"
MSG9 = "No Object Selected!"
Me.Caption = "Groups/Users"
fraPermissions.Caption = "Permissions"
cmdAssign.Caption = "&Assign"
chkDeleteData.Caption = "DeleteData"
chkInsertData.Caption = "InsertData"
chkUpdateData.Caption = "UpdateData"
chkReadData.Caption = "ReadData"
chkAdminister.Caption = "Administer"
chkModifyDesign.Caption = "ModifyDesign"
chkReadDesign.Caption = "ReadDesign"
optGroups.Caption = "Groups"
optUsers.Caption = "Users"
cmdClose.Caption = "&Close"
cmdPassword.Caption = "&Set/Clear Password"
cmdDeleteUser.Caption = "&Delete"
cmdNewUser.Caption = "&New"
lblLabels(1).Caption = "Groups Belonged to:"
cmdDeleteGroup.Caption = "&Delete"
cmdNewGroup.Caption = "&New"
lblLabels(2).Caption = "Members:"
lblLabels(3).Caption = "Owner:"
lblLabels(0).Caption = "Tables/Querys:"
GRPSUSRS.FRM has 12 strings strings remaining in source code.
gdbCurrentDB.Containers("Tables"UserName = sUserGroup
lPermissions = gdbCurrentDB.Containers("Tables"Permissions
gdbCurrentDB.Containers("Tables"Permissions = lPermissions
ShowOwner gdbCurrentDB.Containers("Tables"
Set mobjCurrObject = gdbCurrentDB.Containers("Tables"
gdbCurrentDB.Containers("Tables"Documents(sObject).UserName = sUserGroup
lPermissions = gdbCurrentDB.Containers("Tables"Documents(sObject).Permissions
gdbCurrentDB.Containers("Tables"Documents(sObject).Permissions = lPermissions
ShowOwner gdbCurrentDB.Containers("Tables"Documents(sObject)
Set mobjCurrObject = gdbCurrentDB.Containers("Tables"Documents(sObject)
FORMCAPTION = "Groups/Users/Permissions"
Label1 = "Tables/Querys:"
IMPTBLS.FRM had 8 strings moved to the resource file.
FORMCAPTION = "Import Tables"
Label1 = "Tables In:"
BUTTON1 = "&Import"
BUTTON2 = "&Close"
Me.Caption = "Import Tables"
cmdClose.Caption = "Close"
cmdImport.Caption = "Import"
lblLabel1.Caption = " Tables in "
IMPTBLS.FRM has no strings strings remaining in source code.
JOIN.FRM had 12 strings moved to the resource file.
FORMCAPTION = "Join Tables"
Label1 = "Select Table Pair:"
Label2 = "Select Fields to Join on:"
BUTTON1 = "&Add Join to Query"
BUTTON2 = "C&lear All Joins"
BUTTON3 = "&Close"
Me.Caption = "Join"
cmdClearJoins.Caption = "C&lear All Joins"
cmdClose.Caption = "&Close"
cmdAddJoin.Caption = "&Add Join to Query"
lblLabels(1).Caption = "Select Fields to Join on: "
lblLabels(0).Caption = "Select Table Pair: "
JOIN.FRM has 3 strings strings remaining in source code.
frmQuery.lstJoinFields.AddItem AddBrackets(mtblTable1) & "." AddBrackets(lstFields1) & "=" & AddBrackets(mtblTable2) & "." & AddBrackets(lstFields2)
frmQuery.lstJoinFields.AddItem AddBrackets(mtblTable1) & "." & AddBrackets(lstFields1) & "=" AddBrackets(mtblTable2) & "." & AddBrackets(lstFields2)
frmQuery.lstJoinFields.AddItem AddBrackets(mtblTable1) & "." & AddBrackets(lstFields1) & "=" & AddBrackets(mtblTable2) & "." AddBrackets(lstFields2)
Loginfrm.frm had 9 strings moved to the resource file.
FORMCAPTION = "Login"
BUTTON2 = "&Cancel"
Label1 = "Login Name:"
Label2 = "Password:"
Me.Caption = "Login"
cmdCancel.Caption = "&Cancel"
cmdOK.Caption = "&OK"
lblLabels(1).Caption = "Password: "
lblLabels(0).Caption = "Login Name: "
Loginfrm.frm has 2 strings strings remaining in source code.
Set wsp = DBEngine.CreateWorkspace("MainWS"txtLoginName.Text, txtPassword.Text)
BUTTON1 = "&OK"
NEWATTCH.FRM had 31 strings moved to the resource file.
cboConnect.AddItem "Access MDB"
cboConnect.AddItem "Dbase III"
cboConnect.AddItem "Dbase IV"
cboConnect.AddItem "FoxPro 2.0"
cboConnect.AddItem "FoxPro 2.5"
cboConnect.AddItem "FoxPro 2.6"
cboConnect.AddItem "Paradox 3.X"
cboConnect.AddItem "Paradox 4.X"
cboConnect.AddItem "Excel 5.0"
cboConnect.AddItem "Excel 4.0"
cboConnect.AddItem "Excel 3.0"
cboConnect.AddItem "Text Files"
sTmp = sTmp & "database=" txtDatabase
FORMCAPTION = "New Attached Table"
BUTTON1 = "&Attach"
BUTTON2 = "&Cancel"
Label1 = "Attachment &Name:"
Label2 = "&Database Name:"
LABEL3 = "C&onnect String:"
LABEL4 = "&Table to Attach:"
CHECK1 = "AttachSave&PWD"
CHECK2 = "Attach&Exclusive"
Me.Caption = "New Attachment"
chkExclusive.Caption = "AttachExclusive"
chkSavePassword.Caption = "AttachSavePWD"
cmdCancel.Caption = "&Cancel"
cmdAttach.Caption = "&Attach"
lblLabels(1).Caption = "Database Name: "
lblLabels(3).Caption = "Table to Attach: "
lblLabels(2).Caption = "Connect String: "
lblLabels(0).Caption = "Attachment Name: "
NEWATTCH.FRM has 4 strings strings remaining in source code.
cboConnect.AddItem "ODBC"
Set db = gwsMainWS.OpenDatabase(vbNullString, 0, 0, sDataType & "" cboConnect.Text)
sTmp = ""
sTmp = cboConnect.Text & ""
NEWPW.FRM had 11 strings moved to the resource file.
BUTTON2 = "&Cancel"
Label1 = "&Old Password:"
Label2 = "&New Passsord:"
LABEL3 = "&Verify:"
MSG1 = "Invalid New Password Verification, try again."
Me.Caption = "New Password"
cmdCancel.Caption = "&Cancel"
cmdOK.Caption = "&OK"
lblLabels(2).Caption = "Verify:"
lblLabels(1).Caption = "New Password:"
lblLabels(0).Caption = "Old Password:"
NEWPW.FRM has 2 strings strings remaining in source code.
Const FORMCAPTION = "Set Password"
BUTTON1 = "&OK"
NEWUG.FRM had 8 strings moved to the resource file.
BUTTON2 = "&Cancel"
Label1 = "&Name:"
MSG1 = "PID must be between 4 and 20 characters!"
Me.Caption = "New User Group"
cmdCancel.Caption = "&Cancel"
cmdOK.Caption = "&OK"
lblLabels(1).Caption = "PID:"
lblLabels(0).Caption = "Name:"
NEWUG.FRM has 3 strings strings remaining in source code.
gwsMainWS.Groups("Users"Users.Append usr
BUTTON1 = "&OK"
Label2 = "&PID:"
ODBCLogn.Frm had 34 strings moved to the resource file.
If Len(cboDSNList.Text) = 0 Or cboDSNList.Text = "(None)"hen
frmMDI.Caption = "VisData:" gsDBName & "." & gsODBCDatabase
frmMDI.Caption = "VisData:" & gsDBName & "." gsODBCDatabase
cboDSNList.AddItem "(None)"
FORMCAPTION = "ODBC Logon"
BUTTON2 = "&Cancel"
BUTTON3 = "&Register"
FRAME1 = "Connect Values:"
LABEL3 = "&Password:"
LABEL4 = "Data&base:"
LABEL5 = "Dri&ver:"
LABEL6 = "&Server:"
MSG1 = "Enter ODBC Connection Parameters"
MSG2 = "Opening ODBC Database"
MSG3 = "Enter Driver Name:"
MSG4 = "Driver Name"
MSG5 = "This Datasource has not been Registered, this will now be attempted for you!"
MSG7 = "Invalid Parameter(s), Please try again!"
MSG8 = "Query Timeout Could not be set, default will be used!"
MSG9 = "Datasource Registration Succeeded, proceed with Open."
MSG10 = "Please enter a DSN!"
MSG11 = "Please select a Driver!"
MSG12 = "You must Close First!"
Me.Caption = "ODBC Logon"
cmdRegister.Caption = "&Register"
cmdCancel.Caption = "Cancel"
cmdOK.Caption = "&OK"
fraConnection.Caption = "Connection Values"
lblLabels(0).Caption = "&DSN:"
lblLabels(1).Caption = "&UID:"
lblLabels(2).Caption = "&Password:"
lblLabels(3).Caption = "Data&base:"
lblLabels(4).Caption = "Dri&ver:"
lblLabels(5).Caption = "&Server:"
ODBCLogn.Frm has 20 strings strings remaining in source code.
sConnect = "ODBC;DSN=" cboDSNList.Text & ";"
sConnect = "ODBC;DSN=" & cboDSNList.Text & ""
sConnect = "ODBC;Driver={" cboDrivers.Text & "};"
sConnect = "ODBC;Driver={" & cboDrivers.Text & "};"
sConnect = sConnect & "Server=" txtServer.Text & ";"
sConnect = sConnect & "Server=" & txtServer.Text & ""
sConnect = sConnect & "UID=" txtUID.Text & ";"
sConnect = sConnect & "UID=" & txtUID.Text & ""
sConnect = sConnect & "PWD=" txtPWD.Text & ";"
sConnect = sConnect & "PWD=" & txtPWD.Text & ""
sConnect = sConnect & "Database=" txtDatabase.Text & ";"
sConnect = sConnect & "Database=" & txtDatabase.Text & ""
If InStr(1, Error, "ODBC--connection to '" cboDSNList.Text & "' failed") > 0 Then
If InStr(1, Error, "ODBC--connection to '" & cboDSNList.Text & "' failed"> 0 Then
ElseIf InStr(1, Error, "Login failed"> 0 Then
ElseIf InStr(1, Error, "QueryTimeout property"> 0 Then
BUTTON1 = "&OK"
Label1 = "&DSN:"
Label2 = "&UID:"
cboDSNList.Text = "È"
Property.frm had 8 strings moved to the resource file.
FORMCAPTION = " Property Value"
BUTTON2 = "&Cancel"
Label1 = "&Enter property value:"
Me.Caption = "Property Value"
cmdCancel.Caption = "&Cancel"
cmdOK.Caption = "&OK"
chkPropValue.Caption = "Check1"
lblLabel.Caption = "&Enter property value:"
Property.frm has 1 string strings remaining in source code.
BUTTON1 = "&OK"
QUERY.FRM had 63 strings moved to the resource file.
txtCriteria.Text = txtCriteria.Text & vbCrLf & "And "
cboOperator.AddItem "Like"
MsgBar "Getting Possible Values"True
txtCriteria.Text = txtCriteria.Text & vbCrLf & " Or "
sWhere = " Where " sWhere
sWhere = sWhere & " Where "
sWhere = sWhere & " And "
sWhere = sWhere + lstJoinFields.List(i) & " And "
sWhere = sWhere & " Group By " cboGroupByField
sWhere = sWhere & " Order By " cboOrderByField
sWhere = sWhere & " Desc "
MsgBox sSQLString, 0, "SQL Query"
FORMCAPTION = "Query Builder"
BUTTON1 = "&And into Criteria"
BUTTON2 = "&Or into Criteria"
BUTTON3 = "List &Possible Values"
BUTTON5 = "&Run"
BUTTON6 = "&Show"
BUTTON7 = "Cop&y"
BUTTON8 = "Sa&ve"
BUTTON9 = "C&lear"
BUTTON10 = "&Close"
Label1 = "Field Name:"
Label2 = "Operator:"
LABEL3 = "Value:"
LABEL4 = "Tables:"
LABEL5 = "Fields to Show:"
LABEL6 = "Group By:"
LABEL7 = "Order By:"
LABEL8 = "Top N Value:"
LABEL9 = "Criteria:"
CHECK1 = "Top Percent"
MSG1 = "Updating Form Fields"
MSG2 = "(none)"
MSG3 = "You Must Have at Least 2 Tables Selected!"
MSG4 = "Choose Joins"
MSG5 = "No Query Entered!"
MSG6 = "Building Query"
MSG7 = "Running Query"
MSG8 = "Enter QueryDef Name:"
Me.Caption = "Query"
optOrder(1).Caption = "Desc"
optOrder(0).Caption = "Asc"
chkTopPercent.Caption = "Top Percent"
cmdGetValues.Caption = "List &Possible Values"
cmdOr.Caption = "&Or into Criteria"
cmdAnd.Caption = "&And into Criteria"
cmdSaveQDF.Caption = "Sa&ve"
cmdJoin.Caption = "Set Table &Joins"
cmdCopySQL.Caption = "Cop&y"
cmdShowSQL.Caption = "&Show"
cmdClose.Caption = "&Close"
cmdRunQuery.Caption = "&Run"
cmdClear.Caption = "C&lear"
lblLabels(7).Caption = "Top N Value:"
lblLabels(1).Caption = "Operator:"
lblLabels(2).Caption = "Value:"
lblLabels(0).Caption = "Field Name:"
lblLabels(6).Caption = "Order By: "
lblLabels(5).Caption = "Group By: "
lblLabels(3).Caption = "Tables: "
lblLabels(4).Caption = "Fields to Show: "
lblLabels(8).Caption = "Criteria: "
QUERY.FRM has 55 strings strings remaining in source code.
Const BUTTON4 = "Set Table &Joins"
txtCriteria.Text = txtCriteria.Text & cboField.Text & " " cboOperator.Text & " '" & cboValue.Text & "'"
txtCriteria.Text = txtCriteria.Text & cboField.Text & " " & cboOperator.Text & " '" cboValue.Text & "'"
txtCriteria.Text = txtCriteria.Text & cboField.Text & " " & cboOperator.Text & " '" & cboValue.Text & "'"
txtCriteria.Text = txtCriteria.Text & cboField.Text & " " cboOperator.Text & " " & cboValue.Text
txtCriteria.Text = txtCriteria.Text & cboField.Text & " " & cboOperator.Text & " " cboValue.Text
sTmp = AddBrackets((lstTables.List(ii))) & "." AddBrackets((fld.Name))
sTmp = AddBrackets((lstTables.List(ii))) & "." AddBrackets((fld.Name))
cboOperator.AddItem "="
cboOperator.AddItem "><"
cboOperator.AddItem "<"
cboOperator.AddItem "<="
cboOperator.AddItem ">"
cboOperator.AddItem ">="
Set rec = gdbCurrentDB.OpenRecordset("select Distinct " StripOwner(cboField) & " from " & stSTF((cboField), 0))
Set rec = gdbCurrentDB.OpenRecordset("select Distinct " & StripOwner(cboField) & " from " stSTF((cboField), 0))
txtCriteria.Text = txtCriteria.Text & cboField.Text & " " cboOperator.Text & " '" & cboValue.Text & "'"
txtCriteria.Text = txtCriteria.Text & cboField.Text & " " & cboOperator.Text & " '" cboValue.Text & "'"
txtCriteria.Text = txtCriteria.Text & cboField.Text & " " & cboOperator.Text & " '" & cboValue.Text & "'"
txtCriteria.Text = txtCriteria.Text & cboField.Text & " " cboOperator.Text & " " & cboValue.Text
txtCriteria.Text = txtCriteria.Text & cboField.Text & " " & cboOperator.Text & " " cboValue.Text
sWhere = "AND " LTrim(txtCriteria.Text)
sTmp = sTmp & " "
sTmp = stGetToken(sWhere2, " "
sTmp = sTmp & " "
If bMatchParen = False And UCase(sTmp) = "AND "hen
sNewWhere = sNewWhere + sTmp & "("
ElseIf bMatchParen And UCase(sTmp) = "AND "hen
sNewWhere = sNewWhere & ") " sTmp & "("
sNewWhere = sNewWhere & ") " & sTmp & "("
If UCase(sTmp) = "OR"r UCase(sTmp) = "IN " Or UCase(sTmp) = "LIKE" Then
If UCase(sTmp) = "OR" Or UCase(sTmp) = "IN "r UCase(sTmp) = "LIKE" Then
If UCase(sTmp) = "OR" Or UCase(sTmp) = "IN " Or UCase(sTmp) = "LIKE"hen
sNewWhere = sNewWhere & " " sTmp
sWhere = sNewWhere & ")"
If Mid(sWhere, 2, 2) = "OR"hen
sTmp = stGetToken(sWhere, " "
fs = fs + lstShowFields.List(i%) & ","
fs = fs + AddBrackets((lstTables.List(i%))) & ".*,"
fs = "*"
ts = ts + AddBrackets((lstTables.List(i%))) & ","
sSQLString = "Select "
sSQLString = sSQLString & " TOP " txtTopNValue.Text & " "
sSQLString = sSQLString & " TOP " & txtTopNValue.Text & " "
sSQLString = sSQLString & " PERCENT "
sSQLString = sSQLString & fs & " From " ts + sWhere
iOpenQuote = InStr(1, rsLine, """"
iCloseQuote = InStr(iOpenQuote + 1, rsLine, """"
If (Mid(stToken, 1, 1) = """" Then
If (Mid(stToken, Len(stToken), 1) = """" Then
If InStr(InStr(1, rsName, "."+ 1, rsName, ".") > 1 Then
If InStr(InStr(1, rsName, ".") + 1, rsName, "."> 1 Then
stSTF = Mid(rsName, 1, InStr(1, rsName, "."- 1)
stSTF = Mid(rsName, InStr(1, rsName, "."+ 1, Len(rsName))
cboValue.Text = "cValue"
REPLACE.FRM had 15 strings moved to the resource file.
sWhereCondition = " where " txtCondition
FORMCAPTION = "Global Replace"
BUTTON2 = "&Cancel"
Label1 = "&Table:"
Label2 = "&Field:"
LABEL3 = "&Replace With:"
LABEL4 = "Cr&iteria:"
MSG1 = "Replacing Records"
Me.Caption = "Replace"
cmdOK.Caption = "&OK"
cmdCancel.Caption = "&Cancel"
lblLabels(0).Caption = "Table:"
lblLabels(3).Caption = "Criteria:"
lblLabels(2).Caption = "Replace With:"
lblLabels(1).Caption = "Field:"
REPLACE.FRM has 9 strings strings remaining in source code.
sReplaceTxt = "'" txtReplaceWith & "'"
sReplaceTxt = "'" & txtReplaceWith & "'"
gdbCurrentDB.Execute "update " StripConnect(lstTables.Text) & " set " & lstFields.Text & "=" & sReplaceTxt & sWhereCondition, dbSQLPassThrough
gdbCurrentDB.Execute "update " & StripConnect(lstTables.Text) & " set " lstFields.Text & "=" & sReplaceTxt & sWhereCondition, dbSQLPassThrough
gdbCurrentDB.Execute "update " & StripConnect(lstTables.Text) & " set " & lstFields.Text & "=" sReplaceTxt & sWhereCondition, dbSQLPassThrough
gdbCurrentDB.Execute "update " StripConnect(lstTables.Text) & " set [" & lstFields.Text & "]=" & sReplaceTxt & sWhereCondition
gdbCurrentDB.Execute "update " & StripConnect(lstTables.Text) & " set [" lstFields.Text & "]=" & sReplaceTxt & sWhereCondition
gdbCurrentDB.Execute "update " & StripConnect(lstTables.Text) & " set [" & lstFields.Text & "]=" sReplaceTxt & sWhereCondition
BUTTON1 = "&OK"
SEEK.FRM had 9 strings moved to the resource file.
FORMCAPTION = "Seek Parameters"
BUTTON2 = "&Cancel"
Label1 = "Operator:"
Label2 = "&Value:"
Me.Caption = "Seek"
cmdCancel.Caption = "&Cancel"
cmdOK.Caption = "&OK"
lblLabels(1).Caption = "Value: "
lblLabels(0).Caption = "Operator: "
SEEK.FRM has 6 strings strings remaining in source code.
gsSeekOperator = "="
gsSeekOperator = "<="
gsSeekOperator = ">="
gsSeekOperator = "<"
gsSeekOperator = ">"
BUTTON1 = "&OK"
SQL.FRM had 13 strings moved to the resource file.
If MsgBox(MSG1 & " '" gnodDBNode.Text & "'?", vbYesNo + vbQuestion) = vbYes Then
If MsgBox(MSG1 & " '" & gnodDBNode.Text & "'?"vbYesNo + vbQuestion) = vbYes Then
BUTTON1 = "&Execute"
BUTTON2 = "&Clear"
BUTTON3 = "&Save"
MSG1 = "Update"
MSG2 = "Enter QueryDef Name:"
MSG4 = "Enter Connect property value:"
MSG5 = "Is the Query Row Returning?"
Me.Caption = "SQL"
cmdSaveQueryDef.Caption = "&Save"
cmdExecuteSQL.Caption = "&Execute"
cmdClearSQL.Caption = "&Clear"
SQL.FRM has 16 strings strings remaining in source code.
SaveSetting APP_CATEGORY, APPNAME, "SQLStatement"frmSQL.txtSQLStatement.Text
SaveSetting APP_CATEGORY, APPNAME, "SQLWindowTop"frmSQL.Top
SaveSetting APP_CATEGORY, APPNAME, "SQLWindowLeft"frmSQL.Left
SaveSetting APP_CATEGORY, APPNAME, "SQLWindowWidth"frmSQL.Width
SaveSetting APP_CATEGORY, APPNAME, "SQLWindowHeight"frmSQL.Height
txtSQLStatement.Text = GetRegistryString("SQLStatement"vbNullString)
Me.Height = Val(GetRegistryString("SQLWindowHeight""3000"))
Me.Height = Val(GetRegistryString("SQLWindowHeight", "3000"
Me.Width = Val(GetRegistryString("SQLWindowWidth""5370"))
Me.Width = Val(GetRegistryString("SQLWindowWidth", "5370"
Me.Top = Val(GetRegistryString("SQLWindowTop""0"))
Me.Top = Val(GetRegistryString("SQLWindowTop", "0"
Me.Left = Val(GetRegistryString("SQLWindowLeft""3850"))
Me.Left = Val(GetRegistryString("SQLWindowLeft", "3850"
FORMCAPTION = "SQL Statement"
MSG3 = "Is this a SQLPassThrough QueryDef?"
TABLEOBJ.FRM had 33 strings moved to the resource file.
MsgBar "Getting Memo Field Data"True
lblFieldName(i).Caption = mrsFormRecordset(i).Name & ":"
BUTTON1 = "&Add"
BUTTON2 = "&Edit"
BUTTON3 = "&Delete"
BUTTON4 = "&Close"
BUTTON5 = "&Seek"
BUTTON6 = "F&ilter"
BUTTON7 = "&Cancel"
BUTTON8 = "&Update"
Label1 = "Field NAme:"
Label2 = "Value (F4=Zoom)"
MSG1 = "Add record"
MSG2 = "Field Length Exceeded, Data Truncated!"
MSG3 = "Delete Current Record?"
MSG4 = "Edit record"
MSG5 = "Enter Filter Expression:"
MSG6 = "Opening Table"
MSG7 = "Resizing Form"
MSG8 = "Enter Seek Parameters"
MSG9 = "Record Not Found"
Me.Caption = "Table Object"
cmdSeek.Caption = "&Seek"
cmdFilter.Caption = "F&ilter"
cmdClose.Caption = "&Close"
cmdDelete.Caption = "&Delete"
cmdEdit.Caption = "&Edit"
cmdAdd.Caption = "&Add"
lblIndex.Caption = "Index:"
lblFieldValue.Caption = " Value (F4=Zoom) "
lblFieldHdr.Caption = "Field Name:"
cmdUpdate.Caption = "&Update"
cmdCancel.Caption = "&Cancel"
TABLEOBJ.FRM has 10 strings strings remaining in source code.
SendKeys "{Tab}"
If (mbAddNewFlag Or mbEditFlag) And gsZoomData <> "__CANCELLED__"hen
If mrsFormRecordset.Index = Mid(cboIndexes.Text, 1, InStr(1, cboIndexes.Text, ":"- 1) Then Exit Sub
mrsFormRecordset.Index = Mid(cboIndexes.Text, 1, InStr(1, cboIndexes.Text, ":"- 1)
gsTableDynaFilter = "select * from " AddBrackets(msTableName) & " where " & sFilter
gsTableDynaFilter = "select * from " & AddBrackets(msTableName) & " where " sFilter
sIndex = sIndex & ":" idx.Fields
sIndex = sIndex & ":Unique"
sIndex = sIndex & ":Non-Unique"
sIndex = sIndex & ":Primary"
TBLSTRU.FRM had 60 strings moved to the resource file.
cboFieldType.AddItem "Boolean"
cboFieldType.AddItem "Text"
cboFieldType.AddItem "Binary"
cboFieldType.AddItem "Memo"
Printer.Print "Database: " gsDBName
Printer.Print "Table Definition for " txtTableName
Printer.Print "Fields: (Name - Type - Size)"
Printer.Print "Indexes (Name - Fields - Unique)"
sTmp = sTmp & IIf(chkUnique = 1, "True""False")
sTmp = sTmp & IIf(chkUnique = 1, "True", "False"
FORMCAPTION = "Table Structure"
BUTTON1 = "&Add Field"
BUTTON2 = "&Remove Field"
BUTTON3 = "Add &Index"
BUTTON4 = "Re&move Index"
BUTTON5 = "&Build the Table"
BUTTON6 = "&Close"
BUTTON7 = "&Print Structure"
Label1 = "Table &Name:"
Label2 = "&Field List:"
LABEL3 = "Inde&x List:"
MSG1 = "Enter New Field Parameters, Press 'Close' when finished"
MSG2 = "Enter New Index Parameters, Press 'Close' when finished"
MSG3 = "Adding the New Table to the Database"
MSG4 = "Remove Index?"
MSG5 = "Opening Design Form"
MSG6 = "Printing Table Structure"
MSG7 = "Remove Field?"
MSG8 = "Close without saving?"
Me.Caption = "Table Structure"
chkUnique.Caption = "Unique"
chkRequiredInd.Caption = "Required"
chkIgnoreNull.Caption = "IgnoreNull"
chkPrimary.Caption = "Primary"
chkForeign.Caption = "Foreign"
chkRequired.Caption = "Required"
chkAllowZeroLen.Caption = "AllowZeroLength"
chkAutoInc.Caption = "AutoIncrement"
chkVariable.Caption = "VariableLength"
chkFixedField.Caption = "FixedLength"
cmdAddTable.Caption = "&Build the Table"
cmdClose.Caption = "&Close"
cmdPrint.Caption = "&Print Structure"
cmdRemoveIndex.Caption = "Re&move Index"
cmdAddIndex.Caption = "Add &Index"
cmdAddField.Caption = "&Add Field"
cmdRemoveField.Caption = "&Remove Field"
lblLabels(24).Caption = "Name: "
lblLabels(20).Caption = "Name: "
lblLabels(23).Caption = "Fields: "
lblLabels(10).Caption = "DefaultValue: "
lblLabels(9).Caption = "ValidationRule: "
lblLabels(8).Caption = "ValidationText: "
lblLabels(7).Caption = "OrdinalPosition: "
lblLabels(5).Caption = "Size: "
lblLabels(4).Caption = "Type: "
lblLabels(22).Caption = "CollatingOrder: "
lblLabels(2).Caption = " Index List: "
lblLabels(1).Caption = "Field List: "
lblLabels(0).Caption = "Table Name: "
TBLSTRU.FRM has 13 strings strings remaining in source code.
cboFieldType.AddItem "Byte"
cboFieldType.AddItem "Integer"
cboFieldType.AddItem "Long"
cboFieldType.AddItem "Currency"
cboFieldType.AddItem "Single"
cboFieldType.AddItem "Double"
cboFieldType.AddItem "Date/Time"
Printer.Print String(60, "-"
sTmp = txtFieldName.Text & " - "
sTmp = sTmp & cboFieldType.Text & " - "
Printer.Print String(60, "-"
sTmp = txtIndexName.Text & " - "
sTmp = sTmp & txtFields.Text & " - "
VBIMEX.FRM had 15 strings moved to the resource file.
frmDataType.Caption = MSG1 & " '" lstTables.List(i) & "'"
frmDataType.Caption = MSG1 & " '" & lstTables.List(i) & "'"
.DialogTitle = "Select Microsoft Access Database"
.DialogTitle = "Select Text File"
BUTTON1 = "&Import"
BUTTON2 = "&Close"
BUTTON3 = "&Export Table(s)"
MSG1 = "Export"
MSG2 = "Import"
MSG4 = "Select File"
Me.Caption = "Import/Export"
cmdClose.Caption = "&Close"
cmdExportSQL.Caption = "Export &SQL Results"
cmdImport.Caption = "&Import"
cmdExport.Caption = "&Export Table(s)"
VBIMEX.FRM has 11 strings strings remaining in source code.
Set gImpDB = gwsMainWS.OpenDatabase(vbNullString, 0, 0, "odbc;"
If UCase(Mid(frmSQL.txtSQLStatement, 1, 7)) = "SELECT "hen
.Filter = "Microsoft Access (*.mdb)|*.mdb|All Files (*.*)|*.*"
.Filter = "Paradox (*.db)|*.db"
.Filter = "Xbase (*.dbf)|*.dbf"
.Filter = "Btrieve (FILE.DDF)|FILE.DDF"
.Filter = "Excel (*.xls)|*.xls"
.Filter = "Text Files (*.txt)|*.txt|All Files (*.*)|*.*"
FORMCAPTION = "Import/Export"
BUTTON4 = "Export &SQL Results"
MSG3 = "Export SQL"
VDMDI.FRM had 160 strings moved to the resource file.
If MsgBox(MSG25 & " '" sTBLName & "'", vbYesNo + vbQuestion) = vbYes Then
If MsgBox(MSG25 & " '" & sTBLName & "'"vbYesNo + vbQuestion) = vbYes Then
MNU_Database = "&File"
MNU_DBOpen = "&Open DataBase..."
MNU_DBOMDB = "&Microsoft Access..."
MNU_DBOText = "&Text Files..."
MNU_DBNew = "&New..."
MNU_DBNMDB = "&Microsoft Access"
MNU_DBNMDB2x = "Version &2.0 MDB..."
MNU_DBNMDB70 = "Version &7.0 MDB..."
MNU_DBNText = "&Text Files..."
MNU_DBClose = "&Close"
MNU_DBWorkspace = "&Workspace..."
MNU_DBErrors = "&Errors..."
MNU_DBCompact = "Co&mpact MDB..."
MNU_DBRepair = "&Repair MDB..."
MNU_DBExit = "E&xit"
MNU_Util = "&Utility"
MNU_UQuery = "&Query Builder..."
MNU_UDataFormDesigner = "Data &Form Designer..."
MNU_UReplace = "&Global Replace..."
MNU_UAttachments = "&Attachments.."
MNU_Pref = "&Preferences"
MNU_POpenOnStartup = "&Open Last DataBase on Startup"
MNU_PAllowSys = "&Include System Tables"
MNU_PQueryTimeout = "&Query Timeout Value..."
MNU_PLoginTimeout = "&Login Timeout Value..."
MNU_Window = "&Window"
MNU_WTile = "&Tile"
MNU_WCascade = "&Cascade"
MNU_WArrange = "&Arrange Icons"
MNU_Help = "&Help"
MNU_HTopics = "&Topics..."
MNU_HAbout = "&About..."
MNU_DBPUOpen = "&Open"
MNU_DBPUDesign = "&Design..."
MNU_DBPUEdit = "&Edit"
MNU_DBPURename = "&Rename"
MNU_DBPUDelete = "De&lete"
MNU_DBPUCopyStruct = "Copy Structure..."
MNU_DBPURemoveAll = "Remove All Records"
MNU_DBPURefresh = "Refresh List"
MNU_DBPUNewTable = "New &Table"
MNU_DBPUNewQuery = "New &Query"
TOOLTIP1 = "Table type Recordset"
TOOLTIP2 = "Dynaset type Recordset"
TOOLTIP3 = "Snapshot type Recordset"
TOOLTIP4 = "Passthrough type Recordset"
TOOLTIP5 = "Use Data Control on New Form"
TOOLTIP6 = "Don't Use Data Control on New Form"
TOOLTIP7 = "Use DBGrid Control on New Form"
TOOLTIP8 = "Begin a Transaction"
TOOLTIP9 = "Rollback current Transaction"
TOOLTIP10 = "Commit current Transaction"
MSG3 = "Press any key to Close About Box"
MSG4 = "Enter New Database Parameters"
MSG5 = "Enter Driver Name:"
MSG6 = "Driver Name"
MSG7 = "You must Close First!"
MSG8 = "NOTE: Use of Attached Tables is the Recommended Method"
MSG10 = "Open Microsoft Access Database to Repair"
MSG11 = "Repairing "
MSG12 = "Open Repaired Database?"
MSG13 = "System Databases|SYSTEM.MD?"
MSG14 = "Select SYSTEM.MD? (Microsoft Access Security File)"
MSG15 = " User: "
MSG16 = "Current Database must be closed due to the error!"
MSG17 = "No Users found, try 'Utility/System MD?'!"
MSG18 = "Login Timeout (in seconds):"
MSG19 = "No Database Open"
MSG20 = "Query Timeout (in seconds):"
MSG21 = "Delete Table?"
MSG22 = "Delete QueryDef?"
MSG23 = "Delete Field?"
MSG24 = "Delete Index?"
MSG25 = "Delete All Records in Table?"
MSG26 = "Rows deleted: "
MSG27 = "SYSTEM.MD? Not found, Add one to VB Settings?"
MSG28 = "Transactions not supported by this Driver!"
MSG29 = "All changes will be gone, Rollback anyway?"
MSG30 = " Property is Read Only!"
MSG31 = "This function requires an active project!"
frmMDI.Caption = "VisData"
tlbToolBar.Buttons(1).ToolTipText = "Table type Recordset"
tlbToolBar.Buttons(2).ToolTipText = "Dynaset type Recordset"
tlbToolBar.Buttons(3).ToolTipText = "Snapshot type Recordset"
tlbToolBar.Buttons(4).ToolTipText = "Passthrough type Recordset"
tlbToolBar.Buttons(6).ToolTipText = "Use Data Control on New Form"
tlbToolBar.Buttons(7).ToolTipText = "Don't Use Data Control on New Form"
tlbToolBar.Buttons(8).ToolTipText = "Use DBGrid Control on New Form"
tlbToolBar.Buttons(10).ToolTipText = "Begin a Transaction"
tlbToolBar.Buttons(11).ToolTipText = "Rollback current Transaction"
tlbToolBar.Buttons(12).ToolTipText = "Commit current Transaction"
stsStatusBar.Panels(1).Text = "Ready"
mnuDatabase.Caption = "&File"
mnuDBOpen.Caption = "&Open DataBase..."
mnuDBOMDB.Caption = "&Microsoft Access..."
mnuDBOdBASE.Caption = "&Dbase"
mnuDBOdBASE4.Caption = "I&V..."
mnuDBOdBASE3.Caption = "&III..."
mnuDBOFoxPro.Caption = "&FoxPro"
mnuDBOParadox.Caption = "&Paradox"
mnuDBOParadox4.Caption = "&4.X..."
mnuDBOParadox3.Caption = "&3.X..."
mnuDBOBtrieve.Caption = "&Btrieve..."
mnuDBOExcel.Caption = "&Excel..."
mnuDBOText.Caption = "&Text Files..."
mnuDBOODBC.Caption = "&ODBC..."
mnuDBNew.Caption = "&New..."
mnuDBNMDB.Caption = "&Microsoft Access"
mnuDBNMDB2x.Caption = "Version &2.0 MDB..."
mnuDBNMDB70.Caption = "Version &7.0 MDB..."
mnuDBNdBASE.Caption = "&Dbase"
mnuDBNdBASE4.Caption = "I&V..."
mnuDBNdBASE3.Caption = "&III..."
mnuDBNFoxPro.Caption = "&FoxPro"
mnuDBNParadox.Caption = "&Paradox"
mnuDBNParadox4.Caption = "&4.X..."
mnuDBNParadox3.Caption = "&3.X..."
mnuDBNBtrieve.Caption = "&Btrieve..."
mnuDBNODBC.Caption = "&ODBC..."
mnuDBNText.Caption = "&Text Files..."
mnuDBClose.Caption = "&Close"
mnuDBImpExp.Caption = "&Import/Export..."
mnuDBWorkspace.Caption = "&Workspace..."
mnuDBErrors.Caption = "&Errors..."
mnuDBCompact.Caption = "Co&mpact MDB..."
mnuDBC70MDB.Caption = "&7.0 MDB..."
mnuDBC20MDB.Caption = "&2.0 MDB..."
mnuDBRepair.Caption = "&Repair MDB..."
mnuDBExit.Caption = "E&xit"
mnuUtil.Caption = "&Utility"
mnuUQuery.Caption = "&Query Builder..."
mnuUDataFormDesigner.Caption = "Data &Form Designer..."
mnuUReplace.Caption = "&Global Replace..."
mnuUAttachments.Caption = "&Attachments.."
mnuUGroupsUsers.Caption = "&Groups/Users..."
mnuUSystemDB.Caption = "&SYSTEM.MD?..."
mnuPref.Caption = "&Preferences"
mnuPOpenOnStartup.Caption = "&Open Last DataBase on Startup"
mnuPAllowSys.Caption = "&Include System Tables"
mnuPQueryTimeout.Caption = "&Query Timeout Value..."
mnuPLoginTimeout.Caption = "&Login Timeout Value..."
mnuWindow.Caption = "&Window"
mnuWTile.Caption = "&Tile"
mnuWCascade.Caption = "&Cascade"
mnuWArrange.Caption = "&Arrange Icons"
mnuHelp.Caption = "&Help"
mnuHTopics.Caption = "&Topics..."
mnuHAbout.Caption = "&About..."
mnuDBPUOpen.Caption = "&Open"
mnuDBPUDesign.Caption = "&Design..."
mnuDBPUEdit.Caption = "&Edit"
mnuDBPURename.Caption = "&Rename"
mnuDBPUDelete.Caption = "De&lete"
mnuDBPUCopyStruct.Caption = "Copy Structure..."
mnuDBPURemoveAll.Caption = "Remove All Records"
mnuDBPURefresh.Caption = "Refresh List"
mnuDBPUNewTable.Caption = "New &Table"
mnuDBPUNewQuery.Caption = "New &Query"
VDMDI.FRM has 62 strings strings remaining in source code.
Set prpObj = gdbCurrentDB.Properties(VBA.Left(gnodDBNode2.Text, InStr(gnodDBNode2.Text, "="- 1))
Set prpObj = gdbCurrentDB.TableDefs(gnodDBNode2.Parent.Parent.Text).Properties(VBA.Left(gnodDBNode2.Text, InStr(gnodDBNode2.Text, "="- 1))
Set prpObj = gdbCurrentDB.QueryDefs(gnodDBNode2.Parent.Parent.Text).Properties(VBA.Left(gnodDBNode2.Text, InStr(gnodDBNode2.Text, "="- 1))
Set prpObj = gdbCurrentDB.TableDefs(gnodDBNode2.Parent.Parent.Parent.Text).Fields(gnodDBNode2.Parent.Text).Properties(VBA.Left(gnodDBNode2.Text, InStr(gnodDBNode2.Text, "="- 1))
Set prpObj = gdbCurrentDB.TableDefs(gnodDBNode2.Parent.Parent.Parent.Text).Indexes(gnodDBNode2.Parent.Text).Properties(VBA.Left(gnodDBNode2.Text, InStr(gnodDBNode2.Text, "="- 1))
MsgBox "'" prpObj.Name & "'" & MSG30, vbExclamation
MsgBox "'" & prpObj.Name & "'" MSG30, vbExclamation
gnodDBNode2.Text = prpObj.Name & "=" prpObj.Value
If prpObj.Name = "Name"hen
SendKeys "%FOO" 'force open database dialog
.FileName = "SYSTEM.MDW"
SaveSetting APP_CATEGORY & "\VisData""Engines", "SystemDB", sTmp
SaveSetting APP_CATEGORY & "\VisData", "Engines""SystemDB", sTmp
SaveSetting APP_CATEGORY & "\VisData", "Engines", "SystemDB"sTmp
stsStatusBar.Panels(2).Text = MSG15 & gwsMainWS.UserName & " "
gdbCurrentDB.Execute ("delete from " sTBLName), dbSQLPassThrough
gdbCurrentDB.Execute ("delete from " sTBLName)
App.HelpFile = "vb98.chm"
x = Val(GetRegistryString("WindowState""2"))
x = Val(GetRegistryString("WindowState", "2"
frmMDI.Left = Val(GetRegistryString("WindowLeft""0"))
frmMDI.Left = Val(GetRegistryString("WindowLeft", "0"
frmMDI.Top = Val(GetRegistryString("WindowTop""0"))
frmMDI.Top = Val(GetRegistryString("WindowTop", "0"
frmMDI.Width = Val(GetRegistryString("WindowWidth""9135"))
frmMDI.Width = Val(GetRegistryString("WindowWidth", "9135"
frmMDI.Height = Val(GetRegistryString("WindowHeight""6900"))
frmMDI.Height = Val(GetRegistryString("WindowHeight", "6900"
DBEngine.IniPath = "HKEY_CURRENT_USER\Software\VB and VBA Program Settings\" APP_CATEGORY & "\" & APPNAME
DBEngine.IniPath = "HKEY_CURRENT_USER\Software\VB and VBA Program Settings\" & APP_CATEGORY & "\" APPNAME
DBEngine.DefaultUser = "admin"
Set gwsMainWS = DBEngine.CreateWorkspace("MainWS""admin", vbNullString)
Set gwsMainWS = DBEngine.CreateWorkspace("MainWS", "admin"vbNullString)
SaveSetting APP_CATEGORY & "\VisData""Engines", "SystemDB", vbNullString
SaveSetting APP_CATEGORY & "\VisData", "Engines""SystemDB", vbNullString
SaveSetting APP_CATEGORY & "\VisData", "Engines", "SystemDB"vbNullString
stsStatusBar.Panels(2).Text = MSG15 & gwsMainWS.UserName & " "
Case "DataControl"
Case "NoDataControl"
Case "DBGrid"
Case "Table"
Case "Dynaset"
Case "Snapshot"
Case "PassThrough"
Case "BeginTrans"
tlbToolBar.Buttons("BeginTrans"Enabled = False
tlbToolBar.Buttons("Commit"Enabled = True
tlbToolBar.Buttons("Rollback"Enabled = True
Case "Rollback"
tlbToolBar.Buttons("BeginTrans"Enabled = True
tlbToolBar.Buttons("Commit"Enabled = False
tlbToolBar.Buttons("Rollback"Enabled = False
Case "Commit"
tlbToolBar.Buttons("BeginTrans"Enabled = True
tlbToolBar.Buttons("Commit"Enabled = False
tlbToolBar.Buttons("Rollback"Enabled = False
MNU_DBOODBC = "&ODBC..."
MNU_DBNODBC = "&ODBC..."
MNU_DBImpExp = "&Import/Export..."
MNU_UGroupsUsers = "&Groups/Users..."
MNU_USystemDB = "&SYSTEM.MD?..."
MSG9 = "Microsoft Access MDBs (*.mdb)|*.mdb|All Files (*.*)|*.*"
ZOOM.FRM had 7 strings moved to the resource file.
BUTTON1 = "&Close"
BUTTON2 = "&Save Changes"
BUTTON3 = "&Close w/o Changes"
Me.Caption = "Zoom"
cmdClose.Caption = "&Close"
cmdSave.Caption = "&Save Changes"
cmdCloseNoSave.Caption = "&Close w/o Changes"
ZOOM.FRM has 2 strings strings remaining in source code.
gsZoomData = "__CANCELLED__"
SendKeys "{End}"
VISDATA.BAS had 112 strings moved to the resource file.
ActionQueryType = "Cross Tab"
ActionQueryType = "Delete"
ActionQueryType = "Update"
ActionQueryType = "Append"
ActionQueryType = "Make Table"
ActionQueryType = "SPT Bulk"
Case "Binary"
Case "Memo"
rListObject.AddItem tdf.Name & " -< Microsoft Access"
rListObject.AddItem tdf.Name & " -< Microsoft Access"
sTmp = "The following Error occurred:" vbCrLf & vbCrLf
stTrueFalse = "True"
stTrueFalse = "False"
frmMDI.mnuDBMRU(x).Caption = "&" x & " " & sTmp
frmMDI.mnuDBMRU(x).Caption = "&" & x & " " sTmp
sTmp = "Table:"
sTmp = "Dynaset:"
sTmp = "Snapshot:"
sTmp = "Passthrough Snapshot:"
sTmp = "Table:"
frmMDI.mnuDBMRU(j).Caption = "&" j & " " & Mid(frmMDI.mnuDBMRU(j - 1).Caption, 4, Len(frmMDI.mnuDBMRU(j - 1).Caption))
frmMDI.mnuDBMRU(j).Caption = "&" & j & " " Mid(frmMDI.mnuDBMRU(j - 1).Caption, 4, Len(frmMDI.mnuDBMRU(j - 1).Caption))
frmMDI.mnuDBMRU(i + 1).Caption = "&" i + 1 & " " & Mid(frmMDI.mnuDBMRU(i).Caption, 4, Len(frmMDI.mnuDBMRU(i).Caption))
frmMDI.mnuDBMRU(i + 1).Caption = "&" & i + 1 & " " Mid(frmMDI.mnuDBMRU(i).Caption, 4, Len(frmMDI.mnuDBMRU(i).Caption))
frmMDI.mnuDBMRU(1).Caption = "&1 " gsDBName
Case "Driver"
Case "Server"
frmMDI.Caption = "VisData"
frmMDI.Caption = "VisData:" sDatabaseName
.Label1.Caption = MSG57 & rsFromTbl & " -<"
MsgBox MSG60 & " '" rsFromTbl & "'", 64
MsgBox MSG60 & " '" & rsFromTbl & "'"64
MsgBar gdbCurrentDB.RecordsAffected & " Rows Imported, Creating Indexes for '" sNewTblName & "'", True
MsgBox MSG64 & "'" sNewTblName & "'.", 64
MsgBox MSG64 & "'" & sNewTblName & "'."64
MSG1 = "Execute Commit or Rollback First."
MSG2 = "Closing Recordsets"
MSG3 = "Table already exists, delete it?"
MSG4 = "Enter New Table Name:"
MSG5 = "Ready"
MSG6 = ", please wait..."
MSG7 = "Refreshing Table List"
MSG8 = "Number: "
MSG9 = "Display the Data Access Errors Collection?"
MSG10 = "Can't Open a Table Object on an Attached Table, Use Dynaset?"
MSG11 = "Opening Attached Table as Dynaset"
MSG12 = "Opening Attached Table as Snapshot"
MSG13 = "Opening Full Table"
MSG14 = "Opening Single Table Dynaset"
MSG15 = "Opening Single Table Snapshot"
MSG16 = "Opening PassThru Snapshot"
MSG18 = "Enter Connect property value:"
MSG19 = "Can't Open a Table Object from a QueryDef, Use Dynaset?"
MSG20 = "Opening Query Snapshot"
MSG21 = "Opening Query Dynaset"
MSG23 = "Execute "
MSG24 = " Query?"
MSG25 = "Executing Query"
MSG26 = " [Not Updatable]"
MSG27 = "Table already exists, Delete it?"
MSG28 = "QueryDef already exists, Delete it?"
MSG29 = "Enter Value for Parameter:"
MSG30 = "There are no current data access errors!"
MSG31 = "Can't show Errors at this time!"
MSG32 = "Data has been changed, Commit it?"
MSG33 = "RollBack All changes?"
MSG34 = "Can't Close with Transactions Pending!"
MSG35 = "You must Close First!"
MSG36 = "Open Microsoft Access Database"
MSG37 = "Open Dbase Database"
MSG38 = "Open FoxPro Database"
MSG39 = "Open Paradox Database"
MSG40 = "Open Excel File"
MSG41 = "Open Btrieve Database"
MSG42 = "Open Text Database"
MSG43 = "Opening Database"
MSG44 = "NOTE: Use of Attached Tables is the Recommended Method"
MSG45 = "Repairing "
MSG46 = "Attempt to Repair it?"
MSG47 = "Enter Directory Name for New ISAM Database:"
MSG48 = "Select Microsoft Access Database to Compact"
MSG51 = "Select Microsoft Access Database to Compact to"
MSG52 = "Encrypt Compacted Database?"
MSG53 = "Compacting "
MSG54 = "Open Newly Compacted Database?"
MSG55 = "Select Microsoft Access Database to Create"
MSG56 = "Exporting Table: "
MSG57 = "Export "
MSG58 = "in "
MSG59 = "Creating Indexes:"
MSG60 = "Successfully Exported:"
MSG62 = "Table already exists - overwrite?"
MSG63 = "Importing Table: "
MSG64 = "Successfully Imported:"
MSG65 = "Invalid Directory Name!"
gsMSACCESS = "Microsoft Access"
gsDBASEIII = "Dbase III;"
gsDBASEIV = "Dbase IV;"
gsDBASE5 = "Dbase 5.0;"
gsFOXPRO20 = "FoxPro 2.0;"
gsFOXPRO25 = "FoxPro 2.5;"
gsFOXPRO26 = "FoxPro 2.6;"
gsFOXPRO30 = "FoxPro 3.0;"
gsPARADOX3X = "Paradox 3.X;"
gsPARADOX4X = "Paradox 4.X;"
gsPARADOX5X = "Paradox 5.X;"
gsBTRIEVE = "Btrieve;"
gsEXCEL30 = "Excel 3.0;"
gsEXCEL40 = "Excel 4.0;"
gsEXCEL50 = "Excel 5.0;"
gsTEXTFILES = "Text;"
APP_CATEGORY = "Microsoft Visual Basic AddIns"
VISDATA.BAS has 240 strings strings remaining in source code.
Public Const gsSQLDB = "ODBC;"
Public Const gsDEFAULT_DRIVER = "SQL Server"'used for registerdatabase
ActionQueryType = "DDL"
ActionQueryType = "SQLPassThrough"
ActionQueryType = "Set Operation"
If InStr(rObjName, " "> 0 And Mid(rObjName, 1, 1) <> "[" Then
If InStr(rObjName, " ") > 0 And Mid(rObjName, 1, 1) <> "["hen
AddBrackets = "[" rObjName & "]"
AddBrackets = "[" & rObjName & "]"
If Forms(i).Tag = "Recordset"hen
If rFldType = "Text"hen
Case "Counter"
Case "Boolean"
Case "Byte"
Case "Integer"
Case "Long"
Case "Currency"
Case "Single"
Case "Double"
Case "Date/Time"
frmMDI.tlbToolBar.Buttons("BeginTrans"Enabled = False
frmMDI.tlbToolBar.Buttons("Commit"Enabled = False
frmMDI.tlbToolBar.Buttons("Rollback"Enabled = False
If Left(tdf.Connect, 1) = ""hen
rListObject.AddItem tdf.Name & " -< " Left(tdf.Connect, InStr(tdf.Connect, ";") - 1)
rListObject.AddItem tdf.Name & " -> " & Left(tdf.Connect, InStr(tdf.Connect, ""- 1)
rListObject.AddItem tdf.Name & " -< ODBC"
If Left(tdf.Connect, 1) = ""hen
rListObject.AddItem tdf.Name & " -< " Left(tdf.Connect, InStr(tdf.Connect, ";") - 1)
rListObject.AddItem tdf.Name & " -> " & Left(tdf.Connect, InStr(tdf.Connect, ""- 1)
rListObject.AddItem tdf.Name & " -< ODBC"
frmMDI.tlbToolBar.Buttons("BeginTrans"Enabled = True
frmMDI.tlbToolBar.Buttons("Commit"Enabled = False
frmMDI.tlbToolBar.Buttons("Rollback"Enabled = False
frmMDI.tlbToolBar.Buttons("Dynaset"Value = tbrPressed
frmMDI.tlbToolBar.Buttons("PassThrough"Visible = True
frmMDI.tlbToolBar.Buttons("Table"Visible = False
frmMDI.tlbToolBar.Buttons("Dynaset"Value = tbrPressed
frmMDI.tlbToolBar.Buttons("PassThrough"Visible = False
frmMDI.tlbToolBar.Buttons("Table"Visible = True
If InStr(rsTblName, "-<"> 0 Then
StripConnect = Left(rsTblName, InStr(rsTblName, "-<"- 2)
If Mid(rsObjName, 1, 1) = "["hen
If Mid(rsFileName, i, 1) = "\"hen
sTmp = sTmp & " "
If InStr(rsTblName, "."> 0 Then
rsTblName = Mid(rsTblName, InStr(rsTblName, "."+ 1, Len(rsTblName))
glQueryTimeout = Val(GetRegistryString("QueryTimeout""5"))
glQueryTimeout = Val(GetRegistryString("QueryTimeout", "5"
glLoginTimeout = Val(GetRegistryString("LoginTimeout""20"))
glLoginTimeout = Val(GetRegistryString("LoginTimeout", "20"
frmMDI.mnuPOpenOnStartup.Checked = Val(GetRegistryString("OpenOnStartup""0"))
frmMDI.mnuPOpenOnStartup.Checked = Val(GetRegistryString("OpenOnStartup", "0"
frmMDI.mnuPAllowSys.Checked = Val(GetRegistryString("AllowSys""0"))
frmMDI.mnuPAllowSys.Checked = Val(GetRegistryString("AllowSys", "0"
sTmp = GetRegistryString("MRUDatabase" x, "")
sTmp = GetRegistryString("MRUConnect" x, "")
gsDataType = GetRegistryString("DataType"vbNullString)
gsDBName = GetRegistryString("DatabaseName"vbNullString)
gsODBCDatasource = GetRegistryString("ODBCDatasource"vbNullString)
gsODBCDatabase = GetRegistryString("ODBCDatabase"vbNullString)
gsODBCUserName = GetRegistryString("ODBCUserName"vbNullString)
gsODBCPassword = GetRegistryString("ODBCPassword"vbNullString)
gsODBCDriver = GetRegistryString("ODBCDriver"vbNullString)
gsODBCServer = GetRegistryString("ODBCServer"vbNullString)
sTmp = GetRegistryString("ViewMode"CStr(gnFORM_NODATACTL))
sTmp = GetRegistryString("RecordsetType"CStr(vbRSTypeDynaset))
frmMDI.tlbToolBar.Buttons("NoDataControl"Value = tbrPressed
frmMDI.tlbToolBar.Buttons("DataControl"Value = tbrPressed
frmMDI.tlbToolBar.Buttons("DBGrid"Value = tbrPressed
frmMDI.tlbToolBar.Buttons("Dynaset"Value = tbrPressed
frmMDI.tlbToolBar.Buttons("Snapshot"Value = tbrPressed
frmMDI.tlbToolBar.Buttons("Table"Value = tbrPressed
frmMDI.tlbToolBar.Buttons("PassThrough"Value = tbrPressed
SaveSetting APP_CATEGORY, APPNAME, "DataType"gsDataType
SaveSetting APP_CATEGORY, APPNAME, "DatabaseName"gsDBName
SaveSetting APP_CATEGORY, APPNAME, "ODBCDatasource"gsODBCDatasource
SaveSetting APP_CATEGORY, APPNAME, "ODBCDatabase"gsODBCDatabase
SaveSetting APP_CATEGORY, APPNAME, "ODBCUserName"gsODBCUserName
SaveSetting APP_CATEGORY, APPNAME, "ODBCPassword"gsODBCPassword
SaveSetting APP_CATEGORY, APPNAME, "ODBCDriver"gsODBCDriver
SaveSetting APP_CATEGORY, APPNAME, "ODBCServer"gsODBCServer
SaveSetting APP_CATEGORY, APPNAME, "QueryTimeout"glQueryTimeout
SaveSetting APP_CATEGORY, APPNAME, "LoginTimeout"glLoginTimeout
SaveSetting APP_CATEGORY, APPNAME, "ViewMode"gnFormType
SaveSetting APP_CATEGORY, APPNAME, "RecordsetType"gnRSType
SaveSetting APP_CATEGORY, APPNAME, "OpenOnStartup"IIf(frmMDI.mnuPOpenOnStartup.Checked, "-1", "0")
SaveSetting APP_CATEGORY, APPNAME, "OpenOnStartup", IIf(frmMDI.mnuPOpenOnStartup.Checked, "-1""0")
SaveSetting APP_CATEGORY, APPNAME, "OpenOnStartup", IIf(frmMDI.mnuPOpenOnStartup.Checked, "-1", "0"
SaveSetting APP_CATEGORY, APPNAME, "AllowSys"IIf(frmMDI.mnuPAllowSys.Checked, "-1", "0")
SaveSetting APP_CATEGORY, APPNAME, "AllowSys", IIf(frmMDI.mnuPAllowSys.Checked, "-1""0")
SaveSetting APP_CATEGORY, APPNAME, "AllowSys", IIf(frmMDI.mnuPAllowSys.Checked, "-1", "0"
SaveSetting APP_CATEGORY, APPNAME, "MRUDatabase" i, Mid(frmMDI.mnuDBMRU(i).Caption, 4, Len(frmMDI.mnuDBMRU(i).Caption))
SaveSetting APP_CATEGORY, APPNAME, "MRUConnect" i, frmMDI.mnuDBMRU(i).Tag
SaveSetting APP_CATEGORY, APPNAME, "MRUDatabase" i, ""
SaveSetting APP_CATEGORY, APPNAME, "MRUConnect" i, ""
SaveSetting APP_CATEGORY, APPNAME, "WindowState"frmMDI.WindowState
SaveSetting APP_CATEGORY, APPNAME, "WindowTop"frmMDI.Top
SaveSetting APP_CATEGORY, APPNAME, "WindowLeft"frmMDI.Left
SaveSetting APP_CATEGORY, APPNAME, "WindowWidth"frmMDI.Width
SaveSetting APP_CATEGORY, APPNAME, "WindowHeight"frmMDI.Height
SaveSetting APP_CATEGORY, APPNAME, "ViewMode"gnFormType
SaveSetting APP_CATEGORY, APPNAME, "RecordsetType"gnRSType
frmMDI.tlbToolBar.Buttons("Dynaset"Value = tbrPressed 'reset to dynaset
.ConnectionString = "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=" gsDBName
.ConnectionString = "Provider=MSDASQL;Data Source=" gsDBName
.ConnectionString = "PROVIDER=MSDASQL;" Mid$(gdbCurrentDB.Connect, 6)
frmMDI.tlbToolBar.Buttons("Dynaset"Value = tbrPressed 'reset to recordset
.ConnectionString = "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=" gsDBName
.ConnectionString = "Provider=MSDASQL;Data Source=" gsDBName
.ConnectionString = "PROVIDER=MSDASQL;" Mid$(gdbCurrentDB.Connect, 6)
sCurrStat = "Row "
sCurrStat = lCnt & " Rows"
sCurrStat = lCurrRec & "/" lCnt
sCurrStat = "(BOF)/" lCnt
sCurrStat = "(EOF)/" lCnt
sCurrStat = lCnt & " Rows"
sCurrStat = lCurrRec & "/" lCnt
sTmp = InputBox(MSG29, "'" prm.Name & "':")
sTmp = InputBox(MSG29, "'" & prm.Name & "':"
If InStr(rsConnect, "="Then
If Mid(rsConnect, i, 1) = ""r i = Len(rsConnect) + 1 Then
If Len(sTmp) > 0 And InStr(sTmp, "="> 0 Then
Select Case Mid(sTmp, 1, InStr(1, sTmp, "="- 1)
Case "DSN"
gsODBCDatasource = Mid(sTmp, InStr(1, sTmp, "="+ 1, Len(sTmp))
Case "DATABASE"
gsODBCDatabase = Mid(sTmp, InStr(1, sTmp, "="+ 1, Len(sTmp))
Case "DBQ"
gsODBCDatabase = Mid(sTmp, InStr(1, sTmp, "="+ 1, Len(sTmp))
Case "UID"
gsODBCUserName = Mid(sTmp, InStr(1, sTmp, "="+ 1, Len(sTmp))
Case "PWD"
gsODBCPassword = Mid(sTmp, InStr(1, sTmp, "="+ 1, Len(sTmp))
gsODBCDriver = Mid(sTmp, InStr(1, sTmp, "="+ 1, Len(sTmp))
gsODBCServer = Mid(sTmp, InStr(1, sTmp, "="+ 1, Len(sTmp))
frmMDI.dlgCMD1.Filter = "Dbase DBs (*.dbf)|*.dbf" MSG50
frmMDI.dlgCMD1.Filter = "FoxPro DBs (*.dbf)|*.dbf" MSG50
frmMDI.dlgCMD1.Filter = "Paradox DBs (*.db)|*.db" MSG50
frmMDI.dlgCMD1.Filter = "Excel Files (*.xls)|*.xls" MSG50
frmMDI.dlgCMD1.Filter = "Btrieve DBs (FILE.DDF)|FILE.DDF" MSG50
frmMDI.dlgCMD1.Filter = "Text Files (*.txt)|*.txt" MSG50
sConnect = "pwd=" frmPWD.PWD
If Mid(sNewName, Len(sNewName), 1) <> "\"hen sNewName = sNewName & "\"
If Mid(sNewName, Len(sNewName), 1) <> "\" Then sNewName = sNewName & "\"
MsgBar MSG53 & sOldName & " -< " sNewName, True
sNewName = Left(sNewName, Len(sNewName) - 1) & "N"
If VBA.Right(sNewName, 1) = "N"hen
If InStr(sNewName, "."= 0 Then
sNewName = sNewName & ".MDB"
Set gExpDB = gwsMainWS.OpenDatabase(vbNullString, 0, 0, "odbc;"
MsgBar MSG56 & "'" rsFromTbl & "'", True
MsgBar MSG56 & "'" & rsFromTbl & "'"True
sConnect = "[;database=" rsToDB & "]."
sConnect = "[;database=" & rsToDB & "]."
sConnect = "[Paradox 3.X;database=" StripFileName(rsToDB) & "]."
sConnect = "[Paradox 3.X;database=" & StripFileName(rsToDB) & "]."
sConnect = "[Paradox 4.X;database=" StripFileName(rsToDB) & "]."
sConnect = "[Paradox 4.X;database=" & StripFileName(rsToDB) & "]."
sConnect = "[FoxPro 2.6;database=" StripFileName(rsToDB) & "]."
sConnect = "[FoxPro 2.6;database=" & StripFileName(rsToDB) & "]."
sConnect = "[FoxPro 2.5;database=" StripFileName(rsToDB) & "]."
sConnect = "[FoxPro 2.5;database=" & StripFileName(rsToDB) & "]."
sConnect = "[FoxPro 2.0;database=" StripFileName(rsToDB) & "]."
sConnect = "[FoxPro 2.0;database=" & StripFileName(rsToDB) & "]."
sConnect = "[dBase IV;database=" StripFileName(rsToDB) & "]."
sConnect = "[dBase IV;database=" & StripFileName(rsToDB) & "]."
sConnect = "[dBase III;database=" StripFileName(rsToDB) & "]."
sConnect = "[dBase III;database=" & StripFileName(rsToDB) & "]."
sConnect = "[Btrieve;database=" rsToDB & "]."
sConnect = "[Btrieve;database=" & rsToDB & "]."
sConnect = "[Excel 5.0;database=" rsToDB & "]."
sConnect = "[Excel 5.0;database=" & rsToDB & "]."
sConnect = "[" gExpDB.Connect & "]."
sConnect = "[" & gExpDB.Connect & "]."
sConnect = "[Text;database=" StripFileName(rsToDB) & "]."
sConnect = "[Text;database=" & StripFileName(rsToDB) & "]."
If Mid(rsToDB, i, 1) = "\"hen
If Mid(sTmp, i, 1) = "."hen
gdbCurrentDB.Execute "select * into " sConnect & StripOwner(sNewTblName) & " from " & StripOwner(rsFromTbl)
gdbCurrentDB.Execute "select * into " & sConnect & StripOwner(sNewTblName) & " from " StripOwner(rsFromTbl)
MsgBar MSG59 & " '" sNewTblName & "'", True
MsgBar MSG59 & " '" & sNewTblName & "'"True
If gnDataType <> gnDT_SQLDB And gsDataType <> "ODBC"hen
sField = Mid(sSQL, 8, InStr(8, UCase(sSQL), "FROM"- 9)
sFrom = " " Mid(sSQL, InStr(UCase(sSQL), "FROM"), Len(sSQL))
sFrom = " " & Mid(sSQL, InStr(UCase(sSQL), "FROM" Len(sSQL))
gdbCurrentDB.Execute "select " sField & " into " & sConnect & sNewTblName & sFrom
gdbCurrentDB.Execute "select " & sField & " into " sConnect & sNewTblName & sFrom
MsgBar MSG63 & "'" sNewTblName & "'", True
MsgBar MSG63 & "'" & sNewTblName & "'"True
sConnect = "[;database=" gImpDB.Name & "]."
sConnect = "[;database=" & gImpDB.Name & "]."
sConnect = "[Paradox 3.X;database=" StripFileName(rsImpTblName) & "]."
sConnect = "[Paradox 3.X;database=" & StripFileName(rsImpTblName) & "]."
sConnect = "[Paradox 4.X;database=" StripFileName(rsImpTblName) & "]."
sConnect = "[Paradox 4.X;database=" & StripFileName(rsImpTblName) & "]."
sConnect = "[FoxPro 2.6;database=" StripFileName(rsImpTblName) & "]."
sConnect = "[FoxPro 2.6;database=" & StripFileName(rsImpTblName) & "]."
sConnect = "[FoxPro 2.5;database=" StripFileName(rsImpTblName) & "]."
sConnect = "[FoxPro 2.5;database=" & StripFileName(rsImpTblName) & "]."
sConnect = "[FoxPro 2.0;database=" StripFileName(rsImpTblName) & "]."
sConnect = "[FoxPro 2.0;database=" & StripFileName(rsImpTblName) & "]."
sConnect = "[dBase IV;database=" StripFileName(rsImpTblName) & "]."
sConnect = "[dBase IV;database=" & StripFileName(rsImpTblName) & "]."
sConnect = "[dBase III;database=" StripFileName(rsImpTblName) & "]."
sConnect = "[dBase III;database=" & StripFileName(rsImpTblName) & "]."
sConnect = "[Btrieve;database=" gImpDB.Name & "]."
sConnect = "[Btrieve;database=" & gImpDB.Name & "]."
sConnect = "[Excel 5.0;database=" gImpDB.Name & "]."
sConnect = "[Excel 5.0;database=" & gImpDB.Name & "]."
sConnect = "[" gImpDB.Connect & "]."
sConnect = "[" & gImpDB.Connect & "]."
sConnect = "[Text;database=" StripFileName(rsImpTblName) & "]."
sConnect = "[Text;database=" & StripFileName(rsImpTblName) & "]."
gdbCurrentDB.Execute "select * into " sNewTblName & " from " & sConnect & sOldTblName
gdbCurrentDB.Execute "select * into " & sNewTblName & " from " sConnect & sOldTblName
MsgBar gdbCurrentDB.RecordsAffected & " Rows Imported, Creating Indexes for '" & sNewTblName & "'"True
i = InStr(1, fname, "."
tmp = Mid(fname, 1, i - 1) & "_" Mid(fname, i + 1, Len(fname))
ElseIf InStr(fname, "\"> 0 Then
If Mid(fname, i, 1) = "\"hen
i = InStr(1, tmp, "."
hInstance = LoadLibraryEx("VB6IDE.DLL"0&, LOAD_LIBRARY_AS_DATAFILE)
GetVbIdeLocale = Val("&H" sLocale)
MSG17 = "Is this a SQLPassThrough Query?"
MSG22 = "SQL Statement"
MSG49 = "Microsoft Access MDBs (*.mdb)|*.mdb"
MSG50 = "|All Files (*.*)|*.*"
MSG61 = "Successfully Exported SQL Statement."
APPNAME = "VisData6"
TABLE_STR = "Table"
ATTACHED_STR = "Attached"
QUERY_STR = "Query"
FIELD_STR = "Field"
FIELDS_STR = "Fields"
INDEX_STR = "Index"
INDEXES_STR = "Indexes"
PROPERTY_STR = "Property"
PROPERTIES_STR = "Properties"
VDCLASS.CLS had no strings moved to the resource file.
VDCLASS.CLS has 1 string strings remaining in source code.
SendKeys "%FOO{Enter}"