paymoney.dfm

来自「C++ Builder数据库开发经典案例解析 示例程序都是在C++ Build」· DFM 代码 · 共 186 行

object fmPayMoney: TfmPayMoney
  Left = 192
  Top = 107
  Width = 528
  Height = 396
  Caption = #25910#36153#30830#35748
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Panel2: TPanel
    Left = 0
    Top = 296
    Width = 520
    Height = 73
    Align = alBottom
    TabOrder = 0
    object Label1: TLabel
      Left = 168
      Top = 30
      Width = 33
      Height = 13
      AutoSize = False
      Caption = #25910#27454
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 16
      Top = 30
      Width = 57
      Height = 13
      AutoSize = False
      Caption = #21512#35745#37329#39069
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel
      Left = 288
      Top = 30
      Width = 33
      Height = 13
      AutoSize = False
      Caption = #25214#38646
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Edit1: TEdit
      Left = 72
      Top = 26
      Width = 73
      Height = 21
      ReadOnly = True
      TabOrder = 1
      Text = 'Edit1'
    end
    object Edit2: TEdit
      Left = 200
      Top = 26
      Width = 65
      Height = 21
      TabOrder = 0
      Text = 'Edit2'
      OnChange = Edit2Change
    end
    object Edit3: TEdit
      Left = 320
      Top = 26
      Width = 73
      Height = 21
      ReadOnly = True
      TabOrder = 2
      Text = 'Edit3'
    end
    object Button1: TButton
      Left = 424
      Top = 8
      Width = 75
      Height = 25
      Caption = #25910'  '#27454
      TabOrder = 3
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 424
      Top = 40
      Width = 75
      Height = 25
      Caption = #21462'  '#28040
      TabOrder = 4
      OnClick = Button2Click
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 0
    Width = 520
    Height = 296
    Align = alClient
    TabOrder = 1
    object DBGrid1: TDBGrid
      Left = 1
      Top = 1
      Width = 518
      Height = 294
      Align = alClient
      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 = #32534#21495
          Width = 36
          Visible = True
        end
        item
          Expanded = False
          FieldName = #21010#20215#32534#21495
          Width = 79
          Visible = True
        end
        item
          Expanded = False
          FieldName = #33647#21697#32534#21495
          Width = 106
          Visible = True
        end
        item
          Expanded = False
          FieldName = #21333#20215
          Visible = True
        end
        item
          Expanded = False
          FieldName = #25968#37327
          Visible = True
        end
        item
          Expanded = False
          FieldName = #37329#39069
          Visible = True
        end>
    end
  end
  object Table1: TTable
    Active = True
    DatabaseName = 'db'
    ReadOnly = True
    TableName = 'dbo.'#38376#35786#21010#20215#26126#32454
    Left = 192
    Top = 200
  end
  object DataSource2: TDataSource
    DataSet = Table1
    Left = 224
    Top = 200
  end
  object pQuery: TQuery
    DatabaseName = 'db'
    Left = 256
    Top = 200
  end
end