fayun1.frm

煤炭销售管理系统.完成煤炭销售的日常管理工作,和重车计量系统空车计量系统配合使用.

VERSION 5.00
Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
Begin VB.Form Form1 
   BackColor       =   &H00E0E0E0&
   Caption         =   "煤炭销售管理系统"
   ClientHeight    =   7335
   ClientLeft      =   165
   ClientTop       =   855
   ClientWidth     =   9720
   LinkTopic       =   "Form1"
   ScaleHeight     =   7335
   ScaleWidth      =   9720
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   Begin MSAdodcLib.Adodc Adodc1 
      Height          =   375
      Left            =   960
      Top             =   1320
      Visible         =   0   'False
      Width           =   1200
      _ExtentX        =   2117
      _ExtentY        =   661
      ConnectMode     =   0
      CursorLocation  =   3
      IsolationLevel  =   -1
      ConnectionTimeout=   15
      CommandTimeout  =   30
      CursorType      =   3
      LockType        =   3
      CommandType     =   8
      CursorOptions   =   0
      CacheSize       =   50
      MaxRecords      =   0
      BOFAction       =   0
      EOFAction       =   0
      ConnectStringType=   3
      Appearance      =   1
      BackColor       =   -2147483643
      ForeColor       =   -2147483640
      Orientation     =   0
      Enabled         =   -1
      Connect         =   "DSN=dzqch"
      OLEDBString     =   ""
      OLEDBFile       =   ""
      DataSourceName  =   "dzqch"
      OtherAttributes =   ""
      UserName        =   ""
      Password        =   ""
      RecordSource    =   "select dqym,dxsgz from dqym"
      Caption         =   "Adodc1"
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      _Version        =   393216
   End
   Begin VB.Menu f_st 
      Caption         =   "文件"
      Begin VB.Menu f_yhqcd 
         Caption         =   "编辑用户欠存单"
      End
      Begin VB.Menu f_print 
         Caption         =   "打印"
      End
      Begin VB.Menu null 
         Caption         =   "-"
      End
      Begin VB.Menu f_quit 
         Caption         =   "退出"
      End
   End
   Begin VB.Menu f_gl 
      Caption         =   "发运管理"
      Begin VB.Menu f_fyd 
         Caption         =   "输入发运单"
      End
      Begin VB.Menu f_httz 
         Caption         =   "发运单调整"
      End
   End
   Begin VB.Menu f_js 
      Caption         =   "监视器"
      Begin VB.Menu f_jsdk 
         Caption         =   "打开"
      End
      Begin VB.Menu f_jsgb 
         Caption         =   "关闭"
      End
   End
   Begin VB.Menu f_cx 
      Caption         =   "查询"
      Begin VB.Menu f_htqc 
         Caption         =   "合同欠存查询"
      End
      Begin VB.Menu f_zcls 
         Caption         =   "重车流水帐"
      End
      Begin VB.Menu f_kcls 
         Caption         =   "空车流水帐"
      End
      Begin VB.Menu f_rb 
         Caption         =   "销售日报"
      End
      Begin VB.Menu f_yb 
         Caption         =   "销售月报"
      End
      Begin VB.Menu f_kc 
         Caption         =   "煤炭库存"
      End
   End
   Begin VB.Menu f_wh 
      Caption         =   "系统维护"
      Begin VB.Menu f_xtgl 
         Caption         =   "系统数据库"
      End
      Begin VB.Menu f_yhgl 
         Caption         =   "用户管理"
      End
      Begin VB.Menu f_pzwh 
         Caption         =   "皮重库维护"
      End
      Begin VB.Menu f_fytz 
         Caption         =   "发货单调整"
      End
      Begin VB.Menu f_hwm 
         Caption         =   "建立货物名库"
      End
      Begin VB.Menu f_fhr 
         Caption         =   "建立发货人库"
      End
      Begin VB.Menu f_dhdd 
         Caption         =   "建立到货地点库"
      End
   End
   Begin VB.Menu f_hlp 
      Caption         =   "帮助"
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub Command1_Click()
frmLogin.Show
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Command3_Click()
frmhtk1.Show
End Sub

Private Sub Command4_Click()
frmhtk.Show
End Sub

Private Sub f_dhdd_Click()
frmdhdd.Show
End Sub

Private Sub f_fhr_Click()
frmfhr1.Show
End Sub

Private Sub f_fyd_Click()
FYGL.Show
End Sub

Private Sub f_hwm_Click()
frmhwm1.Show
End Sub

Private Sub f_jsdk_Click()
zxsp.Show
End Sub

Private Sub f_jsgb_Click()
zxsp.Hide
End Sub

Private Sub f_print_Click()
Select Case headle
Case 1
Case 2
Case 3
Case 4

End Select
End Sub

Private Sub f_pzwh_Click()
pzk.Show
End Sub

Private Sub f_rb_Click()
rtjb.Show
End Sub

Private Sub f_xtgl_Click()
frmqyxx.Show
End Sub

Private Sub f_yb_Click()
tjb.Show
End Sub

Private Sub f_yhgl_Click()
czr.Show
End Sub

Private Sub f_zcls_Click()
frmcx.Show
End Sub

Private Sub Form_Load()
'Dim dbs As Database
'Dim rst As Recordset
'Dim qym As String
'Set dbs = OpenDatabase(App.Path & "\jilang.mdb")

' Set rst = dbs.OpenRecordset("select qym from sysdak")
'("select * from jlk")
'qym = rst.Fields(0)
Adodc1.Refresh
jl_qym = Adodc1.Recordset.Fields(0)
jl_zg = Adodc1.Recordset.Fields(1)

'Form1.Caption = Adodc1.Recordset.Fields("qym") & "煤炭销售管理系统"
End Sub

Private Sub Form_Resize()
'Label1.Width = Me.Width
'Label2.Width = Me.Width

End Sub

Private Sub Form_Unload(Cancel As Integer)
End
End Sub