jfunit1.dfm

《delphi 7.0_8.0课程设计与系统开发案例》随书代码

object Form1: TForm1
  Left = 106
  Top = 137
  Width = 650
  Height = 385
  Caption = #23398#29983#32564#36153#27880#20876#31995#32479
  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 Label1: TLabel
    Left = 101
    Top = 13
    Width = 300
    Height = 24
    Caption = #27426#36814#20351#29992#23398#29983#32564#36153#27880#20876#31995#32479
    Font.Charset = GB2312_CHARSET
    Font.Color = clFuchsia
    Font.Height = -24
    Font.Name = #38582#20070
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label2: TLabel
    Left = 24
    Top = 56
    Width = 48
    Height = 12
    Caption = #23398#29983#32534#21495
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label3: TLabel
    Left = 24
    Top = 85
    Width = 48
    Height = 12
    Caption = #23398#29983#22995#21517
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label4: TLabel
    Left = 24
    Top = 114
    Width = 48
    Height = 12
    Caption = #25152#22312#24180#32423
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label5: TLabel
    Left = 24
    Top = 143
    Width = 48
    Height = 12
    Caption = #25152#22312#29677#32423
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label6: TLabel
    Left = 24
    Top = 172
    Width = 48
    Height = 12
    Caption = #23398#24180#24180#24230
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label7: TLabel
    Left = 24
    Top = 201
    Width = 48
    Height = 12
    Caption = #24212#32564#36153#29992
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label8: TLabel
    Left = 24
    Top = 230
    Width = 36
    Height = 12
    Caption = #23454#32564#36153
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label9: TLabel
    Left = 253
    Top = 233
    Width = 24
    Height = 12
    Caption = #25214#38646
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label11: TLabel
    Left = 24
    Top = 288
    Width = 36
    Height = 12
    Caption = #32463#25163#20154
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label12: TLabel
    Left = 370
    Top = 54
    Width = 48
    Height = 12
    Caption = #32564#36153#28165#21333
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object SpeedButton1: TSpeedButton
    Left = 258
    Top = 320
    Width = 51
    Height = 25
    Caption = #25554#20837#19968#26465
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    OnClick = SpeedButton1Click
  end
  object DBEdit1: TDBEdit
    Left = 88
    Top = 53
    Width = 140
    Height = 20
    DataField = #23398#29983#32534#21495
    DataSource = DataSource1
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
    ParentFont = False
    TabOrder = 0
  end
  object DBEdit2: TDBEdit
    Left = 88
    Top = 82
    Width = 140
    Height = 20
    DataField = #23398#29983#22995#21517
    DataSource = DataSource1
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
    ParentFont = False
    TabOrder = 1
  end
  object DBLookupComboBox1: TDBLookupComboBox
    Left = 88
    Top = 111
    Width = 140
    Height = 20
    DataField = #25152#22312#24180#32423
    DataSource = DataSource1
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
    KeyField = #25152#22312#24180#32423
    ListField = #25152#22312#24180#32423
    ListSource = DataSource2
    ParentFont = False
    TabOrder = 2
  end
  object DBLookupComboBox2: TDBLookupComboBox
    Left = 88
    Top = 141
    Width = 140
    Height = 20
    DataField = #25152#22312#29677#32423
    DataSource = DataSource1
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
    KeyField = #25152#22312#29677#32423
    ListField = #25152#22312#29677#32423
    ListSource = DataSource2
    ParentFont = False
    TabOrder = 3
  end
  object DBLookupComboBox3: TDBLookupComboBox
    Left = 88
    Top = 170
    Width = 140
    Height = 20
    DataField = #23398#24180#24180#24230
    DataSource = DataSource1
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
    KeyField = #25152#22312#24180#24230
    ListField = #25152#22312#24180#24230
    ListSource = DataSource2
    ParentFont = False
    TabOrder = 4
  end
  object DBLookupComboBox4: TDBLookupComboBox
    Left = 88
    Top = 199
    Width = 140
    Height = 20
    DataField = 'YJF'
    DataSource = DataSource1
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
    KeyField = #24635#36153#29992
    ListField = #24635#36153#29992
    ListSource = DataSource2
    ParentFont = False
    TabOrder = 5
  end
  object DBEdit3: TDBEdit
    Left = 88
    Top = 229
    Width = 140
    Height = 22
    DataField = 'SJ'
    DataSource = DataSource1
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = []
    ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
    ParentFont = False
    TabOrder = 6
  end
  object DBEdit4: TDBEdit
    Left = 296
    Top = 229
    Width = 185
    Height = 22
    DataField = 'ZL'
    DataSource = DataSource1
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = []
    ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
    ParentFont = False
    TabOrder = 7
  end
  object DBLookupComboBox5: TDBLookupComboBox
    Left = 88
    Top = 288
    Width = 140
    Height = 20
    DataField = #32463#25163#20154
    DataSource = DataSource1
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
    KeyField = #32463#25163#20154
    ListField = #32463#25163#20154
    ListSource = DataSource2
    ParentFont = False
    TabOrder = 8
  end
  object DBMemo1: TDBMemo
    Left = 296
    Top = 73
    Width = 185
    Height = 89
    DataField = #36153#29992#28165#21333
    DataSource = DataSource1
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
    ParentFont = False
    TabOrder = 9
  end
  object BitBtn1: TBitBtn
    Left = 20
    Top = 320
    Width = 58
    Height = 25
    Caption = #26368#21069#19968#26465
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 10
    OnClick = BitBtn1Click
  end
  object BitBtn2: TBitBtn
    Left = 77
    Top = 320
    Width = 55
    Height = 25
    Caption = #19979#19968#26465
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 11
    OnClick = BitBtn2Click
  end
  object BitBtn3: TBitBtn
    Left = 196
    Top = 320
    Width = 62
    Height = 25
    Caption = #26368#21518#19968#26465
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 12
    OnClick = BitBtn3Click
  end
  object BitBtn4: TBitBtn
    Left = 309
    Top = 320
    Width = 62
    Height = 25
    Caption = #21462#28040#32534#36753
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 13
    OnClick = BitBtn4Click
  end
  object BitBtn5: TBitBtn
    Left = 370
    Top = 320
    Width = 62
    Height = 25
    Caption = #30830#35748#32534#36753
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 14
    OnClick = BitBtn5Click
  end
  object BitBtn6: TBitBtn
    Left = 431
    Top = 320
    Width = 64
    Height = 25
    Caption = #21047#26032#35760#24405
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 15
    OnClick = BitBtn6Click
  end
  object BitBtn7: TBitBtn
    Left = 494
    Top = 320
    Width = 64
    Height = 25
    Caption = #21024#38500#35760#24405
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 16
    OnClick = BitBtn7Click
  end
  object BitBtn8: TBitBtn
    Left = 131
    Top = 320
    Width = 65
    Height = 25
    Caption = #21069#19968#26465
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 17
    OnClick = BitBtn8Click
  end
  object BitBtn9: TBitBtn
    Left = 557
    Top = 320
    Width = 69
    Height = 25
    Caption = #32534#36753#35760#24405
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 18
    OnClick = BitBtn9Click
  end
  object BitBtn10: TBitBtn
    Left = 493
    Top = 280
    Width = 133
    Height = 25
    Caption = #31995#32479#21021#22987#21270#35774#32622
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 19
    OnClick = BitBtn10Click
  end
  object BitBtn11: TBitBtn
    Left = 493
    Top = 248
    Width = 132
    Height = 25
    Caption = #36827#20837#27983#35272#32479#35745#31383#20307
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 20
    OnClick = BitBtn11Click
  end
  object Table1: TTable
    Active = True
    OnCalcFields = Table1CalcFields
    TableName = #20013#23398#29983#32564#36153'.DB'
    Left = 480
    Top = 16
    object Table1BDEDesigner: TFloatField
      FieldName = #23398#29983#32534#21495
    end
    object Table1BDEDesigner2: TStringField
      FieldName = #23398#29983#22995#21517
      Size = 8
    end
    object Table1BDEDesigner3: TStringField
      FieldName = #25152#22312#24180#32423
      Size = 16
    end
    object Table1BDEDesigner4: TStringField
      FieldName = #25152#22312#29677#32423
      Size = 16
    end
    object Table1YJF: TCurrencyField
      FieldName = 'YJF'
    end
    object Table1BDEDesigner5: TStringField
      FieldName = #23398#24180#24180#24230
      Size = 16
    end
    object Table1BDEDesigner6: TMemoField
      FieldName = #36153#29992#28165#21333
      BlobType = ftMemo
      Size = 240
    end
    object Table1BDEDesigner7: TStringField
      FieldName = #32463#25163#20154
      Size = 8
    end
    object Table1SJ: TCurrencyField
      FieldName = 'SJ'
    end
    object Table1ZL: TCurrencyField
      FieldKind = fkCalculated
      FieldName = 'ZL'
      Calculated = True
    end
    object Table1BDEDesigner8: TStringField
      FieldName = #32564#36153#26085#26399
      Size = 18
    end
    object Table1BDEDesigner9: TStringField
      FieldName = #22791#27880
    end
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 504
    Top = 16
  end
  object Table2: TTable
    Active = True
    TableName = #24180#32423#36153#29992#28165#21333'.DB'
    Left = 440
    Top = 16
    object Table2BDEDesigner: TStringField
      FieldName = #25152#22312#24180#32423
      Size = 18
    end
    object Table2BDEDesigner2: TMemoField
      FieldName = #36153#29992#28165#21333
      BlobType = ftMemo
      Size = 240
    end
    object Table2BDEDesigner3: TStringField
      FieldName = #25152#22312#29677#32423
      Size = 10
    end
    object Table2BDEDesigner4: TCurrencyField
      FieldName = #24635#36153#29992
    end
    object Table2BDEDesigner5: TStringField
      FieldName = #32463#25163#20154
      Size = 8
    end
    object Table2BDEDesigner6: TStringField
      FieldName = #25152#22312#24180#24230
      Size = 18
    end
  end
  object DataSource2: TDataSource
    DataSet = Table2
    Left = 384
    Top = 8
  end
end