inforunit.dfm

使用delphi语言

object inforform: Tinforform
  Left = 245
  Top = 120
  BorderIcons = []
  BorderStyle = bsSingle
  Caption = #32844#24037#20449#24687#21464#21160
  ClientHeight = 354
  ClientWidth = 441
  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 Panel1: TPanel
    Left = 0
    Top = 0
    Width = 441
    Height = 354
    BevelInner = bvLowered
    TabOrder = 0
    object GroupBox1: TGroupBox
      Left = 16
      Top = 13
      Width = 409
      Height = 300
      Caption = #27491#24120#32564#32435'<--->'#26242#20572#32564#32435
      TabOrder = 0
      object Label3: TLabel
        Left = 11
        Top = 20
        Width = 72
        Height = 13
        Caption = #27491#24120#32564#32435#20154#21592
      end
      object Label4: TLabel
        Left = 227
        Top = 21
        Width = 72
        Height = 13
        Caption = #26242#20572#32564#32435#20154#21592
      end
      object db1: TDBLookupListBox
        Left = 8
        Top = 35
        Width = 171
        Height = 251
        KeyField = #32844#24037#32534#21495
        ListSource = DataSource1
        TabOrder = 0
      end
      object BitBtn3: TBitBtn
        Left = 188
        Top = 80
        Width = 26
        Height = 20
        Caption = '>'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        OnClick = BitBtn3Click
      end
      object BitBtn4: TBitBtn
        Left = 188
        Top = 112
        Width = 26
        Height = 20
        Caption = '>>'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 2
        OnClick = BitBtn4Click
      end
      object BitBtn5: TBitBtn
        Left = 188
        Top = 184
        Width = 26
        Height = 20
        Caption = '<'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 3
        OnClick = BitBtn5Click
      end
      object BitBtn6: TBitBtn
        Left = 188
        Top = 216
        Width = 26
        Height = 20
        Caption = '<<'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 4
        OnClick = BitBtn6Click
      end
      object db2: TDBLookupListBox
        Left = 224
        Top = 35
        Width = 175
        Height = 251
        KeyField = #32844#24037#32534#21495
        ListSource = DataSource2
        TabOrder = 5
      end
    end
    object BitBtn2: TBitBtn
      Left = 181
      Top = 319
      Width = 75
      Height = 25
      Caption = #20851#38381
      TabOrder = 1
      OnClick = BitBtn2Click
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 0
    Width = 441
    Height = 354
    BevelInner = bvLowered
    TabOrder = 2
    object GroupBox3: TGroupBox
      Left = 17
      Top = 16
      Width = 409
      Height = 300
      Caption = #36716#20837#36864#20241#20154#21592
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      object Label5: TLabel
        Left = 12
        Top = 23
        Width = 65
        Height = 13
        Caption = #26410#36864#20241#20154#21592
      end
      object Label6: TLabel
        Left = 226
        Top = 24
        Width = 52
        Height = 13
        Caption = #36864#20241#20154#21592
      end
      object Label8: TLabel
        Left = 128
        Top = 24
        Width = 52
        Height = 13
        Caption = #32844#24037#22995#21517
      end
      object Label9: TLabel
        Left = 336
        Top = 24
        Width = 52
        Height = 13
        Caption = #32844#24037#22995#21517
      end
      object BitBtn7: TBitBtn
        Left = 191
        Top = 83
        Width = 26
        Height = 20
        Caption = '>'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        OnClick = BitBtn7Click
      end
      object BitBtn8: TBitBtn
        Left = 191
        Top = 115
        Width = 26
        Height = 20
        Caption = '>>'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        OnClick = BitBtn8Click
      end
      object BitBtn9: TBitBtn
        Left = 191
        Top = 187
        Width = 26
        Height = 20
        Caption = '<'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 2
        OnClick = BitBtn9Click
      end
      object BitBtn10: TBitBtn
        Left = 191
        Top = 219
        Width = 26
        Height = 20
        Caption = '<<'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 3
        OnClick = BitBtn10Click
      end
      object ListBox1: TListBox
        Left = 8
        Top = 40
        Width = 175
        Height = 249
        ItemHeight = 13
        TabOrder = 4
        OnClick = ListBox1Click
      end
      object ListBox2: TListBox
        Left = 225
        Top = 40
        Width = 170
        Height = 249
        ItemHeight = 13
        TabOrder = 5
        OnClick = ListBox2Click
      end
    end
    object BitBtn14: TBitBtn
      Left = 237
      Top = 323
      Width = 75
      Height = 25
      Caption = #20851#38381
      TabOrder = 1
      OnClick = BitBtn2Click
    end
    object BitBtn1: TBitBtn
      Left = 122
      Top = 323
      Width = 75
      Height = 25
      Caption = #30830#23450
      TabOrder = 2
      OnClick = BitBtn1Click
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 441
    Height = 354
    BevelInner = bvLowered
    TabOrder = 1
    object GroupBox2: TGroupBox
      Left = 40
      Top = 64
      Width = 375
      Height = 193
      Caption = #32844#24037#37096#38376#35843#25972
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      object Label1: TLabel
        Left = 28
        Top = 61
        Width = 104
        Height = 13
        Caption = #35831#36755#20837#32844#24037#30340#32534#21495
      end
      object Label2: TLabel
        Left = 28
        Top = 93
        Width = 130
        Height = 13
        Caption = #35831#36873#25321#27442#35843#25972#21040#30340#37096#38376
      end
      object Label7: TLabel
        Left = 40
        Top = 136
        Width = 286
        Height = 13
        Caption = #21452#20987#32844#24037#32534#21495#36755#20837#26694#65292#22312#24377#20986#30340#31383#21475#36873#25321#32844#24037#32534#21495
        Font.Charset = ANSI_CHARSET
        Font.Color = clRed
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object edit1: TEdit
        Left = 164
        Top = 56
        Width = 161
        Height = 21
        TabOrder = 0
        OnDblClick = Edit1DblClick
      end
      object DBLookupComboBox1: TDBLookupComboBox
        Left = 164
        Top = 88
        Width = 162
        Height = 21
        KeyField = #37096#38376#21517#31216
        ListSource = dm.dsbm
        TabOrder = 1
      end
    end
    object BitBtn11: TBitBtn
      Left = 106
      Top = 279
      Width = 75
      Height = 25
      Caption = #30830#23450
      TabOrder = 1
      OnClick = BitBtn11Click
    end
    object BitBtn12: TBitBtn
      Left = 253
      Top = 279
      Width = 75
      Height = 25
      Cancel = True
      Caption = #20851#38381
      TabOrder = 2
      OnClick = BitBtn2Click
    end
  end
  object zc: TADODataSet
    Connection = dm.gjjconn
    CursorType = ctStatic
    CommandText = 'select '#31867#22411','#32844#24037#32534#21495' from  '#31995#25968#34920' where  '#37096#38376#32534#21495'=:id  and       '#31867#22411'='#39'1'#39'  '
    Parameters = <
      item
        Name = 'id'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end>
    Left = 8
    Top = 13
    object zcDSDesigner: TStringField
      FieldName = #31867#22411
      Size = 2
    end
    object zcDSDesigner2: TStringField
      FieldName = #32844#24037#32534#21495
      Size = 50
    end
  end
  object zt: TADODataSet
    Connection = dm.gjjconn
    CursorType = ctStatic
    CommandText = 'select '#31867#22411','#32844#24037#32534#21495' from  '#31995#25968#34920' where  '#37096#38376#32534#21495'=:id  and       '#31867#22411'='#39'0'#39'  '
    Parameters = <
      item
        Name = 'id'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end>
    Left = 16
    Top = 85
    object ztDSDesigner: TStringField
      FieldName = #31867#22411
      Size = 2
    end
    object ztDSDesigner2: TStringField
      FieldName = #32844#24037#32534#21495
      Size = 50
    end
  end
  object DataSource1: TDataSource
    DataSet = zc
    Left = 8
    Top = 117
  end
  object DataSource2: TDataSource
    DataSet = zt
    Left = 8
    Top = 157
  end
  object c: TADOCommand
    Connection = dm.gjjconn
    Parameters = <>
    Left = 8
    Top = 53
  end
end