leechdommain_unit.dfm

药品进销管理程序,内有SQL附加的数据库.....详情看里面的,运行就OK

object frmLeechdomMain: TfrmLeechdomMain
  Left = 239
  Top = 162
  Width = 690
  Height = 474
  Caption = #33647#21697#36827#38144#23384#31649#29702#31995#32479
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  FormStyle = fsMDIForm
  Menu = MainMenu1
  OldCreateOrder = False
  WindowState = wsMaximized
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 682
    Height = 33
    ButtonHeight = 20
    ButtonWidth = 55
    Flat = True
    ParentShowHint = False
    ShowCaptions = True
    ShowHint = True
    TabOrder = 0
    object btnStock: TToolButton
      Left = 0
      Top = 0
      Caption = #37319#36141#31649#29702
      Enabled = False
      ImageIndex = 0
      OnClick = btnStockClick
    end
    object ToolButton8: TToolButton
      Left = 55
      Top = 0
      Width = 8
      Caption = 'ToolButton8'
      ImageIndex = 5
      Style = tbsSeparator
    end
    object btnInDepot: TToolButton
      Left = 63
      Top = 0
      Caption = #20837#24211#31649#29702
      Enabled = False
      ImageIndex = 1
      OnClick = btnInDepotClick
    end
    object btnSaleDepot: TToolButton
      Left = 118
      Top = 0
      Caption = #20986#24211#31649#29702
      Enabled = False
      ImageIndex = 2
      OnClick = btnSaleDepotClick
    end
    object ToolButton11: TToolButton
      Left = 173
      Top = 0
      Width = 8
      Caption = 'ToolButton11'
      ImageIndex = 6
      Style = tbsSeparator
    end
    object btnCheck: TToolButton
      Left = 181
      Top = 0
      Caption = #24211#23384#30424#28857
      Enabled = False
      ImageIndex = 5
      OnClick = btnCheckClick
    end
    object ToolButton4: TToolButton
      Left = 236
      Top = 0
      Width = 8
      Caption = 'ToolButton4'
      ImageIndex = 5
      Style = tbsSeparator
    end
    object btnStorageFind: TToolButton
      Left = 244
      Top = 0
      Caption = #33647#24211#26597#35810
      Enabled = False
      ImageIndex = 5
      OnClick = btnStorageFindClick
    end
    object ToolButton6: TToolButton
      Left = 299
      Top = 0
      Width = 8
      Caption = 'ToolButton6'
      ImageIndex = 5
      Style = tbsSeparator
    end
    object btnClose: TToolButton
      Left = 307
      Top = 0
      Caption = #36864#20986
      ImageIndex = 4
      OnClick = btnCloseClick
    end
  end
  object MainMenu1: TMainMenu
    BiDiMode = bdLeftToRight
    ParentBiDiMode = False
    Left = 416
    Top = 232
    object S1: TMenuItem
      Caption = '&S.'#31995#32479#35774#32622
      object mmUserSet: TMenuItem
        Caption = #29992#25143#35774#23450'(&S)'
        Enabled = False
        OnClick = mmUserSetClick
      end
      object mmAuthorize: TMenuItem
        Caption = #26435#38480#35774#23450'(&P)'
        Enabled = False
        OnClick = mmAuthorizeClick
      end
      object mmModifyPwd: TMenuItem
        Caption = #26356#25913#23494#30721'(&M)'
        OnClick = mmModifyPwdClick
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object mmExit: TMenuItem
        Caption = #36864#20986
        OnClick = btnCloseClick
      end
    end
    object B1: TMenuItem
      Caption = '&B.'#22522#30784#36164#26009
      object mmDrugSet: TMenuItem
        Caption = #33647#21697#23383#20856'(&M)'
        Enabled = False
        OnClick = mmDrugSetClick
      end
      object mmVendor: TMenuItem
        Caption = #21378#21830#23383#20856'(&D)'
        Enabled = False
        OnClick = mmVendorClick
      end
    end
    object W1: TMenuItem
      Caption = '&W.'#31383#21475
      object N6: TMenuItem
        Action = WindowMinimizeAll1
      end
      object N7: TMenuItem
        Action = WindowClose1
      end
      object N5: TMenuItem
        Caption = '-'
      end
      object N2: TMenuItem
        Action = WindowCascade1
      end
      object N3: TMenuItem
        Action = WindowTileHorizontal1
      end
      object N4: TMenuItem
        Action = WindowTileVertical1
      end
    end
    object H1: TMenuItem
      Caption = '&H.'#24110#21161
      object H2: TMenuItem
        Caption = #20351#29992#24110#21161
      end
      object mmAbout: TMenuItem
        Caption = #20851#20110'(&A)...'
        OnClick = mmAboutClick
      end
    end
  end
  object ActionList1: TActionList
    Left = 376
    Top = 232
    object Action1: TAction
      Caption = 'Action1'
    end
    object WindowClose1: TWindowClose
      Category = 'Window'
      Caption = #20851#38381#24403#21069#31383#20307
      Enabled = False
      Hint = 'Close'
    end
    object WindowCascade1: TWindowCascade
      Category = 'Window'
      Caption = #37325#21472#25490#21015
      Enabled = False
      Hint = 'Cascade'
      ImageIndex = 17
    end
    object WindowTileHorizontal1: TWindowTileHorizontal
      Category = 'Window'
      Caption = #22402#30452#25490#21015
      Enabled = False
      Hint = 'Tile Horizontal'
      ImageIndex = 15
    end
    object WindowTileVertical1: TWindowTileVertical
      Category = 'Window'
      Caption = #24179#38138#25490#21015
      Enabled = False
      Hint = 'Tile Vertical'
      ImageIndex = 16
    end
    object WindowMinimizeAll1: TWindowMinimizeAll
      Category = 'Window'
      Caption = #26368#23567#21270#25152#26377#31383#20307
      Enabled = False
      Hint = 'Minimize All'
    end
  end
  object ADOConn: TADOConnection
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 344
    Top = 232
  end
  object qryMaxID: TADOQuery
    Connection = ADOConn
    Parameters = <>
    Left = 448
    Top = 232
  end
end