saledepot_unit.dfm

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

object frmSaleDepot: TfrmSaleDepot
  Left = 220
  Top = 176
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = #38144#21806#20986#24211#24314#31435
  ClientHeight = 406
  ClientWidth = 616
  Color = clBtnFace
  Font.Charset = GB2312_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 = 599
    Height = 96
    BevelInner = bvLowered
    TabOrder = 0
    object Label1: TLabel
      Left = 7
      Top = 13
      Width = 60
      Height = 12
      Caption = #38144#21806#32534#21495#65306
    end
    object Label2: TLabel
      Left = 179
      Top = 13
      Width = 60
      Height = 12
      Caption = #38144#21806#31867#21035#65306
    end
    object Label3: TLabel
      Left = 413
      Top = 13
      Width = 60
      Height = 12
      Caption = #38144#21806#26085#26399#65306
    end
    object Label4: TLabel
      Left = 15
      Top = 56
      Width = 48
      Height = 12
      Caption = #22791'  '#27880#65306
    end
    object lblAuditing: TLabel
      Left = 518
      Top = 56
      Width = 64
      Height = 13
      AutoSize = False
      Caption = #26410#23457#26680
    end
    object lblSaleID: TLabel
      Left = 76
      Top = 13
      Width = 96
      Height = 13
      AutoSize = False
      Caption = #33258#21160#32534#21495
    end
    object cmbxType: TComboBox
      Left = 248
      Top = 9
      Width = 140
      Height = 20
      Style = csDropDownList
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      ItemHeight = 12
      TabOrder = 0
      Items.Strings = (
        #33647#25151#39046#33647
        #20010#20154#20080#33647)
    end
    object SaleDatetime: TDateTimePicker
      Left = 482
      Top = 9
      Width = 105
      Height = 20
      Date = 39330.372883020830000000
      Time = 39330.372883020830000000
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      TabOrder = 1
    end
    object edtRemark: TMemo
      Left = 67
      Top = 43
      Width = 426
      Height = 46
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      TabOrder = 2
    end
  end
  object Panel2: TPanel
    Left = 9
    Top = 113
    Width = 599
    Height = 209
    BevelInner = bvLowered
    TabOrder = 1
    object DBGrid1: TDBGrid
      Left = 2
      Top = 2
      Width = 595
      Height = 205
      Align = alClient
      DataSource = dsrSaleBody
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      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 = 100
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'MedName'
          Title.Alignment = taCenter
          Title.Caption = #33647#21697#21517#31216
          Width = 120
          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 = #25968#37327
          Width = 80
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'ValidityDatetime'
          Title.Alignment = taCenter
          Title.Caption = #26377#25928#26085#26399
          Width = 120
          Visible = True
        end>
    end
  end
  object Panel3: TPanel
    Left = 9
    Top = 329
    Width = 599
    Height = 71
    BevelInner = bvLowered
    TabOrder = 2
    object Label5: TLabel
      Left = 9
      Top = 13
      Width = 60
      Height = 12
      Caption = #33647#21697#32534#21495#65306
    end
    object Label6: TLabel
      Left = 431
      Top = 13
      Width = 60
      Height = 12
      Caption = #26377#25928#26085#26399#65306
    end
    object Label7: TLabel
      Left = 179
      Top = 13
      Width = 60
      Height = 12
      Caption = #38646#21806#20215#26684#65306
    end
    object Label8: TLabel
      Left = 303
      Top = 13
      Width = 60
      Height = 12
      Caption = #38144#21806#25968#37327#65306
    end
    object cmbxMeicineID: TComboBox
      Left = 78
      Top = 9
      Width = 96
      Height = 20
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      ItemHeight = 12
      TabOrder = 0
      OnExit = cmbxMeicineIDExit
    end
    object edtRetailPrice: TEdit
      Left = 244
      Top = 9
      Width = 54
      Height = 20
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      TabOrder = 1
    end
    object edtAmount: TEdit
      Left = 373
      Top = 9
      Width = 54
      Height = 20
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      TabOrder = 2
    end
    object ValidityDatetime: TDateTimePicker
      Left = 494
      Top = 9
      Width = 96
      Height = 20
      Date = 39330.376684027780000000
      Time = 39330.376684027780000000
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      TabOrder = 3
    end
    object btnFind: TBitBtn
      Left = 21
      Top = 37
      Width = 81
      Height = 27
      Caption = #26597#25214'(&F)'
      TabOrder = 4
      OnClick = btnFindClick
    end
    object btnAdd: TBitBtn
      Left = 116
      Top = 37
      Width = 81
      Height = 27
      Caption = #28155#21152'(&A)'
      TabOrder = 5
      OnClick = btnAddClick
    end
    object btnDel: TBitBtn
      Left = 211
      Top = 37
      Width = 82
      Height = 27
      Caption = #21024#38500'(&D)'
      TabOrder = 6
      OnClick = btnDelClick
    end
    object btnSave: TBitBtn
      Left = 307
      Top = 37
      Width = 81
      Height = 27
      Caption = #20445#23384'(&S)'
      TabOrder = 7
      OnClick = btnSaveClick
    end
    object btnPrint: TBitBtn
      Left = 402
      Top = 37
      Width = 81
      Height = 27
      Caption = #25171#21360'(&P)'
      TabOrder = 8
      OnClick = btnPrintClick
    end
    object btnAuditing: TBitBtn
      Left = 495
      Top = 37
      Width = 81
      Height = 27
      Caption = #23457#26680'(&A)'
      TabOrder = 9
      OnClick = btnAuditingClick
    end
  end
  object dsrSaleHeader: TDataSource
    DataSet = qrySaleHeader
    Left = 40
    Top = 240
  end
  object qrySaleHeader: TADOQuery
    Connection = frmLeechdomMain.ADOConn
    Parameters = <>
    Left = 8
    Top = 240
  end
  object qryMedicine: TADOQuery
    Connection = frmLeechdomMain.ADOConn
    Parameters = <>
    Left = 192
    Top = 168
  end
  object qrySaleBody: TADOQuery
    Connection = frmLeechdomMain.ADOConn
    Parameters = <>
    Left = 8
    Top = 272
  end
  object dsrSaleBody: TDataSource
    DataSet = qrySaleBody
    Left = 40
    Top = 272
  end
  object qryPrint: TADOQuery
    Connection = frmLeechdomMain.ADOConn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'Select A.*,B.*,C.MedName From SaleHeader A '
      'Left Join SaleBody B on A.SaleID=B.SaleID'
      'Left join Medicine C On B.MedicineID=C.MedicineID')
    Left = 409
    Top = 209
  end
  object RvDataSetConnection1: TRvDataSetConnection
    RuntimeVisibility = rtDeveloper
    DataSet = qryPrint
    Left = 332
    Top = 208
  end
  object RvProject1: TRvProject
    ProjectFile = 'D:\Delphi\07 '#20195#30721'\Bin\StockReport.rav'
    Left = 300
    Top = 208
  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 = 369
    Top = 209
  end
end