check_unit.dfm

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

object frmCheck: TfrmCheck
  Left = 222
  Top = 155
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = #30424#28857#24314#31435
  ClientHeight = 356
  ClientWidth = 627
  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 = 607
    Height = 96
    BevelInner = bvLowered
    TabOrder = 0
    object Label1: TLabel
      Left = 17
      Top = 13
      Width = 60
      Height = 12
      Caption = #30424#28857#32534#21495#65306
    end
    object Label2: TLabel
      Left = 194
      Top = 13
      Width = 60
      Height = 12
      Caption = #30424#28857#26102#38388#65306
    end
    object Label3: TLabel
      Left = 384
      Top = 13
      Width = 84
      Height = 12
      Caption = #30424#28857#20154#21592#32534#21495#65306
    end
    object Label4: TLabel
      Left = 24
      Top = 43
      Width = 48
      Height = 12
      Caption = #22791'  '#27880#65306
    end
    object lblCheckID: TLabel
      Left = 87
      Top = 13
      Width = 96
      Height = 13
      AutoSize = False
      Caption = #33258#21160#29983#25104
    end
    object lblCheckStatus: TLabel
      Left = 518
      Top = 52
      Width = 55
      Height = 13
      AutoSize = False
      Caption = #26410#23457#26680
    end
    object cmbxCheckMan: TComboBox
      Left = 471
      Top = 9
      Width = 114
      Height = 20
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      ItemHeight = 12
      TabOrder = 0
      OnExit = cmbxCheckManExit
    end
    object CheckDatetime: TDateTimePicker
      Left = 256
      Top = 9
      Width = 96
      Height = 20
      Date = 39330.382301793980000000
      Time = 39330.382301793980000000
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      TabOrder = 1
    end
    object edtRemark: TMemo
      Left = 85
      Top = 35
      Width = 399
      Height = 53
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      ScrollBars = ssVertical
      TabOrder = 2
    end
  end
  object Panel2: TPanel
    Left = 9
    Top = 113
    Width = 607
    Height = 148
    BevelInner = bvLowered
    TabOrder = 1
    object DBGrid1: TDBGrid
      Left = 2
      Top = 2
      Width = 603
      Height = 144
      Align = alClient
      DataSource = dsrqryCountingBody
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      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 = []
      OnCellClick = DBGrid1CellClick
      Columns = <
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'MedType'
          Title.Alignment = taCenter
          Title.Caption = #33647#21697#31867#21035
          Width = 100
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'MedicineID'
          Title.Alignment = taCenter
          Title.Caption = #33647#21697#32534#21495
          Width = 100
          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 = 'ValidityDatetime'
          Title.Alignment = taCenter
          Title.Caption = #26377#25928#26085#26399
          Width = 120
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'CheckAmount'
          Title.Alignment = taCenter
          Title.Caption = #30424#28857#25968#37327
          Width = 70
          Visible = True
        end>
    end
  end
  object Panel3: TPanel
    Left = 9
    Top = 269
    Width = 607
    Height = 79
    BevelInner = bvLowered
    TabOrder = 2
    object Label5: TLabel
      Left = 9
      Top = 17
      Width = 60
      Height = 12
      Caption = #33647#21697#31867#21035#65306
    end
    object Label6: TLabel
      Left = 156
      Top = 17
      Width = 60
      Height = 12
      Caption = #33647#21697#32534#21495#65306
    end
    object Label7: TLabel
      Left = 321
      Top = 17
      Width = 60
      Height = 12
      Caption = #26377#25928#26085#26399#65306
    end
    object Label8: TLabel
      Left = 485
      Top = 17
      Width = 60
      Height = 12
      Caption = #30424#28857#25968#37327#65306
    end
    object cmbxType: TComboBox
      Left = 70
      Top = 13
      Width = 80
      Height = 20
      Style = csDropDownList
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      ItemHeight = 12
      TabOrder = 0
      Items.Strings = (
        #20013#33647
        #35199#33647
        #20013#25104#33647)
    end
    object cmbxMedicineID: TComboBox
      Left = 219
      Top = 13
      Width = 96
      Height = 20
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      ItemHeight = 12
      TabOrder = 1
      OnExit = cmbxMedicineIDExit
    end
    object ValidityDatetime: TDateTimePicker
      Left = 385
      Top = 13
      Width = 96
      Height = 20
      Date = 39330.428834270830000000
      Time = 39330.428834270830000000
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      TabOrder = 2
    end
    object edtAmount: TEdit
      Left = 548
      Top = 13
      Width = 54
      Height = 20
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      TabOrder = 3
    end
    object btnAuditing: TBitBtn
      Left = 498
      Top = 43
      Width = 82
      Height = 27
      Caption = #23457#26680'(&A)'
      TabOrder = 4
      OnClick = btnAuditingClick
    end
    object btnPrint: TBitBtn
      Left = 405
      Top = 43
      Width = 81
      Height = 27
      Caption = #25171#21360'(&P)'
      TabOrder = 5
      OnClick = btnPrintClick
    end
    object btnSave: TBitBtn
      Left = 310
      Top = 43
      Width = 81
      Height = 27
      Caption = #20445#23384'(&S)'
      TabOrder = 6
      OnClick = btnSaveClick
    end
    object btnDel: TBitBtn
      Left = 215
      Top = 43
      Width = 81
      Height = 27
      Caption = #21024#38500'(&D)'
      TabOrder = 7
      OnClick = btnDelClick
    end
    object btnAdd: TBitBtn
      Left = 119
      Top = 43
      Width = 81
      Height = 27
      Caption = #28155#21152'(&A)'
      TabOrder = 8
      OnClick = btnAddClick
    end
    object btnFind: TBitBtn
      Left = 24
      Top = 43
      Width = 81
      Height = 27
      Caption = #26597#25214'(&F)'
      TabOrder = 9
      OnClick = btnFindClick
    end
  end
  object dsrqryCountingBody: TDataSource
    DataSet = qryCountingBody
    Left = 64
    Top = 216
  end
  object qryCountingHeader: TADOQuery
    Connection = frmLeechdomMain.ADOConn
    Parameters = <>
    Left = 32
    Top = 184
  end
  object qryCountingBody: TADOQuery
    Connection = frmLeechdomMain.ADOConn
    Parameters = <>
    Left = 32
    Top = 216
  end
  object qryMedicine: TADOQuery
    Connection = frmLeechdomMain.ADOConn
    Parameters = <>
    Left = 176
    Top = 152
  end
  object qryUser: TADOQuery
    Connection = frmLeechdomMain.ADOConn
    Parameters = <>
    Left = 176
    Top = 184
  end
  object qryPrint: TADOQuery
    Connection = frmLeechdomMain.ADOConn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'Select A.*,B.*, C.MedName From CheckHeader A'
      'left Join CheckBody B on A.CheckID=B.CheckID'
      'Left Join Medicine C on B.MedicineID=C.MedicineID'
      '')
    Left = 513
    Top = 225
  end
  object RvProject1: TRvProject
    ProjectFile = 'D:\Delphi\07 '#20195#30721'\Bin\StockReport.rav'
    Left = 420
    Top = 152
  end
  object RvDataSetConnection1: TRvDataSetConnection
    RuntimeVisibility = rtDeveloper
    DataSet = qryPrint
    Left = 460
    Top = 152
  end
  object RvSystem1: TRvSystem
    TitleSetup = #25253#34920#36755#20986#36873#39033
    TitleStatus = #25253#34920#29366#24577
    TitlePreview = #25253#34920#39044#35272
    SystemFiler.StatusFormat = 'Generating page %p'
    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 = 505
    Top = 153
  end
end