providercheck.dfm

物流管理系统是一个典型的数据库应用程序

inherited f_providercheck: Tf_providercheck
  Left = 229
  Top = 147
  Caption = #20379#24212#21830#32467#27454
  ClientHeight = 346
  ClientWidth = 529
  OldCreateOrder = True
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 201
    Top = 8
    Width = 125
    Height = 24
    Alignment = taCenter
    Caption = #20379#24212#21830#32467#27454
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -24
    Font.Name = #26999#20307'_GB2312'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label6: TLabel
    Left = 393
    Top = 55
    Width = 36
    Height = 13
    AutoSize = False
    Caption = #26102#38388
  end
  object Label2: TLabel
    Left = 13
    Top = 55
    Width = 49
    Height = 13
    AutoSize = False
    Caption = #32467#27454#20154
  end
  object Grid: TDBGrid
    Left = 0
    Top = 118
    Width = 529
    Height = 148
    Align = alBottom
    DataSource = Source1
    ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    ReadOnly = True
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnCellClick = GridCellClick
    Columns = <
      item
        Expanded = False
        FieldName = 'providername'
        Title.Caption = #20379#24212#21830#21517#31216
        Width = 99
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'paymoney'
        Title.Caption = #27424#27454#37329#39069
        Width = 99
        Visible = True
      end>
  end
  object Panel2: TPanel
    Left = 0
    Top = 306
    Width = 529
    Height = 40
    Align = alBottom
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 2
    object Cancel: TBitBtn
      Left = 343
      Top = 10
      Width = 75
      Height = 21
      Caption = #21462#28040
      TabOrder = 0
      OnClick = CancelClick
    end
    object Quit: TBitBtn
      Left = 430
      Top = 10
      Width = 75
      Height = 21
      Caption = #36864#20986
      TabOrder = 1
      OnClick = QuitClick
    end
    object Check: TBitBtn
      Left = 257
      Top = 10
      Width = 75
      Height = 21
      Caption = #32467#27454
      Enabled = False
      TabOrder = 2
      OnClick = CheckClick
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 77
    Width = 529
    Height = 41
    Align = alBottom
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 3
    object Label5: TLabel
      Left = 13
      Top = 13
      Width = 75
      Height = 13
      AutoSize = False
      Caption = #20379#24212#21830#21517#31216
    end
    object Provider: TComboBox
      Left = 90
      Top = 9
      Width = 109
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
      ItemHeight = 13
      TabOrder = 0
      OnKeyDown = ProviderKeyDown
    end
    object Query: TBitBtn
      Left = 211
      Top = 9
      Width = 75
      Height = 21
      Caption = #26597#35810
      TabOrder = 1
      OnClick = QueryClick
    end
  end
  object Date: TDateTimePicker
    Left = 426
    Top = 50
    Width = 85
    Height = 21
    Date = 38419.571152256950000000
    Time = 38419.571152256950000000
    ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
    TabOrder = 0
    OnKeyDown = DateKeyDown
  end
  object Panel1: TPanel
    Left = 0
    Top = 266
    Width = 529
    Height = 40
    Align = alBottom
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 4
    object Label7: TLabel
      Left = 17
      Top = 14
      Width = 63
      Height = 13
      AutoSize = False
      Caption = #24212#20184#37329#39069
    end
    object Label8: TLabel
      Left = 174
      Top = 14
      Width = 63
      Height = 13
      AutoSize = False
      Caption = #23454#38469#20184#27454
    end
    object Label3: TLabel
      Left = 332
      Top = 14
      Width = 32
      Height = 13
      AutoSize = False
      Caption = #22791#27880
    end
    object Paymoney: TEdit
      Left = 72
      Top = 11
      Width = 89
      Height = 21
      BevelKind = bkFlat
      BorderStyle = bsNone
      TabOrder = 0
    end
    object Factmoney: TEdit
      Left = 227
      Top = 10
      Width = 97
      Height = 21
      BevelKind = bkFlat
      BorderStyle = bsNone
      TabOrder = 1
    end
    object Memo: TEdit
      Left = 368
      Top = 9
      Width = 121
      Height = 21
      BevelKind = bkFlat
      BorderStyle = bsNone
      TabOrder = 2
    end
  end
  object List: TListBox
    Left = 289
    Top = 92
    Width = 113
    Height = 141
    ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
    ItemHeight = 13
    TabOrder = 5
    Visible = False
    OnDblClick = ListDblClick
    OnExit = ListExit
    OnKeyDown = ListKeyDown
  end
  object Checkman: TEdit
    Left = 64
    Top = 51
    Width = 121
    Height = 21
    BevelKind = bkFlat
    BorderStyle = bsNone
    TabOrder = 6
    OnKeyDown = CheckmanKeyDown
  end
  object Source1: TDataSource
    Left = 56
    Top = 176
  end
end