sendmoney.dfm

1. 直接安装并运行案例程序 运行“安装程序”文件夹中的setup.exe文件

object frmSendMoney: TfrmSendMoney
  Left = 273
  Top = 159
  BorderStyle = bsDialog
  Caption = #36164#37329#19979#25320
  ClientHeight = 306
  ClientWidth = 403
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object DBGrid1: TDBGrid
    Left = 8
    Top = 8
    Width = 385
    Height = 120
    DataSource = DataSource1
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object GroupBox1: TGroupBox
    Left = 8
    Top = 136
    Width = 385
    Height = 121
    TabOrder = 1
    object Label1: TLabel
      Left = 8
      Top = 24
      Width = 57
      Height = 13
      AutoSize = False
      Caption = #37096#38376#21517#31216
    end
    object Label2: TLabel
      Left = 200
      Top = 24
      Width = 57
      Height = 13
      AutoSize = False
      Caption = #37096#38376#32534#21495
    end
    object Label3: TLabel
      Left = 8
      Top = 60
      Width = 57
      Height = 13
      AutoSize = False
      Caption = #36164#37329#25968#39069
    end
    object Label4: TLabel
      Left = 200
      Top = 60
      Width = 57
      Height = 13
      AutoSize = False
      Caption = #25320#27454#26085#26399
    end
    object Label5: TLabel
      Left = 140
      Top = 60
      Width = 12
      Height = 13
      AutoSize = False
      Caption = #20803
    end
    object Label6: TLabel
      Left = 37
      Top = 92
      Width = 33
      Height = 13
      AutoSize = False
      Caption = #29992#36884
    end
    object bmName: TComboBox
      Left = 64
      Top = 20
      Width = 89
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      TabOrder = 0
      OnSelect = bmNameSelect
    end
    object bmId: TEdit
      Left = 256
      Top = 20
      Width = 81
      Height = 21
      ReadOnly = True
      TabOrder = 1
      Text = 'bmId'
    end
    object dt: TDateTimePicker
      Left = 256
      Top = 56
      Width = 81
      Height = 21
      CalAlignment = dtaLeft
      Date = 37710.700681875
      Time = 37710.700681875
      DateFormat = dfShort
      DateMode = dmComboBox
      Kind = dtkDate
      ParseInput = False
      TabOrder = 2
    end
    object num: TEdit
      Left = 64
      Top = 56
      Width = 73
      Height = 21
      TabOrder = 3
      Text = 'Edit1'
      OnExit = numExit
    end
    object note: TEdit
      Left = 64
      Top = 88
      Width = 193
      Height = 21
      TabOrder = 4
      Text = 'note'
    end
  end
  object Button1: TButton
    Left = 8
    Top = 271
    Width = 60
    Height = 22
    Caption = #20462#25913
    TabOrder = 2
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 73
    Top = 271
    Width = 60
    Height = 22
    Caption = #28155#21152
    TabOrder = 3
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 138
    Top = 271
    Width = 60
    Height = 22
    Caption = #21024#38500
    TabOrder = 4
    OnClick = Button3Click
  end
  object Button6: TButton
    Left = 333
    Top = 271
    Width = 60
    Height = 22
    Caption = #36864#20986
    ModalResult = 2
    TabOrder = 5
  end
  object Query1: TQuery
    Active = True
    DatabaseName = 'wuzi'
    SQL.Strings = (
      'select a.'#37096#38376#32534#21495',a.'#37096#38376#21517#31216',b.'#36164#37329#25968#39069',b.'#25320#27454#26085#26399',b.'#29992#36884
      'from bminfo as a,zjxb as b'
      'where a.'#37096#38376#32534#21495'=b.'#37096#38376#32534#21495)
    Left = 144
    Top = 56
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 192
    Top = 64
  end
  object Table1: TTable
    DatabaseName = 'wuzi'
    TableName = 'bminfo.db'
    Left = 152
    Top = 112
  end
  object Table2: TTable
    DatabaseName = 'wuzi'
    TableName = 'zjxb.db'
    Left = 184
    Top = 112
  end
end