mainmdiform.frm

供销信息查询系统

End
End Sub

Private Sub file1_Click()
file1.Checked = True
file2.Checked = False
file3.Checked = False
file4.Checked = False
If che1 = 1 Then
   mainmdiform.Toolbar1.Buttons(10).Enabled = False
   mainmdiform.Toolbar1.Buttons(11).Enabled = False
End If
If pass1 = 1 Then
   Unload passwordaddform
   pass1 = 0
End If
If xiaochuocha1 = 1 Then
   Unload xiaochuocha
   xiaochuocha1 = 0
End If
If chunjiacha1 = 1 Then
   Unload chunjiacha
   chunjiacha1 = 0
End If
If chanpincha1 = 1 Then
   Unload chanpincha
   chanpincha1 = 0
End If
If unioform1 = 1 Then
   Unload unioncha1
   unioform1 = 0
End If
If unioform2 = 1 Then
   Unload unioncha2
   unioform2 = 0
End If
If chatform11 = 1 Then
   Unload chatform1
   chatform11 = 0
End If
If chatform21 = 1 Then
   Unload chatform2
   chatform21 = 0
End If
mainform.SSTab1.Tab = 0
mainmdiform.StatusBar1.SimpleText = "正在查阅... ...厂家表"
End Sub

Private Sub file2_Click()
file1.Checked = False
file2.Checked = True
file3.Checked = False
file4.Checked = False
If che1 = 1 Then
   mainmdiform.Toolbar1.Buttons(10).Enabled = False
   mainmdiform.Toolbar1.Buttons(11).Enabled = False
End If
If pass1 = 1 Then
   Unload passwordaddform
   pass1 = 0
End If
If xiaochuocha1 = 1 Then
   Unload xiaochuocha
   xiaochuocha1 = 0
End If
If chunjiacha1 = 1 Then
   Unload chunjiacha
   chunjiacha1 = 0
End If
If chanpincha1 = 1 Then
   Unload chanpincha
   chanpincha1 = 0
End If
If unioform1 = 1 Then
   Unload unioncha1
   unioform1 = 0
End If
If unioform2 = 1 Then
   Unload unioncha2
   unioform2 = 0
End If
If chatform11 = 1 Then
   Unload chatform1
   chatform11 = 0
End If
If chatform21 = 1 Then
   Unload chatform2
   chatform21 = 0
End If
mainform.SSTab1.Tab = 1
mainmdiform.StatusBar1.SimpleText = "正在查阅... ...产品表"
End Sub

Private Sub file3_Click()
file1.Checked = False
file2.Checked = False
file3.Checked = True
file4.Checked = False
If che1 = 1 Then
   mainmdiform.Toolbar1.Buttons(10).Enabled = False
   mainmdiform.Toolbar1.Buttons(11).Enabled = False
End If
If pass1 = 1 Then
   Unload passwordaddform
   pass1 = 0
End If
If xiaochuocha1 = 1 Then
   Unload xiaochuocha
   xiaochuocha1 = 0
End If
If chunjiacha1 = 1 Then
   Unload chunjiacha
   chunjiacha1 = 0
End If
If chanpincha1 = 1 Then
   Unload chanpincha
   chanpincha1 = 0
End If
If unioform1 = 1 Then
   Unload unioncha1
   unioform1 = 0
End If
If unioform2 = 1 Then
   Unload unioncha2
   unioform2 = 0
End If
If chatform11 = 1 Then
   Unload chatform1
   chatform11 = 0
End If
If chatform21 = 1 Then
   Unload chatform2
   chatform21 = 0
End If
mainform.SSTab1.Tab = 2
mainmdiform.StatusBar1.SimpleText = "正在查阅... ...销售表"
End Sub

Private Sub file4_Click()
file1.Checked = False
file2.Checked = False
file3.Checked = False
file4.Checked = True
mainmdiform.Toolbar1.Buttons(7).Enabled = False
If che1 = 1 Then
   mainmdiform.Toolbar1.Buttons(10).Enabled = False
   mainmdiform.Toolbar1.Buttons(11).Enabled = False
