?? 高級查詢.frm
字號:
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 180
TabIndex = 1
Top = 180
Width = 1155
End
End
End
Attribute VB_Name = "高級查詢"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private pretext As String '上一次sql語句
Private Sub Form_Load()
Adodc1.ConnectionString = DataConnectString
Adodc1.Visible = False
SQL.Text = "select * from "
表單.Text = "貨物信息"
SQL.SelStart = Len(SQL.Text)
End Sub
Private Sub Form_Resize()
DataGrid1.width = Me.width - 440
DataGrid1.Height = Me.Height - Picture1.Height - 600
End Sub
Private Sub 表單_GotFocus()
字段.Clear
End Sub
Private Sub 撤消字符_Click()
SQL.Text = pretext
End Sub
Private Sub 打印_Click()
ShowPrintDlg Adodc1, "高級查詢"
End Sub
Private Sub 添加表單字符_Click()
pretext = SQL.Text
SQL.Text = left$(SQL.Text, SQL.SelStart) + 表單.Text + Right$(SQL.Text, Len(SQL.Text) - SQL.SelStart)
End Sub
Private Sub 添加到自定義查詢_Click()
Dim f As New 自定義查詢管理
f.SQL.Text = SQL.Text
f.Show vbModal
Unload f
fMainForm.更新自定義查詢菜單
End Sub
Private Sub 添加字段字符_Click()
pretext = SQL.Text
SQL.Text = left$(SQL.Text, SQL.SelStart) + 字段.Text + Right$(SQL.Text, Len(SQL.Text) - SQL.SelStart)
End Sub
Private Sub 執行查詢_Click()
Dim s As String
s = SQL.Text
s = LCase(s)
If s = "" Then MsgBox "請填寫SQL語句!": Exit Sub
If InStr(1, s, "update") <> 0 _
Or InStr(1, s, "delete") <> 0 _
Or InStr(1, s, "create") <> 0 _
Or InStr(1, s, "alter") <> 0 _
Or InStr(1, s, "drop") <> 0 _
Then MsgBox "SQL語句包含不安全的語句!": Exit Sub
On Error Resume Next
Adodc1.RecordSource = SQL.Text
Set DataGrid1.DataSource = Adodc1
Adodc1.Refresh
Dim i As Integer
For i = 0 To DataGrid1.Columns.count - 1
DataGrid1.Columns(i).width = Len(DataGrid1.Columns(i).caption) * 250
Next
End Sub
Private Sub 字段_GotFocus()
If 表單.Text = "貨物信息" Then
字段.AddItem "編號"
字段.AddItem "貨物名稱"
字段.AddItem "貨物類別"
字段.AddItem "貨物規格"
字段.AddItem "入庫單價"
字段.AddItem "出庫單價"
字段.AddItem "計量單位"
字段.AddItem "最低限量"
字段.AddItem "最高限量"
字段.AddItem "備注"
ElseIf 表單.Text = "貨物類別" Then
字段.AddItem "類別名稱"
字段.AddItem "增值稅"
ElseIf 表單.Text = "職員信息" Then
字段.AddItem "編號"
字段.AddItem "姓名"
字段.AddItem "性別"
字段.AddItem "頭銜"
字段.AddItem "電話號碼"
字段.AddItem "手機"
字段.AddItem "通迅地址"
字段.AddItem "郵政編碼"
字段.AddItem "備注"
ElseIf 表單.Text = "公司信息" Then
字段.AddItem "編號"
字段.AddItem "公司名稱"
字段.AddItem "地址"
字段.AddItem "城市"
字段.AddItem "省份"
字段.AddItem "郵政編碼"
字段.AddItem "國家"
字段.AddItem "電話號碼"
字段.AddItem "電子郵件"
字段.AddItem "傳真號碼"
字段.AddItem "開戶銀行"
字段.AddItem "銀行帳號"
字段.AddItem "業務描述"
ElseIf 表單.Text = "供應商" Then
字段.AddItem "編號"
字段.AddItem "供應商名稱"
字段.AddItem "聯系人姓名"
字段.AddItem "聯系人職稱"
字段.AddItem "地址"
字段.AddItem "城市"
字段.AddItem "郵政編碼"
字段.AddItem "省份"
字段.AddItem "國家"
字段.AddItem "電話號碼"
字段.AddItem "傳真號碼"
字段.AddItem "電子郵件"
字段.AddItem "開戶銀行"
字段.AddItem "銀行帳號"
字段.AddItem "業務描述"
ElseIf 表單.Text = "客戶" Then
字段.AddItem "編號"
字段.AddItem "客戶名稱"
字段.AddItem "聯系人"
字段.AddItem "電話號碼"
字段.AddItem "手機"
字段.AddItem "傳真號碼"
字段.AddItem "通迅地址"
字段.AddItem "郵政編碼"
字段.AddItem "開戶銀行"
字段.AddItem "銀行帳號"
字段.AddItem "備注"
ElseIf 表單.Text = "庫存狀況" Then
字段.AddItem "編號"
字段.AddItem "貨物編號"
字段.AddItem "庫存數量"
字段.AddItem "倉庫編號"
ElseIf 表單.Text = "倉庫" Then
字段.AddItem "編號"
字段.AddItem "倉庫名稱"
字段.AddItem "倉庫地點"
字段.AddItem "保管員編號"
字段.AddItem "備注"
ElseIf 表單.Text = "入庫單" Then
字段.AddItem "編號"
字段.AddItem "貨物編號"
字段.AddItem "經辦人編號"
字段.AddItem "入庫時間"
字段.AddItem "入庫單價"
字段.AddItem "計量單位"
字段.AddItem "入庫數量"
字段.AddItem "供應商編號"
字段.AddItem "倉庫編號"
字段.AddItem "定單狀況"
字段.AddItem "備注"
ElseIf 表單.Text = "出庫單" Then
字段.AddItem "編號"
字段.AddItem "貨物編號"
字段.AddItem "經辦人編號"
字段.AddItem "出庫時間"
字段.AddItem "出庫單價"
字段.AddItem "出庫數量"
字段.AddItem "金額"
字段.AddItem "供應商編號"
字段.AddItem "倉庫編號"
字段.AddItem "定單狀況"
字段.AddItem "備注"
ElseIf 表單.Text = "借入單" Then
字段.AddItem "編號"
字段.AddItem "貨物編號"
字段.AddItem "經辦人編號"
字段.AddItem "借入時間"
字段.AddItem "借入單價"
字段.AddItem "借入數量"
字段.AddItem "供應商編號"
字段.AddItem "倉庫編號"
字段.AddItem "定單狀況"
字段.AddItem "備注"
ElseIf 表單.Text = "借出單" Then
字段.AddItem "編號"
字段.AddItem "貨物編號"
字段.AddItem "經辦人編號"
字段.AddItem "借出時間"
字段.AddItem "借出單價"
字段.AddItem "借出數量"
字段.AddItem "供應商編號"
字段.AddItem "倉庫編號"
字段.AddItem "定單狀況"
字段.AddItem "備注"
ElseIf 表單.Text = "調拔單" Then
字段.AddItem "編號"
字段.AddItem "貨物編號"
字段.AddItem "經辦人編號"
字段.AddItem "調拔時間"
字段.AddItem "調拔單價"
字段.AddItem "調拔數量"
字段.AddItem "原倉庫編號"
字段.AddItem "目標倉庫編號"
字段.AddItem "備注"
ElseIf 表單.Text = "報損單" Then
字段.AddItem "編號"
字段.AddItem "貨物編號"
字段.AddItem "經辦人編號"
字段.AddItem "入庫時間"
字段.AddItem "報損數量"
字段.AddItem "定單狀況"
字段.AddItem "備注"
ElseIf 表單.Text = "盤點單" Then
字段.AddItem "編號"
字段.AddItem "倉庫編號"
字段.AddItem "經辦人編號"
字段.AddItem "盤點時間"
ElseIf 表單.Text = "用戶管理" Then
字段.AddItem "編號"
字段.AddItem "用戶名"
字段.AddItem "用戶密碼"
字段.AddItem "用戶權限"
ElseIf 表單.Text = "系統日志" Then
字段.AddItem "編號"
字段.AddItem "用戶名"
字段.AddItem "操作時間"
字段.AddItem "操作內容"
End If
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -