dmunit.dfm

仓库出单管理系统,采用SQL数据库,功能并不强大,但在操作的方便性上花了一点功夫,对新手有一定的学习作用

object DM: TDM
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Left = 438
  Top = 129
  Height = 599
  Width = 992
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initi' +
      'al Catalog=StorageSystem;Data Source=.'
    CursorLocation = clUseServer
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 33
    Top = 16
  end
  object ADOTableUser: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'UserName'
    Left = 120
    Top = 16
  end
  object DataSourceUser: TDataSource
    DataSet = ADOTableUser
    Left = 200
    Top = 16
  end
  object ADOQueryUserName: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'Select * from UserName')
    Left = 308
    Top = 15
  end
  object DataSourceUserName: TDataSource
    DataSet = ADOQueryUserName
    Left = 416
    Top = 11
  end
  object ADOQuery1: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 24
    Top = 80
  end
  object RMHTMExport1: TRMHTMExport
    ScaleX = 1.000000000000000000
    ScaleY = 1.000000000000000000
    ExportImageFormat = ifJPG
    LinkTextFirst = #31532#19968#39029
    LinkTextNext = #19979#19968#39029
    LinkTextPrev = #19978#19968#39029
    LinkTextLast = #26368#21518#19968#39029
    LinkFont.Charset = DEFAULT_CHARSET
    LinkFont.Color = clBlue
    LinkFont.Height = -24
    LinkFont.Name = 'MS Sans Serif'
    LinkFont.Style = []
    CreateMHTFile = False
    Left = 600
    Top = 16
  end
  object RMJPEGExport1: TRMJPEGExport
    ScaleX = 1.000000000000000000
    ScaleY = 1.000000000000000000
    Left = 688
    Top = 16
  end
  object RMXLSExport1: TRMXLSExport
    ScaleX = 1.000000000000000000
    ScaleY = 1.000000000000000000
    ExportImageFormat = ifBMP
    ShowAfterExport = True
    ExportPrecision = 1
    PagesOfSheet = 10
    Left = 512
    Top = 16
  end
  object RMGridReportDesigner1: TRMGridReportDesigner
    DesignerRestrictions = []
    Left = 816
    Top = 64
  end
  object DataSourceSystemSet: TDataSource
    DataSet = ADOTableSystemSet
    Left = 240
    Top = 80
  end
  object ADOTableSystemSet: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'SystemSet'
    Left = 120
    Top = 80
  end
  object ADOQueryClientPrice: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'Select * from ClientPrice')
    Left = 36
    Top = 167
  end
  object DataSourceClientPrice: TDataSource
    DataSet = ADOQueryClientPrice
    Left = 176
    Top = 163
  end
  object ADOTableClientName: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'ClientName'
    Left = 368
    Top = 80
  end
  object DataSourceClientName: TDataSource
    DataSet = ADOTableClientName
    Left = 496
    Top = 80
  end
  object ADOTableProductName: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'ProductName'
    Left = 368
    Top = 168
  end
  object DataSourceProductName: TDataSource
    DataSet = ADOTableProductName
    Left = 496
    Top = 168
  end
  object SaveDialog1: TSaveDialog
    Filter = 'Excel'#25991#20214'|*.xls|'#25152#26377#25991#20214'|*.*'
    Left = 912
    Top = 16
  end
  object ADOQueryOrderBill: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'Select * from OrderBill')
    Left = 36
    Top = 247
  end
  object DataSourceOrderBill: TDataSource
    DataSet = ADOQueryOrderBill
    Left = 176
    Top = 251
  end
  object ADOQueryLackMoney: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'Select * from ClientName')
    Left = 372
    Top = 247
  end
  object DataSourceBillDetail: TDataSource
    DataSet = ADOTableBillDetail
    Left = 168
    Top = 347
  end
  object ADOTableBillDetail: TADOTable
    Connection = ADOConnection1
    CursorType = ctStatic
    OnCalcFields = ADOTableBillDetailCalcFields
    IndexFieldNames = 'OrderBill_id'
    MasterFields = 'id'
    MasterSource = DataSourceOrderBill
    TableName = 'BillDetail'
    Left = 40
    Top = 344
    object ADOTableBillDetailid: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object ADOTableBillDetailOrderBill_id: TStringField
      FieldName = 'OrderBill_id'
      Size = 50
    end
    object ADOTableBillDetailProductName: TStringField
      FieldName = 'ProductName'
      Size = 50
    end
    object ADOTableBillDetailSpec: TFloatField
      FieldName = 'Spec'
    end
    object ADOTableBillDetailAmount: TFloatField
      FieldName = 'Amount'
    end
    object ADOTableBillDetailTotalWeight: TFloatField
      FieldKind = fkCalculated
      FieldName = 'TotalWeight'
      Calculated = True
    end
    object ADOTableBillDetailPrice: TBCDField
      FieldName = 'Price'
      Precision = 19
    end
    object ADOTableBillDetailTotalPrice: TBCDField
      FieldKind = fkCalculated
      FieldName = 'TotalPrice'
      Precision = 19
      Calculated = True
    end
  end
  object RMGridReportDesigner: TRMGridReport
    InitialZoom = pzDefault
    PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbSaveToXLS]
    DefaultCollate = False
    SaveReportOptions.RegistryPath = 'ReportMachine\ReportSettings\'
    PreviewOptions.RulerUnit = rmutScreenPixels
    PreviewOptions.RulerVisible = False
    PreviewOptions.DrawBorder = False
    PreviewOptions.BorderPen.Color = clBlue
    PreviewOptions.BorderPen.Style = psDash
    CompressLevel = rmzcFastest
    CompressThread = False
    Left = 816
    Top = 8
    ReportData = {}
  end
  object RMDBDataSetOrderBill: TRMDBDataSet
    DataSet = ADOQueryOrderBill
    Left = 48
    Top = 424
  end
  object RMGridReportBillDetail: TRMGridReport
    InitialZoom = pzDefault
    PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbSaveToXLS]
    DefaultCollate = False
    SaveReportOptions.RegistryPath = 'ReportMachine\ReportSettings\'
    PreviewOptions.RulerUnit = rmutScreenPixels
    PreviewOptions.RulerVisible = False
    PreviewOptions.DrawBorder = False
    PreviewOptions.BorderPen.Color = clBlue
    PreviewOptions.BorderPen.Style = psDash
    Dataset = RMDBDataSetOrderBill
    StoreInDFM = True
    CompressLevel = rmzcFastest
    CompressThread = False
    Left = 176
    Top = 504
    ReportData = {
      A326000022005265706F72744D616368696E6520477269645265706F72742046
      696C6520332E301A3E000000B70000000600CBCDBBF5B5A50000000000000000
      0100000000000000000000000F0044656661756C74205072696E746572570000
      00756E6974205265706F72743B0D0A0D0A696E746572666163650D0A0D0A696D
      706C656D656E746174696F6E0D0A0D0A70726F636564757265204D61696E3B0D
      0A626567696E0D0A0D0A656E643B0D0A0D0A656E642E0D0A000000FF11005452
      4D477269645265706F7274506167650400050050616765310109000000340800
      009A0B0000983A0000983A0000983A0000983A00000000FFFF0000000000FE00
      00000000000000000000FFFFFFFFFFFFFFFF0000000000010000000000000000
      00000003000100080000000900000029000000AF000000580000003800000052
      0000006500000089000000190000001500000019000000180000001B00000019
      0000001B0000002B0000007402000001000100070001000101010400CBCECCE5
      F0FFFFFF0200080000FF860000070005004D656D6F3100000000000000000000
      000000000000110200001102000020000118FFFFFF1F00000000000000000901
      0000000000000000000901000000000000000000090100000000000000000009
      010000000000010000000018000000B9E3D6DDCAD0C2F3D1E0CAB3C6B7D3D0CF
      DEB9ABCBBE0D0A000000000000022E0000010000000000000000000000000000
      00000003005B3B5D03000400CBCECCE5F0FFFFFF0200080000FF860001010200
      0000000000000000000000000000FFFFFF1F00000D004D532053616E73205365
      726966F5FFFFFF020000000000010000FFFFFFFFFFFFFFFF6A03000001000200