sale.dfm

来自「完整的delphi书籍源代码,大家有空的时候自己慢慢看看」· DFM 代码 · 共 282 行

object SaleFrm: TSaleFrm
  Left = 113
  Top = 24
  Width = 595
  Height = 503
  Caption = #19994#32489#32479#35745
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 24
    Top = 16
    Width = 553
    Height = 81
    Caption = #36873#25321#32479#35745#26102#38388#27573
    TabOrder = 0
    object Label1: TLabel
      Left = 56
      Top = 40
      Width = 12
      Height = 13
      Caption = #20174
    end
    object Label2: TLabel
      Left = 192
      Top = 40
      Width = 12
      Height = 13
      Caption = #21040
    end
    object Button1: TButton
      Left = 344
      Top = 32
      Width = 105
      Height = 25
      Caption = #26597#30475#19994#32489#32479#35745
      TabOrder = 0
      OnClick = Button1Click
    end
    object DateTimePicker1: TDateTimePicker
      Left = 80
      Top = 32
      Width = 97
      Height = 21
      Date = 37909.886388888890000000
      Time = 37909.886388888890000000
      TabOrder = 1
    end
    object DateTimePicker2: TDateTimePicker
      Left = 216
      Top = 32
      Width = 97
      Height = 21
      Date = 37909.886407893520000000
      Time = 37909.886407893520000000
      TabOrder = 2
    end
  end
  object GroupBox2: TGroupBox
    Left = 24
    Top = 104
    Width = 553
    Height = 193
    Caption = #38144#21806#19994#32489#32479#35745
    TabOrder = 1
    object DBGrid1: TDBGrid
      Left = 16
      Top = 24
      Width = 521
      Height = 145
      DataSource = DataSource1
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'ProductCode'
          Title.Alignment = taCenter
          Title.Caption = #36135#21697#26465#30721
          Width = 87
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'ProductName'
          Title.Alignment = taCenter
          Title.Caption = #36135#21697#21517#31216
          Width = 65
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Spec'
          Title.Alignment = taCenter
          Title.Caption = #35268#26684
          Width = 48
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Unit'
          Title.Alignment = taCenter
          Title.Caption = #21333#20301
          Width = 46
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'AvgStock'
          Title.Alignment = taCenter
          Title.Caption = #24179#22343#25104#26412
          Width = 59
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'AllQuantity'
          Title.Alignment = taCenter
          Title.Caption = #38144#21806#37327
          Width = 49
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'AllPayment'
          Title.Alignment = taCenter
          Title.Caption = #38144#21806#39069
          Width = 51
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'GrossProfit'
          Title.Alignment = taCenter
          Title.Caption = #38144#21806#27611#21033
          Width = 73
          Visible = True
        end>
    end
  end
  object GroupBox3: TGroupBox
    Left = 24
    Top = 304
    Width = 553
    Height = 105
    Caption = #21516#26399#21033#28070#32479#35745
    TabOrder = 2
    object DBGrid2: TDBGrid
      Left = 24
      Top = 24
      Width = 489
      Height = 49
      DataSource = DataSource2
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'AllSale'
          Title.Alignment = taCenter
          Title.Caption = #38144#21806#24635#39069
          Width = 81
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'AllGProfit'
          Title.Alignment = taCenter
          Title.Caption = #24635#38144#21806#27611#21033
          Width = 88
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'OtherProfit'
          Title.Alignment = taCenter
          Title.Caption = #20854#23427#33829#25910
          Width = 100
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'OtherPayout'
          Title.Alignment = taCenter
          Title.Caption = #20854#20182#25903#20986
          Width = 81
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'AllProfit'
          Title.Alignment = taCenter
          Title.Caption = #24635#21033#28070
          Width = 90
          Visible = True
        end>
    end
  end
  object Button2: TButton
    Left = 144
    Top = 424
    Width = 99
    Height = 25
    Caption = #25171#21360#38144#21806#19994#32489
    TabOrder = 3
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 264
    Top = 424
    Width = 97
    Height = 25
    Caption = #25171#21360#21516#26399#21033#28070
    TabOrder = 4
    OnClick = Button3Click
  end
  object Button4: TButton
    Left = 384
    Top = 424
    Width = 81
    Height = 25
    Caption = #36820'   '#22238
    TabOrder = 5
    OnClick = Button4Click
  end
  object ADOQuery1: TADOQuery
    Connection = LoginFrm.ADOConnection1
    Parameters = <>
    Left = 168
    Top = 8
  end
  object ADOQuery2: TADOQuery
    Connection = LoginFrm.ADOConnection1
    Parameters = <>
    Left = 200
    Top = 8
  end
  object ADOQuery3: TADOQuery
    Connection = LoginFrm.ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'select * from Sale')
    Left = 312
    Top = 8
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery3
    Left = 352
    Top = 8
  end
  object DataSource2: TDataSource
    DataSet = ADOQuery4
    Left = 408
    Top = 8
  end
  object ADOQuery4: TADOQuery
    Connection = LoginFrm.ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'select * from profit')
    Left = 448
    Top = 8
  end
end