stock_unit.dfm

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

object frmStock: TfrmStock
  Left = 216
  Top = 149
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = #37319#36141#24314#31435
  ClientHeight = 451
  ClientWidth = 694
  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 = 6
    Top = 9
    Width = 680
    Height = 105
    BevelInner = bvLowered
    TabOrder = 0
    object Label1: TLabel
      Left = 17
      Top = 17
      Width = 60
      Height = 12
      Caption = #37319#36141#21333#21495#65306
    end
    object Label2: TLabel
      Left = 191
      Top = 17
      Width = 84
      Height = 12
      Caption = #37319#36141#20844#21496#32534#21495#65306
    end
    object Label3: TLabel
      Left = 428
      Top = 17
      Width = 60
      Height = 12
      Caption = #37319#36141#26102#38388#65306
    end
    object Label5: TLabel
      Left = 26
      Top = 53
      Width = 48
      Height = 12
      Caption = #22791'  '#27880#65306
    end
    object lblStockID: TLabel
      Left = 81
      Top = 17
      Width = 105
      Height = 13
      AutoSize = False
      Caption = #33258#21160#29983#25104
    end
    object lblAuditing: TLabel
      Left = 610
      Top = 17
      Width = 62
      Height = 13
      AutoSize = False
      Caption = #26410#23457#26680
    end
    object cmbxProviderID: TComboBox
      Left = 276
      Top = 13
      Width = 140
      Height = 20
      ItemHeight = 12
      TabOrder = 0
      OnExit = cmbxProviderIDExit
    end
    object dtpStockDatetime: TDateTimePicker
      Left = 494
      Top = 13
      Width = 96
      Height = 20
      Date = 39328.958842766200000000
      Time = 39328.958842766200000000
      TabOrder = 1
    end
    object edtRemark: TMemo
      Left = 78
      Top = 44
      Width = 590
      Height = 45
      TabOrder = 2
    end
  end
  object Panel2: TPanel
    Left = 5
    Top = 121
    Width = 681
    Height = 235
    BevelInner = bvLowered
    TabOrder = 1
    object DBGrid1: TDBGrid
      Left = 2
      Top = 2
      Width = 677
      Height = 231
      Align = alClient
      DataSource = dsrStock
      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 = '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 = 'ByPrice'
          Title.Alignment = taCenter
          Title.Caption = #36141#36827#20215#26684
          Width = 90
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'JobPrice'
          Title.Alignment = taCenter
          Title.Caption = #25209#21457#20215#26684
          Width = 90
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'RetailPrice'
          Title.Alignment = taCenter
          Title.Caption = #38646#21806#20215#26684
          Width = 90
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'Amount'
          Title.Alignment = taCenter
          Title.Caption = #36141#36827#25968#37327
          Width = 90
          Visible = True
        end>
    end
  end
  object Panel3: TPanel
    Left = 4
    Top = 364
    Width = 682
    Height = 79
    BevelInner = bvLowered
    TabOrder = 2
    object Label4: TLabel
      Left = 9
      Top = 17
      Width = 60
      Height = 12
      Caption = #33647#21697#32534#21495#65306
    end
    object Label7: TLabel
      Left = 191
      Top = 17
      Width = 60
      Height = 12
      Caption = #36141#36827#20215#26684#65306
    end
    object Label8: TLabel
      Left = 314
      Top = 17
      Width = 60
      Height = 12
      Caption = #25209#21457#20215#26684#65306
    end
    object Label9: TLabel
      Left = 439
      Top = 17
      Width = 60
      Height = 12
      Caption = #38646#21806#20215#26684#65306
    end
    object Label10: TLabel
      Left = 561
      Top = 17
      Width = 60
      Height = 12
      Caption = #36141#36827#25968#37327#65306
    end
    object cmbxMedicineID: TComboBox
      Left = 78
      Top = 13
      Width = 108
      Height = 20
      ItemHeight = 12
      TabOrder = 0
      OnExit = cmbxMedicineIDExit
    end
    object edtByPrice: TEdit
      Left = 254
      Top = 13
      Width = 54
      Height = 20
      TabOrder = 1
    end
    object edtJobPrice: TEdit
      Left = 379
      Top = 13
      Width = 54
      Height = 20
      TabOrder = 2
    end
    object edtRetailPrice: TEdit
      Left = 503
      Top = 13
      Width = 54
      Height = 20
      TabOrder = 3
    end
    object edtAmount: TEdit
      Left = 621
      Top = 13
      Width = 54
      Height = 20
      TabOrder = 4
    end
    object btnAdd: TBitBtn
      Left = 238
      Top = 43
      Width = 82
      Height = 27
      Caption = #28155#21152'(&A)'
      TabOrder = 5
      OnClick = btnAddClick
    end
    object btnPrint: TBitBtn
      Left = 498
      Top = 43
      Width = 82
      Height = 27
      Caption = #25171#21360'(&P)'
      TabOrder = 6
      OnClick = btnPrintClick
    end
    object btnDel: TBitBtn
      Left = 325
      Top = 43
      Width = 81
      Height = 27
      Caption = #21024#38500'(&D)'
      TabOrder = 7
      OnClick = btnDelClick
    end
    object btnSave: TBitBtn
      Left = 412
      Top = 43
      Width = 81
      Height = 27
      Caption = #20445#23384'(&S)'
      TabOrder = 8
      OnClick = btnSaveClick
    end
    object btnAuditing: TBitBtn
      Left = 585
      Top = 43
      Width = 81
      Height = 27
      Caption = #23457#26680'(&A)'
      TabOrder = 9
      OnClick = btnAuditingClick
    end
    object btnFind: TBitBtn
      Left = 152
      Top = 43
      Width = 81
      Height = 27
      Caption = #26597#25214'(&F)'
      TabOrder = 10
      OnClick = btnFindClick
    end
    object DBNavigator1: TDBNavigator
      Left = 12
      Top = 43
      Width = 124
      Height = 27
      DataSource = dsrStock
      VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
      Flat = True
      TabOrder = 11
    end
  end
  object dsrStock: TDataSource
    DataSet = qryStockBody
    Left = 60
    Top = 264
  end
  object RvProject1: TRvProject
    Engine = RvSystem1
    Left = 236
    Top = 184
  end
  object RvDataSetConnection1: TRvDataSetConnection
    RuntimeVisibility = rtDeveloper
    DataSet = qryPrint
    Left = 300
    Top = 184
  end
  object qryStockHeader: TADOQuery
    Connection = frmLeechdomMain.ADOConn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from StockHeader')
    Left = 28
    Top = 232
  end
  object qryProvider: TADOQuery
    Connection = frmLeechdomMain.ADOConn
    Parameters = <>
    Left = 132
    Top = 216
  end
  object qryMedicine: TADOQuery
    Connection = frmLeechdomMain.ADOConn
    Parameters = <>
    Left = 164
    Top = 216
  end
  object qryStockBody: TADOQuery
    Connection = frmLeechdomMain.ADOConn
    Parameters = <>
    Left = 28
    Top = 264
  end
  object qryAudtiting: TADOQuery
    Connection = frmLeechdomMain.ADOConn
    Parameters = <>
    Left = 197
    Top = 217
  end
  object qryPrint: TADOQuery
    Connection = frmLeechdomMain.ADOConn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'Select A.*,B.*,C.ProName,D.MedName From '
      'StockHeader A left join '
      'StockBody B on A.StockID=B.StockID'
      'Left Join Provider C on A.ProviderID=C.ProviderID'
      'Left Join Medicine D on B.MedicineID=D.MedicineID')
    Left = 133
    Top = 185
  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.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 = 269
    Top = 185
  end
end