高级查询.frm

内容摘要:在现代企业中

         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


'此源码由程序太平洋收集整理发布,任何人都可自由转载,但需保留本站信息
'╭⌒╮┅~ ¤　欢迎光临程序太平洋╭⌒╮
'╭⌒╭⌒╮╭⌒╮～╭⌒╮  ︶  ,︶︶
',︶︶︶︶,''︶~~ ,''~︶︶　 ,''
'╔　╱◥███◣═╬╬╬╬╬╬╬╬╬╗
'╬ ︱田︱田 田 ︱　　　　　　　　　 ╬
'╬　　　　　　　http://www.5ivb.net ╬
'╬　 ╭○╮●　                   　╬
'╬　　/■\/■\　　                  ╬
'╬　　 <|　||　   有希望,就有成功！ ╬
'╬　　　　　　　　　　　　　　　　　╬
'╚╬╬╬╬╬╬╬╬╬╬╗  ╔╬╬╬╬╝
'
'说明：
'专业提供VB、．NET、Delphi、ASP、PB源码下载
'包括:程序源码,控件,商业源码,系统方案，开发工具，书籍教程，技术文档