End If
If pass1 = 1 Then
   Unload passwordaddform
   pass1 = 0
End If
If xiaochuocha1 = 1 Then
   Unload xiaochuocha
   xiaochuocha1 = 0
End If
If chunjiacha1 = 1 Then
   Unload chunjiacha
   chunjiacha1 = 0
End If
If chanpincha1 = 1 Then
   Unload chanpincha
   chanpincha1 = 0
End If
If unioform1 = 1 Then
   Unload unioncha1
   unioform1 = 0
End If
If unioform2 = 1 Then
   Unload unioncha2
   unioform2 = 0
End If
If chatform11 = 1 Then
   Unload chatform1
   chatform11 = 0
End If
If chatform21 = 1 Then
   Unload chatform2
   chatform21 = 0
End If
mainform.SSTab1.Tab = 3
mainmdiform.StatusBar1.SimpleText = "正在查阅... ...商场表"
End Sub

Private Sub Form_Load()
loadform.Show
End Sub

Private Sub ifcheck_Click()
mainmdiform.file1.Checked = False
mainmdiform.file2.Checked = False
mainmdiform.file3.Checked = False
mainmdiform.file4.Checked = False
If sst <> 4 Then
Unload mainform
mainform1 = 0
End If
If pass1 = 1 Then
   Exit Sub
End If
If unioform1 = 1 Then
   Exit Sub
End If
If unioform2 = 1 Then
   Exit Sub
End If
If chatform11 = 1 Then
   Exit Sub
End If
If chatform21 = 1 Then
   Exit Sub
End If
If sst = 4 Then
   Exit Sub
End If
If sst = 1 Then
chunjiacha.Show
End If
If sst = 2 Then
chanpincha.Show
End If
If sst = 3 Then
xiaochuocha.Show
End If
End Sub

Private Sub MDIForm_Activate()
If aaa = 1 Then
   Unload aboatform
   aaa = 0
End If
If che1 = 1 Then
   mainmdiform.Toolbar1.Buttons(10).Enabled = False
   mainmdiform.Toolbar1.Buttons(11).Enabled = False
End If
End Sub

Private Sub MDIForm_Unload(Cancel As Integer)
End
End Sub

Private Sub print1_Click()
If chatform11 = 1 Then
   On Error Resume Next
   CommonDialog1.ShowPrinter
   chatform1.MSChart1.EditCopy
   Printer.PaintPicture Clipboard.GetData, 100, 100
   Printer.EndDoc
End If
If chatform21 = 1 Then
   On Error Resume Next
   CommonDialog1.ShowPrinter
   chatform2.MSChart1.EditCopy
   Printer.PaintPicture Clipboard.GetData, 100, 100
   Printer.EndDoc
End If
End Sub

Private Sub repor1_Click()
On Error Resume Next
DataReport1.Show
End Sub

Private Sub repor2_Click()
On Error Resume Next
DataReport2.Show
End Sub

Private Sub repor3_Click()
On Error Resume Next
DataReport3.Show
End Sub

Private Sub repor4_Click()
On Error Resume Next
DataReport4.Show
End Sub

Private Sub tabel1_Click()
mainmdiform.file1.Checked = False
mainmdiform.file2.Checked = False
mainmdiform.file3.Checked = False
mainmdiform.file4.Checked = False
If pass1 = 1 Then
   Unload passwordaddform
   pass1 = 0
End If
If mainform1 = 1 Then
   Unload mainform
   mainform1 = 0
End If
If wordfindform1 = 1 Then
   Unload wordfindform
   wordfindform1 = 0
End If
If xiaochuocha1 = 1 Then
   Unload xiaochuocha
   xiaochuocha1 = 0
End If
If chunjiacha1 = 1 Then
   Unload chunjiacha
   chunjiacha1 = 0
End If
If chanpincha1 = 1 Then
   Unload chanpincha
   chanpincha1 = 0
End If
If unioform1 = 1 Then
   Unload unioncha1
   unioform1 = 0
