drugset_unit.dfm

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

object frmDrugSet: TfrmDrugSet
  Left = 153
  Top = 129
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = #33647#21697#23383#20856#32500#25252
  ClientHeight = 506
  ClientWidth = 792
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = True
  Position = poMainFormCenter
  Visible = True
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Panel1: TPanel
    Left = 9
    Top = 9
    Width = 772
    Height = 217
    BevelInner = bvLowered
    TabOrder = 0
    object DBGrid1: TDBGrid
      Left = 2
      Top = 2
      Width = 768
      Height = 213
      Align = alClient
      DataSource = dsrMedicine
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      TabOrder = 0
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      Columns = <
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'Type'
          Title.Alignment = taCenter
          Title.Caption = #33647#21697#31867#21035
          Width = 80
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'MedicineID'
          Title.Alignment = taCenter
          Title.Caption = #32534#21495
          Width = 80
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'MedName'
          Title.Alignment = taCenter
          Title.Caption = #21517#31216
          Width = 140
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'Spec'
          Title.Alignment = taCenter
          Title.Caption = #35268#26684
          Width = 75
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'Unit'
          Title.Alignment = taCenter
          Title.Caption = #21333#20301
          Width = 75
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'ChangeRate'
          Title.Alignment = taCenter
          Title.Caption = #36716#25442#29575
          Width = 75
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'Upper'
          Title.Alignment = taCenter
          Title.Caption = #19978#38480
          Width = 75
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'Floor'
          Title.Alignment = taCenter
          Title.Caption = #19979#38480
          Width = 75
          Visible = True
        end>
    end
  end
  object Panel2: TPanel
    Left = 9
    Top = 235
    Width = 772
    Height = 261
    BevelInner = bvLowered
    TabOrder = 1
    object Label1: TLabel
      Left = 17
      Top = 22
      Width = 60
      Height = 12
      Caption = #33647#21697#32534#21495#65306
    end
    object Label2: TLabel
      Left = 191
      Top = 22
      Width = 60
      Height = 12
      Caption = #33647#21697#31867#22411#65306
    end
    object Label3: TLabel
      Left = 351
      Top = 22
      Width = 60
      Height = 12
      Caption = #33647#21697#21517#31216#65306
    end
    object Label4: TLabel
      Left = 570
      Top = 22
      Width = 48
      Height = 12
      Caption = #35268'  '#26684#65306
    end
    object Label5: TLabel
      Left = 30
      Top = 50
      Width = 48
      Height = 12
      Caption = #21333'  '#20301#65306
    end
    object Label6: TLabel
      Left = 178
      Top = 50
      Width = 72
      Height = 12
      Caption = #38646#21806#36716#25442#29575#65306
    end
    object Label7: TLabel
      Left = 17
      Top = 87
      Width = 60
      Height = 12
      Caption = #33647#21697#25551#36848#65306
    end
    object Label8: TLabel
      Left = 364
      Top = 50
      Width = 48
      Height = 12
      Caption = #19978'  '#38480#65306
    end
    object Label9: TLabel
      Left = 570
      Top = 50
      Width = 48
      Height = 12
      Caption = #19979'  '#38480#65306
    end
    object Label10: TLabel
      Left = 30
      Top = 132
      Width = 48
      Height = 12
      Caption = #29992'  '#27861#65306
    end
    object Label11: TLabel
      Left = 30
      Top = 182
      Width = 48
      Height = 12
      Caption = #22791'  '#27880#65306
    end
    object txtMedicineID: TDBText
      Left = 87
      Top = 20
      Width = 96
      Height = 18
      DataField = 'MedicineID'
      DataSource = dsrMedicine
    end
    object cmbxType: TDBComboBox
      Left = 260
      Top = 17
      Width = 88
      Height = 20
      Style = csDropDownList
      DataField = 'Type'
      DataSource = dsrMedicine
      ItemHeight = 12
      Items.Strings = (
        #35199#33647
        #20013#33647
        #20013#25104#33647)
      TabOrder = 0
    end
    object edtMedName: TDBEdit
      Left = 423
      Top = 17
      Width = 135
      Height = 20
      DataField = 'MedName'
      DataSource = dsrMedicine
      TabOrder = 1
    end
    object edtSpec: TDBEdit
      Left = 622
      Top = 17
      Width = 135
      Height = 20
      DataField = 'Spec'
      DataSource = dsrMedicine
      TabOrder = 2
    end
    object cmbxUnit: TDBComboBox
      Left = 87
      Top = 46
      Width = 87
      Height = 20
      DataField = 'Unit'
      DataSource = dsrMedicine
      ItemHeight = 12
      Items.Strings = (
        #30418
        #29942
        #31890
        #29255)
      TabOrder = 3
    end
    object edtChangeRate: TDBEdit
      Left = 260
      Top = 46
      Width = 85
      Height = 20
      DataField = 'ChangeRate'
      DataSource = dsrMedicine
      TabOrder = 4
      OnKeyPress = edtChangeRateKeyPress
    end
    object edtUpper: TDBEdit
      Left = 423
      Top = 46
      Width = 135
      Height = 20
      DataField = 'Upper'
      DataSource = dsrMedicine
      TabOrder = 5
    end
    object edtFloor: TDBEdit
      Left = 623
      Top = 46
      Width = 135
      Height = 20
      DataField = 'Floor'
      DataSource = dsrMedicine
      TabOrder = 6
    end
    object edtDescribe: TDBMemo
      Left = 87
      Top = 74
      Width = 668
      Height = 43
      DataField = 'Describe'
      DataSource = dsrMedicine
      ScrollBars = ssVertical
      TabOrder = 7
    end
    object edtUserage: TDBMemo
      Left = 87
      Top = 124
      Width = 668
      Height = 43
      DataField = 'Userage'
      DataSource = dsrMedicine
      ScrollBars = ssVertical
      TabOrder = 8
    end
    object edtRemark: TDBMemo
      Left = 87
      Top = 174
      Width = 668
      Height = 44
      DataField = 'Remark'
      DataSource = dsrMedicine
      ScrollBars = ssVertical
      TabOrder = 9
    end
    object btnAdd: TBitBtn
      Left = 78
      Top = 225
      Width = 81
      Height = 27
      Caption = #28155#21152'(&A)'
      TabOrder = 11
      OnClick = btnAddClick
    end
    object btnEdit: TBitBtn
      Left = 208
      Top = 225
      Width = 81
      Height = 27
      Caption = #20462#25913'(&M)'
      TabOrder = 12
      OnClick = btnEditClick
    end
    object btnDel: TBitBtn
      Left = 329
      Top = 225
      Width = 82
      Height = 27
      Caption = #21024#38500'(&D)'
      TabOrder = 13
      OnClick = btnDelClick
    end
    object btnSave: TBitBtn
      Left = 451
      Top = 225
      Width = 81
      Height = 27
      Caption = #20445#23384'(&S)'
      TabOrder = 10
      OnClick = btnSaveClick
    end
    object btnCancel: TBitBtn
      Left = 572
      Top = 225
      Width = 81
      Height = 27
      Caption = #21462#28040'(&C)'
      TabOrder = 14
      OnClick = btnCancelClick
    end
  end
  object dsrMedicine: TDataSource
    DataSet = qryMedicine
    Left = 72
    Top = 104
  end
  object qryMedicine: TADOQuery
    Connection = frmLeechdomMain.ADOConn
    LockType = ltBatchOptimistic
    Parameters = <>
    Left = 40
    Top = 104
  end
end