p_fk.dfm

超市系统超市系统超市系统超市系统超市系统超市系统超市系统超市系统超市系统超市系统超市系统超市系统超市系统超市系统

object f_fk: Tf_fk
  Left = 72
  Top = 25
  Width = 630
  Height = 497
  Caption = #20986#36135#20184#27454
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 6
    Top = 6
    Width = 609
    Height = 240
    Caption = #26410#32467#24080#20043#20986#24211#21333
    TabOrder = 0
    object Label1: TLabel
      Left = 312
      Top = 24
      Width = 12
      Height = 13
      Caption = #21040
    end
    object DBGrid1: TDBGrid
      Left = 8
      Top = 75
      Width = 593
      Height = 157
      DataSource = dm.DS_QUERY
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      OnCellClick = DBGrid1CellClick
      Columns = <
        item
          Expanded = False
          FieldName = 'ddh'
          Title.Caption = #20986#24211#21333#32534#21495
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'ddrq'
          Title.Caption = #35746#21333#26085#26399
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'khm'
          Title.Caption = #23458#25143#21517#31216
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'zjje'
          Title.Caption = #24635#35745#37329#39069
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'yfje'
          Title.Caption = #24050#20184#37329#39069
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'mje'
          Title.Caption = #20813#21435#37329#39069
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'qk'
          Title.Caption = #27424#27454
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'jbr'
          Title.Caption = #32463#21150#20154
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'bz'
          Title.Caption = #22791#27880
          Visible = True
        end>
    end
    object ckdh: TsuiCheckBox
      Left = 8
      Top = 46
      Width = 129
      Height = 19
      UIStyle = DeepBlue
      AutoSize = True
      Checked = False
      Caption = #25353#20986#24211#21333#32534#21495#26597#35810#65306
      TabOrder = 1
      TabStop = True
      State = cbUnchecked
      Transparent = False
      OnClick = ckdhClick
    end
    object khm: TsuiCheckBox
      Left = 263
      Top = 48
      Width = 105
      Height = 19
      UIStyle = DeepBlue
      AutoSize = True
      Checked = False
      Caption = #23458#25143#21517#31216#26597#35810#65306
      TabOrder = 2
      TabStop = True
      State = cbUnchecked
      Transparent = False
      OnClick = khmClick
    end
    object eckdh: TsuiEdit
      Left = 139
      Top = 47
      Width = 121
      Height = 19
      UIStyle = DeepBlue
      BorderColor = clBlack
      Enabled = False
      TabOrder = 3
    end
    object ekhm: TsuiEdit
      Left = 369
      Top = 47
      Width = 136
      Height = 19
      UIStyle = DeepBlue
      BorderColor = clBlack
      Enabled = False
      TabOrder = 4
    end
    object BitBtn1: TBitBtn
      Left = 518
      Top = 16
      Width = 75
      Height = 25
      Caption = ' '#26597' '#35810' '
      TabOrder = 5
      OnClick = BitBtn1Click
      Glyph.Data = {
        42020000424D4202000000000000420000002800000010000000100000000100
        1000030000000002000000000000000000000000000000000000007C0000E003
        00001F0000001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
        1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
        1F7C1F7C1F7C000000000000000000001F7C1F7C1F7C1F7C1F7C000000000000
        000000001F7C0000FF7F0000000000001F7C1F7C1F7C1F7C1F7C0000FF7F0000
        000000001F7C0000FF7F0000000000001F7C1F7C1F7C1F7C1F7C0000FF7F0000
        000000001F7C00000000000000000000000000001F7C00000000000000000000
        000000001F7C00000000FF7F000000000000000000000000FF7F000000000000
        000000001F7C00000000FF7F000000000000186300000000FF7F000000000000
        000000001F7C00000000FF7F000000000000186300000000FF7F000000000000
        000000001F7C1F7C000000000000000000000000000000000000000000000000
        00001F7C1F7C1F7C1F7C0000FF7F0000000000001F7C0000FF7F000000000000
        1F7C1F7C1F7C1F7C1F7C000000000000000000001F7C00000000000000000000
        1F7C1F7C1F7C1F7C1F7C1F7C0000000000001F7C1F7C1F7C0000000000001F7C
        1F7C1F7C1F7C1F7C1F7C1F7C0000FF7F00001F7C1F7C1F7C0000FF7F00001F7C
        1F7C1F7C1F7C1F7C1F7C1F7C0000000000001F7C1F7C1F7C0000000000001F7C
        1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
        1F7C1F7C1F7C}
    end
    object dt1: TDateTimePicker
      Left = 139
      Top = 20
      Width = 158
      Height = 21
      Date = 37985.020479675930000000
      Time = 37985.020479675930000000
      Enabled = False
      TabOrder = 6
    end
    object dt2: TDateTimePicker
      Left = 345
      Top = 20
      Width = 161
      Height = 21
      Date = 37985.020479675930000000
      Time = 37985.020479675930000000
      Enabled = False
      TabOrder = 7
    end
    object BitBtn2: TBitBtn
      Left = 518
      Top = 42
      Width = 75
      Height = 25
      Caption = ' '#20840' '#37096' '
      TabOrder = 8
      OnClick = BitBtn2Click
    end
  end
  object GroupBox2: TGroupBox
    Left = 6
    Top = 315
    Width = 609
    Height = 149
    Caption = #20986#24211#21333#21830#21697#26126#32454
    TabOrder = 1
    object DBGrid2: TDBGrid
      Left = 6
      Top = 15
      Width = 595
      Height = 127
      Ctl3D = True
      DataSource = dm.DS_CK
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
      ParentCtl3D = False
      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 = 'sph'
          Title.Caption = #21830#21697#32534#21495
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'rkdh'
          Title.Caption = #20837#24211#21333#21495
          Width = 102
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'C'
          Title.Caption = #30899#21547#37327
          Width = 43
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'HCL'
          Title.Caption = #30416#37240#19981#28342#29289
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'SZMD'
          Title.Caption = #26494#35013#23494#24230
          Width = 52
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'YSX'
          Title.Caption = #21387#32553#24615
          Width = 44
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'sl'
          Title.Caption = #25968#37327
          Width = 55
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'scsl'
          Title.Caption = #23454#25910#25968#37327
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'cj'
          Title.Caption = #20215#26684
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'dw'
          Title.Caption = #25968#37327#21333#20301
          Width = 51
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'bz'
          Title.Caption = #22791#27880
          Width = 77
          Visible = True
        end>
    end
  end
  object GroupBox3: TGroupBox
    Left = 6
    Top = 249
    Width = 609
    Height = 64
    Caption = #20184#27454
    TabOrder = 2
    object Label2: TLabel
      Left = 37
      Top = 19
      Width = 36
      Height = 13
      Caption = #24635#35745#65306
    end
    object Label3: TLabel
      Left = 36
      Top = 40
      Width = 36
      Height = 13
      Caption = #27424#27454#65306
    end
    object Label4: TLabel
      Left = 243
      Top = 19
      Width = 60
      Height = 13
      Caption = #20184#27454#37329#39069#65306
    end
    object Label5: TLabel
      Left = 243
      Top = 41
      Width = 60
      Height = 13
      Caption = #20813#21435#37329#39069#65306
    end
    object zjje: TsuiEdit
      Left = 83
      Top = 15
      Width = 126
      Height = 19
      UIStyle = DeepBlue
      BorderColor = clBlack
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ReadOnly = True
      TabOrder = 0
    end
    object qkje: TsuiEdit
      Left = 83
      Top = 38
      Width = 126
      Height = 19
      UIStyle = DeepBlue
      BorderColor = clBlack
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ReadOnly = True
      TabOrder = 1
    end
    object fkje: TsuiEdit
      Left = 307
      Top = 15
      Width = 125
      Height = 19
      UIStyle = DeepBlue
      BorderColor = clBlack
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      OnKeyPress = fkjeKeyPress
    end
    object b_fk: TBitBtn
      Left = 482
      Top = 23
      Width = 75
      Height = 25
      Caption = ' '#20184' '#27454' '
      TabOrder = 3
      OnClick = b_fkClick
    end
    object mje: TsuiEdit
      Left = 307
      Top = 38
      Width = 125
      Height = 19
      UIStyle = DeepBlue
      BorderColor = clBlack
      Font.Charset = DEFAULT_CHARSET
      Font.Color = 8388863
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 4
      OnKeyPress = mjeKeyPress
    end
  end
  object rq: TsuiCheckBox
    Left = 14
    Top = 25
    Width = 129
    Height = 19
    UIStyle = DeepBlue
    AutoSize = True
    Checked = False
    Caption = #25353#20986#24211#21333#26085#26399#26597#35810#65306
    TabOrder = 3
    TabStop = True
    State = cbUnchecked
    Transparent = False
    OnClick = rqClick
  end
end