VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.MDIForm frmMain 
   BackColor       =   &H8000000C&
   Caption         =   "工業(yè)企業(yè)進(jìn)銷存系統(tǒng)"
   ClientHeight    =   5715
   ClientLeft      =   165
   ClientTop       =   1155
   ClientWidth     =   8490
   Icon            =   "frmMain.frx":0000
   LinkTopic       =   "MDIForm1"
   Picture         =   "frmMain.frx":08CA
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   Begin MSComctlLib.StatusBar sbStatusBar 
      Align           =   2  'Align Bottom
      Height          =   270
      Left            =   0
      TabIndex        =   0
      Top             =   5445
      Width           =   8490
      _ExtentX        =   14975
      _ExtentY        =   476
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   6
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            AutoSize        =   1
            Object.Width           =   1305
            MinWidth        =   1305
            Text            =   "Status"
            TextSave        =   "Status"
         EndProperty
         BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   6
            AutoSize        =   2
            TextSave        =   "2007-4-27"
         EndProperty
         BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   5
            AutoSize        =   2
            TextSave        =   "17:39"
         EndProperty
         BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Object.Width           =   5010
            MinWidth        =   5010
            Text            =   "作者QQ:16968526 452831478"
            TextSave        =   "作者QQ:16968526 452831478"
         EndProperty
         BeginProperty Panel5 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Object.Width           =   6068
            MinWidth        =   6068
            Text            =   "郵箱：tqw1215@163.com"
            TextSave        =   "郵箱：tqw1215@163.com"
         EndProperty
         BeginProperty Panel6 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Object.Width           =   6068
            MinWidth        =   6068
            Text            =   "歡迎使用工廠訂單管理系統(tǒng)"
            TextSave        =   "歡迎使用工廠訂單管理系統(tǒng)"
         EndProperty
      EndProperty
   End
   Begin VB.Menu menuSystem 
      Caption         =   "系統(tǒng)(&S)"
      Begin VB.Menu menulogon 
         Caption         =   "注銷(&Z)"
      End
      Begin VB.Menu menuExit 
         Caption         =   "退出(&X)"
      End
   End
   Begin VB.Menu menuSetup 
      Caption         =   "基本信息設(shè)置(&I)"
      Begin VB.Menu menuWZSetup 
         Caption         =   "產(chǎn)品設(shè)置(&S)"
      End
      Begin VB.Menu menuWZLB 
         Caption         =   "產(chǎn)品類別設(shè)置(&P)"
      End
      Begin VB.Menu menuGFSetup 
         Caption         =   "供應(yīng)商設(shè)置(&G)"
      End
      Begin VB.Menu menuKHSetup 
         Caption         =   "客戶設(shè)置(&K)"
      End
      Begin VB.Menu menuYWYLB 
         Caption         =   "業(yè)務(wù)員類別設(shè)置(&Y)"
      End
      Begin VB.Menu menuYWYSetup 
         Caption         =   "業(yè)務(wù)員設(shè)置(&W)"
      End
      Begin VB.Menu menuCKSetup 
         Caption         =   "倉庫設(shè)置(&C)"
      End
   End
   Begin VB.Menu menuCustomerinfo 
      Caption         =   "進(jìn)貨信息管理(&J)"
      Begin VB.Menu menuCtype 
         Caption         =   "訂貨單錄入修改(&D)"
      End
      Begin VB.Menu menuCustomer 
         Caption         =   "入庫單錄入修改(&R)"
      End
      Begin VB.Menu menuInquire 
         Caption         =   "信息查詢(&X)"
         Begin VB.Menu menuInquireGF 
            Caption         =   "查供方進(jìn)貨(&H)"
         End
         Begin VB.Menu menuInqireWZCK 
            Caption         =   "查物資、倉庫進(jìn)貨(&H)"
         End
         Begin VB.Menu menuInquireYWY 
            Caption         =   "查業(yè)務(wù)員進(jìn)貨(&J)"
         End
      End
   End
   Begin VB.Menu menuProduct 
      Caption         =   "生產(chǎn)信息管理(&S)"
      Begin VB.Menu menuPl 
         Caption         =   "配料單錄入修改(&P)"
      End
      Begin VB.Menu menuPlan 
         Caption         =   "生產(chǎn)計(jì)劃單錄入修改(&S)"
      End
      Begin VB.Menu menuZZ 
         Caption         =   "組裝單錄入修改(&Z)"
      End
      Begin VB.Menu menuInquireProduct 
         Caption         =   "信息查詢"
      End
   End
   Begin VB.Menu menuMticket 
      Caption         =   "銷售信息管理"
      Begin VB.Menu menuBookticket 
         Caption         =   "訂單錄入修改"
      End
      Begin VB.Menu menuXSD 
         Caption         =   "銷售單錄入修改"
      End
      Begin VB.Menu menuInquireO 
         Caption         =   "信息查詢"
         Begin VB.Menu menuInquireOKH 
            Caption         =   "查客戶銷售"
         End
         Begin VB.Menu menuOWZCK 
            Caption         =   "查物資、倉庫銷售"
         End
         Begin VB.Menu menuInquireOYWY 
            Caption         =   "查業(yè)務(wù)員銷售"
         End
      End
   End
   Begin VB.Menu menuKucun 
      Caption         =   "庫存信息管理"
      Begin VB.Menu menuZhuanCang 
         Caption         =   "轉(zhuǎn)倉單錄入修改"
      End
      Begin VB.Menu menuInquireKUCUN 
         Caption         =   "信息查詢"
         Begin VB.Menu menuInquireOKUCUN 
            Caption         =   "查轉(zhuǎn)出"
         End
         Begin VB.Menu menuInquireIKUCUN 
            Caption         =   "查轉(zhuǎn)入"
         End
         Begin VB.Menu menuInquireIOKUCUN 
            Caption         =   "查轉(zhuǎn)入轉(zhuǎn)出"
         End
      End
      Begin VB.Menu menuPANDIAN 
         Caption         =   "產(chǎn)品盤點(diǎn)"
      End
   End
   Begin VB.Menu menuCAIWU 
      Caption         =   "財(cái)務(wù)"
      Begin VB.Menu menuGet 
         Caption         =   "應(yīng)收"
      End
      Begin VB.Menu menuOffer 
         Caption         =   "應(yīng)付"
      End
   End
   Begin VB.Menu menugame 
      Caption         =   "工具游戲(&G)"
      Begin VB.Menu menutool 
         Caption         =   "工具軟件(&T)"
      End
      Begin VB.Menu menuRussia 
         Caption         =   "俄羅斯方塊(&E)"
      End
   End
   Begin VB.Menu menuHelp 
      Caption         =   "幫助(&H)"
      Begin VB.Menu menuAbout 
         Caption         =   "關(guān)于(&A)"
      End
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub MDIForm_Load()
    Me.Left = GetSetting(App.Title, "Settings", "MainLeft", 1000)
    Me.Top = GetSetting(App.Title, "Settings", "MainTop", 1000)
    Me.Width = GetSetting(App.Title, "Settings", "MainWidth", 6500)
    Me.Height = GetSetting(App.Title, "Settings", "MainHeight", 6500)
   
