indepot_unit.dfm

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

object frmInDepot: TfrmInDepot
  Left = 90
  Top = 124
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = #20837#24211#24314#31435
  ClientHeight = 486
  ClientWidth = 850
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = True
  Position = poMainFormCenter
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Panel1: TPanel
    Left = 9
    Top = 9
    Width = 833
    Height = 113
    BevelInner = bvLowered
    TabOrder = 0
    object Label1: TLabel
      Left = 513
      Top = 16
      Width = 60
      Height = 12
      Caption = #20837#24211#21333#21495#65306
    end
    object Label2: TLabel
      Left = 329
      Top = 16
      Width = 60
      Height = 12
      Caption = #37319#36141#21333#21495#65306
    end
    object Label3: TLabel
      Left = 674
      Top = 16
      Width = 60
      Height = 12
      Caption = #33647#21830#32534#21495#65306
    end
    object Label4: TLabel
      Left = 161
      Top = 16
      Width = 60
      Height = 12
      Caption = #20837#24211#26102#38388#65306
    end
    object Label5: TLabel
      Left = 9
      Top = 16
      Width = 60
      Height = 12
      Caption = #20837#24211#31867#21035#65306
    end
    object Label6: TLabel
      Left = 9
      Top = 51
      Width = 48
      Height = 12
      Caption = #22791'  '#27880#65306
    end
    object lblInDepotID: TLabel
      Left = 571
      Top = 16
      Width = 97
      Height = 13
      AutoSize = False
      Caption = #33258#21160#29983#25104
    end
    object lblProviderID: TLabel
      Left = 743
      Top = 16
      Width = 86
      Height = 13
      AutoSize = False
      Caption = #33258#21160#24102#20986
    end
    object lblAuditing: TLabel
      Left = 754
      Top = 61
      Width = 62
      Height = 13
      AutoSize = False
      Caption = #26410#23457#26680
    end
    object cmbxType: TComboBox
      Left = 73
      Top = 12
      Width = 84
      Height = 20
      ItemHeight = 12
      TabOrder = 0
      Items.Strings = (
        #37319#36141#20837#24211
        #33647#25151#36864#33647)
    end
    object cmbxStockID: TComboBox
      Left = 393
      Top = 12
      Width = 111
      Height = 20
      ItemHeight = 12
      TabOrder = 1
      OnChange = cmbxStockIDChange
    end
    object InDepotDatetime: TDateTimePicker
      Left = 225
      Top = 12
      Width = 97
      Height = 20
      Date = 39329.488377638890000000
      Time = 39329.488377638890000000
      TabOrder = 2
    end
    object memRemark: TMemo
      Left = 69
      Top = 42
      Width = 669
      Height = 63
      ScrollBars = ssVertical
      TabOrder = 3
    end
  end
  object Panel2: TPanel
    Left = 9
    Top = 130
    Width = 833
    Height = 218
    BevelInner = bvLowered
    TabOrder = 1
    object DBGrid1: TDBGrid
      Left = 2
      Top = 2
      Width = 829
      Height = 214
      Align = alClient
      DataSource = dsrInDepotBody
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      TabOrder = 0
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      OnCellClick = DBGrid1CellClick
      Columns = <
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'MedicineID'
          Title.Alignment = taCenter
          Title.Caption = #33647#21697#32534#21495
          Width = 80
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'MedName'
          Title.Alignment = taCenter
          Title.Caption = #21517#31216
          Width = 120
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'ByPrice'
          Title.Alignment = taCenter
          Title.Caption = #36141#36827#20215#26684
          Width = 80
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'JobPrice'
          Title.Alignment = taCenter
          Title.Caption = #25209#21457#20215#26684
          Width = 80
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'RetailPrice'
          Title.Alignment = taCenter
          Title.Caption = #38646#21806#20215#26684
          Width = 80
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'Amount'
          Title.Alignment = taCenter
          Title.Caption = #38144#21806#25968#37327
          Width = 80
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'ValidityDatetime'
          Title.Alignment = taCenter
          Title.Caption = #26377#25928#26085#26399
          Width = 100
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'BatchCode'
          Title.Alignment = taCenter
          Title.Caption = #25209#21495
          Width = 100
          Visible = True
        end>
    end
  end
  object Panel3: TPanel
    Left = 9
    Top = 355
    Width = 833
    Height = 121
    BevelInner = bvLowered
    TabOrder = 2
    object Label7: TLabel
      Left = 28
      Top = 56
      Width = 60
      Height = 12
      Caption = #26377#25928#26085#26399#65306
    end
    object Label8: TLabel
      Left = 29
      Top = 18
      Width = 60
      Height = 12
      Caption = #33647#21697#32534#21495#65306
    end
    object Label9: TLabel
      Left = 213
      Top = 18
      Width = 60
      Height = 12
      Caption = #36141#36827#20215#26684#65306
    end
    object Label10: TLabel
      Left = 367
      Top = 18
      Width = 60
      Height = 12
      Caption = #25209#21457#20215#26684#65306
    end
    object Label11: TLabel
      Left = 518
      Top = 18
      Width = 60
      Height = 12
      Caption = #38646#21806#20215#26684#65306
    end
    object Label12: TLabel
      Left = 667
      Top = 18
      Width = 48
      Height = 12
      Caption = #25968'  '#37327#65306
    end
    object Label13: TLabel
      Left = 217
      Top = 56
      Width = 48
      Height = 12
      Caption = #25209'  '#21495#65306
    end
    object cmbxMedicineID: TComboBox
      Left = 99
      Top = 14
      Width = 105
      Height = 20
      ItemHeight = 12
      TabOrder = 0
      OnExit = cmbxMedicineIDExit
    end
    object edtBuyPrice: TEdit
      Left = 281
      Top = 14
      Width = 75
      Height = 20
      TabOrder = 1
    end
    object edtJobPrice: TEdit
      Left = 433
      Top = 14
      Width = 76
      Height = 20
      TabOrder = 2
    end
    object edtRetailPrice: TEdit
      Left = 584
      Top = 14
      Width = 76
      Height = 20
      TabOrder = 3
    end
    object edtAmount: TEdit
      Left = 719
      Top = 14
      Width = 76
      Height = 20
      TabOrder = 4
    end
    object ValidityDatetime: TDateTimePicker
      Left = 98
      Top = 52
      Width = 106
      Height = 20
      Date = 39329.497067592600000000
      Time = 39329.497067592600000000
      TabOrder = 5
    end
    object edtBatchCode: TEdit
      Left = 281
      Top = 52
      Width = 77
      Height = 20
      TabOrder = 6
    end
    object btnAuditing: TBitBtn
      Left = 641
      Top = 83
      Width = 82
      Height = 28
      Caption = #23457#26680'(&A)'
      TabOrder = 7
      OnClick = btnAuditingClick
    end
    object btnPrint: TBitBtn
      Left = 537
      Top = 83
      Width = 82
      Height = 28
      Caption = #25171#21360'(&P)'
      TabOrder = 8
      OnClick = btnPrintClick
    end
    object btnSave: TBitBtn
      Left = 433
      Top = 83
      Width = 82
      Height = 28
      Caption = #20445#23384'(&S)'
      TabOrder = 9
      OnClick = btnSaveClick
    end
    object btnFind: TBitBtn
      Left = 121
      Top = 83
      Width = 82
      Height = 28
      Caption = #26597#25214'(&F)'
      TabOrder = 10
      OnClick = btnFindClick
    end
    object btnAdd: TBitBtn
      Left = 225
      Top = 83
      Width = 82
      Height = 28
      Caption = #28155#21152'(&A)'
      TabOrder = 11
      OnClick = btnAddClick
    end
    object btnDel: TBitBtn
      Left = 329
      Top = 83
      Width = 82
      Height = 28
      Caption = #21024#38500'(&D)'
      TabOrder = 12
      OnClick = btnDelClick
    end
  end
  object dsrInDepotHeader: TDataSource
    DataSet = qryInDepotHeader
    Left = 88
    Top = 264
  end
  object qryInDepotHeader: TADOQuery
    Connection = frmLeechdomMain.ADOConn
    Parameters = <>
    Left = 56
    Top = 264
  end
  object qryInDepotBody: TADOQuery
    Connection = frmLeechdomMain.ADOConn
    Parameters = <>
    Left = 56
    Top = 296
  end
  object qryMedicine: TADOQuery
    Connection = frmLeechdomMain.ADOConn
    Parameters = <>
    Left = 216
    Top = 208
  end
  object qryStock: TADOQuery
    Connection = frmLeechdomMain.ADOConn
    Parameters = <>
    Left = 216
    Top = 240
  end
  object dsrInDepotBody: TDataSource
    DataSet = qryInDepotBody
    Left = 88
    Top = 296
  end
  object dsrMedicine: TDataSource
    DataSet = qryMedicine
    Left = 248
    Top = 208
  end
  object dsrStock: TDataSource
    DataSet = qryStock
    Left = 248
    Top = 240
  end
  object qryPrint: TADOQuery
    Connection = frmLeechdomMain.ADOConn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'Select A.*,B.*,C.*,D.*,E.* From InDepotHeader A '
      'Left Join InDepotBody B on A.InDepotID=B.InDepotID'
      'Left Join Medicine C on B.MedicineID=C.MedicineID'
      'Left Join Provider D on A.ProviderID=D.ProviderID'
      'Left Join StockHeader E on A.StockID=E.StockID')
    Left = 513
    Top = 258
  end
  object RvDataSetConnection1: TRvDataSetConnection
    RuntimeVisibility = rtDeveloper
    DataSet = qryPrint
    Left = 556
    Top = 224
  end
  object RvProject1: TRvProject
    Engine = RvSystem1
    Left = 516
    Top = 224
  end
  object RvSystem1: TRvSystem
    TitleSetup = #36755#20986#36873#39033
    TitleStatus = #25253#34920#29366#24577
    TitlePreview = #25253#34920#39044#35272
    SystemFiler.StatusFormat = 'Generating page %p'
    SystemPreview.FormState = wsMaximized
    SystemPreview.ZoomFactor = 100.000000000000000000
    SystemPrinter.ScaleX = 100.000000000000000000
    SystemPrinter.ScaleY = 100.000000000000000000
    SystemPrinter.StatusFormat = 'Printing page %p'
    SystemPrinter.Title = 'ReportPrinter Report'
    SystemPrinter.UnitsFactor = 1.000000000000000000
    Left = 593
    Top = 226
  end
end