End If
If unioform2 = 1 Then
   Unload unioncha2
   unioform2 = 0
End If
If chatform21 = 1 Then
   Unload chatform2
   chatform21 = 0
End If
chatform1.Show
End Sub

Private Sub table2_Click()
mainmdiform.file1.Checked = False
mainmdiform.file2.Checked = False
mainmdiform.file3.Checked = False
mainmdiform.file4.Checked = False
If pass1 = 1 Then
   Unload passwordaddform
   pass1 = 0
End If
If mainform1 = 1 Then
   Unload mainform
   mainform1 = 0
End If
If wordfindform1 = 1 Then
   Unload wordfindform
   wordfindform1 = 0
End If
If xiaochuocha1 = 1 Then
   Unload xiaochuocha
   xiaochuocha1 = 0
End If
If chunjiacha1 = 1 Then
   Unload chunjiacha
   chunjiacha1 = 0
End If
If chanpincha1 = 1 Then
   Unload chanpincha
   chanpincha1 = 0
End If
If unioform1 = 1 Then
   Unload unioncha1
   unioform1 = 0
End If
If unioform2 = 1 Then
   Unload unioncha2
   unioform2 = 0
End If
If chatform11 = 1 Then
   Unload chatform1
   chatform11 = 0
End If
chatform2.Show
End Sub

Private Sub tool_Click()
If Toolbar1.Visible = True Then
   Toolbar1.Visible = False
   tool.Checked = False
   Exit Sub
End If
If Toolbar1.Visible = False Then
   Toolbar1.Visible = True
   tool.Checked = True
   Exit Sub
End If
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
  If Button.Index = 1 Then
    file1_Click
  End If
  If Button.Index = 2 Then
    file2_Click
  End If
  If Button.Index = 3 Then
    file3_Click
  End If
  If Button.Index = 4 Then
    file4_Click
  End If
  If Button.Index = 6 Then
    wordcheck_Click
  End If
  If Button.Index = 7 Then
    ifcheck_Click
  End If
  If Button.Index = 8 Then
     changefind_Click
  End If
  If Button.Index = 10 Then
    addnew_Click
  End If
  If Button.Index = 11 Then
    delnew_Click
  End If
  If Button.Index = 13 Then
    tabel1_Click
  End If
  If Button.Index = 14 Then
    table2_Click
  End If
  If Button.Index = 16 Then
    repor1_Click
  End If
  If Button.Index = 17 Then
    repor2_Click
  End If
  If Button.Index = 18 Then
    repor3_Click
  End If
  If Button.Index = 19 Then
    repor4_Click
  End If
  If Button.Index = 22 Then
    aboat_Click
  End If
End Sub

Private Sub wordcheck_Click()
If pass1 = 1 Then
   Exit Sub
End If
If unioform1 = 1 Then
   Exit Sub
End If
If unioform2 = 1 Then
   Exit Sub
End If
If chatform11 = 1 Then
   Exit Sub
End If
If chatform21 = 1 Then
   Exit Sub
End If
If chanpincha1 = 1 Then
   Exit Sub
End If
If chunjiacha1 = 1 Then
   Exit Sub
End If
If xiaochuocha1 = 1 Then
   Exit Sub
End If
wordfindform.Show
End Sub
Private Sub MDIForm_Load()
add1 = 0
del1 = 0
var1 = -1
mainform.SSTab1.Tab = 0
tool.Checked = True
mainmdiform.Visible = False
mainmdiform.Width = 9075
mainmdiform.Height = 6105
mainmdiform.tool.Checked = True
End Sub

Private Sub MDIForm_Resize()
If mainmdiform.WindowState = 2 Then
   mainmdiform.WindowState = 0
End If
If mainmdiform.WindowState <> 1 Then
mainmdiform.Width = 9075
mainmdiform.Height = 6105
End If
If mainmdiform.WindowState = 1 Then
Unload chanpinform
Unload chunjiaform
Unload wordfindform
Unload xianchianform
Unload xiaochuoform
End If
End Sub