End Sub




Private Sub MDIForm_Unload(Cancel As Integer)
    If Me.WindowState <> vbMinimized Then
        SaveSetting App.Title, "Settings", "MainLeft", Me.Left
        SaveSetting App.Title, "Settings", "MainTop", Me.Top
        SaveSetting App.Title, "Settings", "MainWidth", Me.Width
        SaveSetting App.Title, "Settings", "MainHeight", Me.Height
    End If
End Sub



Private Sub menuAbout_Click()
    frmAbout.Show
End Sub

Private Sub menuBookticket_Click()
    frmXSDH.txtSQL = "select xsdh_no,out_date,ywman,khdm,wzdm,sl,out_danj,o_zk,o_zke,bz from xsdh"
    frmXSDH.Show 0
End Sub

Private Sub menuCKSetup_Click()
    frmCKSetup.txtSQL = "select * from dm_ck"
    frmCKSetup.Show 0
End Sub

Private Sub menuCtype_Click()
    frmdh.txtSQL = "select dh_no,in_date,ywman,gfdm,wzdm,sl,in_danj,i_zk,i_zke,bz from dh"
    frmdh.Show 0
End Sub

Private Sub menuCustomer_Click()
    frmINH.txtSQL = "select inh_no,in_date,ywman,gfdm,ckdm,wzdm,sl,in_danj,i_zk,i_zke,jsfk,jz,yf,bz from inh where bz1 is null"
    frmINH.Show 0
End Sub

Private Sub menuExit_Click()
    Unload Me
End Sub

Private Sub menuFENLEI_Click()
    frmInquireMINGXI2.Show 1
End Sub

Private Sub menuGet_Click()
    frmGET.txtSQL = "select outh.outh_no,outh.out_date,outh.khdm,dm_kh.mc,outh.wzdm,dm_wz.mc,outh.sl,outh.out_danj,outh.o_zk,outh.o_zke,outh.jz,outh.yf,outh.bz from outh inner join dm_kh on outh.khdm = dm_kh.dm inner join dm_wz on outh.wzdm = dm_wz.dm where outh.jsfk <> 'Y'"
    frmGET.Show 0
End Sub

