unitqueryform.dfm

手机批发商进销存管理

object QueryForm: TQueryForm
  Left = 192
  Top = 107
  Width = 696
  Height = 480
  BorderIcons = [biSystemMenu, biMaximize]
  Caption = #26597#35810#32479#35745
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnKeyDown = FormKeyDown
  PixelsPerInch = 96
  TextHeight = 12
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 688
    Height = 41
    Align = alTop
    BevelOuter = bvNone
    Color = clPurple
    TabOrder = 0
    object Label2: TLabel
      Left = 8
      Top = 16
      Width = 48
      Height = 12
      Caption = #36215#22987#26085#26399
      Font.Charset = GB2312_CHARSET
      Font.Color = clLime
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel
      Left = 176
      Top = 16
      Width = 48
      Height = 12
      Caption = #32467#26463#26085#26399
      Font.Charset = GB2312_CHARSET
      Font.Color = clLime
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label4: TLabel
      Left = 344
      Top = 16
      Width = 24
      Height = 12
      Caption = #31867#22411
      Font.Charset = GB2312_CHARSET
      Font.Color = clLime
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label7: TLabel
      Left = 440
      Top = 16
      Width = 24
      Height = 12
      Caption = #26588#21488
      Font.Charset = GB2312_CHARSET
      Font.Color = clLime
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object DateTimePicker1: TDateTimePicker
      Left = 58
      Top = 11
      Width = 105
      Height = 20
      CalAlignment = dtaLeft
      Date = 38712.8501596759
      Time = 38712.8501596759
      DateFormat = dfLong
      DateMode = dmComboBox
      ImeName = #20013#25991' ('#31616#20307') - '#20116#31508#21152#21152
      Kind = dtkDate
      ParseInput = False
      TabOrder = 0
      OnKeyPress = DateTimePicker1KeyPress
    end
    object DateTimePicker2: TDateTimePicker
      Left = 226
      Top = 11
      Width = 105
      Height = 20
      CalAlignment = dtaLeft
      Date = 38712.8501596759
      Time = 38712.8501596759
      DateFormat = dfLong
      DateMode = dmComboBox
      ImeName = #20013#25991' ('#31616#20307') - '#20116#31508#21152#21152
      Kind = dtkDate
      ParseInput = False
      TabOrder = 1
      OnKeyPress = DateTimePicker2KeyPress
    end
    object ComboBox1: TComboBox
      Left = 370
      Top = 11
      Width = 63
      Height = 20
      Style = csDropDownList
      ImeName = #20013#25991' ('#31616#20307') - '#20116#31508#21152#21152
      ItemHeight = 12
      ItemIndex = 0
      TabOrder = 2
      Text = #37319#36141#34920
      OnChange = ComboBox1Change
      OnKeyPress = ComboBox1KeyPress
      Items.Strings = (
        #37319#36141#34920
        #24211#23384#34920
        #38144#21806#34920
        #21806#21518#34920
        #22238#35775#34920)
    end
    object RzBitBtn1: TRzBitBtn
      Left = 544
      Top = 9
      Width = 65
      Caption = #26597#35810
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 3
      OnClick = RzBitBtn1Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00337333733373
        3373337F3F7F3F7F3F7F33737373737373733F7F7F7F7F7F7F7F770000000000
        000077777777777777773303333333333333337FFF333333333F370993333333
        3399377773F33333337733033933333339333F7FF7FFFFFFF7FF77077797CCC7
        977777777777777777773303339C333C9333337F3377F3377F33370333C93339
        C333377F33773FF77F33330333C39993C3333F7FFF7F777F7FFF770777C77777
        C77777777777777777773303333C333C3333337F33373FF7333337033333CCC3
        3333377F33337773333333033333333333333F7FFFFFFFFFFFFF770777777777
        7777777777777777777733333333333333333333333333333333}
      ImageIndex = 6
      NumGlyphs = 2
    end
    object ComboBox2: TComboBox
      Left = 466
      Top = 11
      Width = 63
      Height = 20
      Style = csDropDownList
      Color = clBtnFace
      Enabled = False
      ImeName = #20013#25991' ('#31616#20307') - '#20116#31508#21152#21152
      ItemHeight = 12
      TabOrder = 4
      OnKeyPress = ComboBox2KeyPress
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 41
    Width = 688
    Height = 389
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 1
    object DBGrid1: TDBGrid
      Left = 0
      Top = 0
      Width = 688
      Height = 389
      Align = alClient
      Color = clBtnFace
      DataSource = DataSource1
      ImeName = #20013#25991' ('#31616#20307') - '#20116#31508#21152#21152
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      OnCellClick = DBGrid1CellClick
      OnEditButtonClick = DBGrid1EditButtonClick
      Columns = <
        item
          Color = clYellow
          Expanded = False
          FieldName = 'CurDate'
          Title.Alignment = taCenter
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'GoodsOwner'
          Title.Alignment = taCenter
          Width = 62
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'GoodsName'
          Title.Alignment = taCenter
          Width = 92
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'GoodsType'
          Title.Alignment = taCenter
          Width = 86
          Visible = True
        end
        item
          Color = clInfoBk
          Expanded = False
          FieldName = 'CurNum'
          Title.Alignment = taCenter
          Visible = True
        end
        item
          ButtonStyle = cbsEllipsis
          Color = clAqua
          Expanded = False
          FieldName = 'button1'
          Title.Alignment = taCenter
          Width = 45
          Visible = True
        end
        item
          Color = clInfoBk
          Expanded = False
          FieldName = 'LastNum'
          Title.Alignment = taCenter
          Visible = True
        end
        item
          ButtonStyle = cbsEllipsis
          Color = clAqua
          Expanded = False
          FieldName = 'button2'
          Title.Alignment = taCenter
          Width = 45
          Visible = True
        end
        item
          Color = clInfoBk
          Expanded = False
          FieldName = 'TotNum'
          Title.Alignment = taCenter
          Visible = True
        end
        item
          ButtonStyle = cbsEllipsis
          Color = clAqua
          Expanded = False
          FieldName = 'button3'
          Title.Alignment = taCenter
          Width = 45
          Visible = True
        end>
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 430
    Width = 688
    Height = 23
    Align = alBottom
    BevelOuter = bvLowered
    TabOrder = 2
    object Label1: TLabel
      Left = 72
      Top = 6
      Width = 84
      Height = 12
      Caption = #26412#26399#25968#37327#23567#35745#65306
      Font.Charset = GB2312_CHARSET
      Font.Color = clTeal
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label5: TLabel
      Left = 256
      Top = 6
      Width = 108
      Height = 12
      Caption = #19978#26399#24211#23384#25968#37327#23567#35745#65306
      Font.Charset = GB2312_CHARSET
      Font.Color = clTeal
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label6: TLabel
      Left = 488
      Top = 6
      Width = 108
      Height = 12
      Caption = #32047#35745#24211#23384#25968#37327#23567#35745#65306
      Font.Charset = GB2312_CHARSET
      Font.Color = clTeal
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label_CurNum: TLabel
      Left = 160
      Top = 4
      Width = 8
      Height = 14
      Caption = '0'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label_LastNum: TLabel
      Left = 368
      Top = 4
      Width = 8
      Height = 14
      Caption = '0'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label_TotNum: TLabel
      Left = 600
      Top = 4
      Width = 8
      Height = 14
      Caption = '0'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
  end
  object ADOQuery1: TADOQuery
    Connection = DM1.ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from Tab_TempQuery order by CurDate,GoodsName,GoodsType')
    Left = 200
    Top = 104
    object ADOQuery1CurDate: TWideStringField
      DisplayLabel = #26085#26399
      FieldName = 'CurDate'
      Size = 8
    end
    object ADOQuery1GoodsOwner: TWideStringField
      DisplayLabel = #26588#21488
      FieldName = 'GoodsOwner'
      Size = 30
    end
    object ADOQuery1GoodsName: TWideStringField
      DisplayLabel = #21697#21517
      FieldName = 'GoodsName'
      Size = 30
    end
    object ADOQuery1GoodsType: TWideStringField
      DisplayLabel = #26426#22411
      FieldName = 'GoodsType'
      Size = 30
    end
    object ADOQuery1CurNum: TIntegerField
      DisplayLabel = #25968#37327
      FieldName = 'CurNum'
    end
    object ADOQuery1button1: TWideStringField
      Alignment = taCenter
      DisplayLabel = #20018#21495
      FieldName = 'button1'
      Size = 4
    end
    object ADOQuery1LastNum: TIntegerField
      DisplayLabel = #19978#26399#24211#23384#25968#37327
      FieldName = 'LastNum'
    end
    object ADOQuery1button2: TWideStringField
      Alignment = taCenter
      DisplayLabel = #20018#21495
      FieldName = 'button2'
      Size = 4
    end
    object ADOQuery1TotNum: TIntegerField
      DisplayLabel = #32047#35745#24211#23384#25968#37327
      FieldName = 'TotNum'
    end
    object ADOQuery1button3: TWideStringField
      Alignment = taCenter
      DisplayLabel = #20018#21495
      FieldName = 'button3'
      Size = 4
    end
  end
  object DataSource1: TDataSource
    AutoEdit = False
    DataSet = ADOQuery1
    Left = 160
    Top = 104
  end
end