Private Sub menuGFSetup_Click()
    frmGF.txtSQL = "select * from dm_gf"
    frmGF.Show 0
End Sub

Private Sub menuInqireWZCK_Click()
    frmInquireCK2.Show 1
End Sub

Private Sub menuInquireGF_Click()
    frmInquireGF2.Show 1
End Sub

Private Sub menuInquireIKUCUN_Click()
    frmInquireIZC2.Show 1
End Sub

Private Sub menuInquireIOKUCUN_Click()
    frmInquireIOZC2.Show 1
End Sub

Private Sub menuInquireOKH_Click()
    frmInquireOKH2.Show 1
End Sub

Private Sub menuInquireOKUCUN_Click()
    frmInquireOZC2.Show 1
End Sub

Private Sub menuInquireOYWY_Click()
    frmInquireOYWY2.Show 1
End Sub

Private Sub menuInquireProduct_Click()
    frmInquireZZ2.Show 1
End Sub

Private Sub menuInquireYWY_Click()
    frmInquireYWY2.Show 1
End Sub

Private Sub menuKHSetup_Click()
    frmKHSetup.txtSQL = "select * from dm_kh"
    frmKHSetup.Show 0
End Sub

Private Sub menuModifypwd_Click()
    frmModifyuserinfo.Show
End Sub

Private Sub menulogon_Click()
Unload Me
frmLogin.Show
End Sub

Private Sub menuOffer_Click()
    frmOFFER.txtSQL = "select inh.inh_no,inh.in_date,inh.gfdm,dm_gf.mc,inh.wzdm,dm_wz.mc,inh.sl,inh.in_danj,inh.i_zk,inh.i_zke,inh.jz,inh.yf,inh.bz from inh inner join dm_gf on inh.gfdm = dm_gf.dm inner join dm_wz on inh.wzdm = dm_wz.dm where inh.jsfk <> 'Y'"
    frmOFFER.Show 0
End Sub

Private Sub menuOWZCK_Click()
    frmInquireOCK2.Show 1
End Sub

Private Sub menuPANDIAN_Click()
    frmInquireMINGXI2.Show 1
End Sub

Private Sub menuPl_Click()
    frmMATELIST.txtSQL = "select distinct mate.m_no,mate.m_date,mate.wzdm1,mate.wzmc1,mate.jldw1,dm_ywy.mc,mate.bz from mate inner join dm_ywy on mate.ywdm = dm_ywy.dm"
    frmMATELIST.Show 0
End Sub

Private Sub menuPlan_Click()
    frmPLANGLIST.txtSQL = "select * from plang"
    frmPLANGLIST.Show 0
End Sub

Private Sub menuRussia_Click()
Shell App.Path & "\tools\Russia.exe", vbNormalFocus
End Sub

Private Sub menutool_Click()
    Shell App.Path & "\tools\shutup.exe", vbNormalFocu
End Sub

Private Sub menuWZLB_Click()
    frmWZLB.txtSQL = "select * from dm_wzlb"
    frmWZLB.Show 0
End Sub

Private Sub menuWZSetup_Click()
    frmWZSetup.txtSQL = "select * from dm_wz"
    frmWZSetup.Show 0
End Sub

Private Sub menuXSD_Click()
    frmOUTH.txtSQL = "select outh_no,out_date,ywman,khdm,ckdm,wzdm,sl,out_danj,o_zk,o_zke,jsfk,jz,yf,bz from outh where bz1 is null"
    frmOUTH.Show 0
End Sub

Private Sub menuYSMINGXI_Click()
    frmGET.txtSQL = "select outh.outh_no,outh.out_date,outh.khdm,dm_kh.mc,outh.wzdm,dm_wz.mc,outh.color,outh.sl,outh.out_danj,outh.o_zk,outh.o_zke,outh.jz,outh.yf,outh.bz from outh inner join dm_kh on outh.khdm = dm_kh.dm inner join dm_wz on outh.wzdm = dm_wz.dm where outh.jsfk <> 'Y'"
    frmGET.Show 0
End Sub

Private Sub menuYSSetup_Click()
    frmYSSetup.txtSQL = "select * from dm_yanse"
    frmYSSetup.Show 0
End Sub

Private Sub menuYWYLB_Click()
    frmYWYLB.txtSQL = "select * from dm_ywylb"
    frmYWYLB.Show 0
End Sub

Private Sub menuYWYSetup_Click()
    frmYWYSetup.txtSQL = "select * from dm_ywy"
    frmYWYSetup.Show 0
End Sub

Private Sub menuZhuanCang_Click()
    frmZC.txtSQL = "select * from zc"
    frmZC.Show 0
End Sub

Private Sub menuZZ_Click()
    frmZZ.Show
End Sub