unit3.dfm

一个大地科贸公司的公司管理系统

object Frm_worker: TFrm_worker
  Left = 207
  Top = 114
  Width = 544
  Height = 375
  Caption = #20154#21592#20449#24687#31649#29702
  Color = clGreen
  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 = 144
    Top = 24
    Width = 222
    Height = 35
    Caption = #20154#21592#20449#24687#31649#29702
    Font.Charset = GB2312_CHARSET
    Font.Color = clRed
    Font.Height = -35
    Font.Name = #26999#20307'_GB2312'
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object Label2: TLabel
    Left = 160
    Top = 40
    Width = 222
    Height = 35
    Caption = #20154#21592#20449#24687#31649#29702
    Font.Charset = GB2312_CHARSET
    Font.Color = clFuchsia
    Font.Height = -35
    Font.Name = #26999#20307'_GB2312'
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object Label3: TLabel
    Left = 288
    Top = 80
    Width = 220
    Height = 20
    Caption = #20316#32773#65306#24352#20029#23071'  cst05031'
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlue
    Font.Height = -20
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label4: TLabel
    Left = 0
    Top = 304
    Width = 41
    Height = 25
    AutoSize = False
    Caption = #31867#21035
    Font.Charset = GB2312_CHARSET
    Font.Color = clLime
    Font.Height = -19
    Font.Name = #26999#20307'_GB2312'
    Font.Style = []
    ParentFont = False
  end
  object Label5: TLabel
    Left = 120
    Top = 304
    Width = 41
    Height = 25
    AutoSize = False
    Caption = #32423#21035
    Font.Charset = GB2312_CHARSET
    Font.Color = clLime
    Font.Height = -19
    Font.Name = #26999#20307'_GB2312'
    Font.Style = []
    ParentFont = False
  end
  object DBGrid1: TDBGrid
    Left = 96
    Top = 112
    Width = 377
    Height = 129
    DataSource = DataSource1
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = #24207#21495
        ReadOnly = True
        Visible = True
      end
      item
        Expanded = False
        FieldName = #22995#21517
        Visible = True
      end
      item
        Expanded = False
        FieldName = #20986#29983#26085#26399
        Visible = True
      end
      item
        Expanded = False
        FieldName = #32844#21153
        Visible = True
      end
      item
        Expanded = False
        FieldName = #31867#21035
        ReadOnly = True
        Visible = True
      end
      item
        Expanded = False
        FieldName = #32423#21035
        ReadOnly = True
        Visible = True
      end
      item
        Expanded = False
        FieldName = #26085#24037#36164
        Visible = True
      end
      item
        Expanded = False
        FieldName = #23478#24237#22320#22336
        Visible = True
      end
      item
        Expanded = False
        FieldName = #30005#35805
        Visible = True
      end
      item
        Expanded = False
        FieldName = #21628#26426
        Visible = True
      end>
  end
  object Btn_Add: TBitBtn
    Left = 232
    Top = 304
    Width = 65
    Height = 25
    Caption = #28155#21152
    Font.Charset = GB2312_CHARSET
    Font.Color = clYellow
    Font.Height = -20
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    OnClick = Btn_AddClick
  end
  object Btn_Ims: TBitBtn
    Left = 296
    Top = 304
    Width = 65
    Height = 25
    Caption = #25554#20837
    Font.Charset = ANSI_CHARSET
    Font.Color = clYellow
    Font.Height = -20
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    OnClick = Btn_ImsClick
  end
  object Btn_Del: TBitBtn
    Left = 360
    Top = 304
    Width = 65
    Height = 25
    Caption = #21024#38500
    Font.Charset = ANSI_CHARSET
    Font.Color = clGreen
    Font.Height = -20
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    OnClick = Btn_DelClick
  end
  object Btn_Exit: TBitBtn
    Left = 424
    Top = 304
    Width = 105
    Height = 25
    Caption = #36820#22238#20027#31383#21475
    Font.Charset = ANSI_CHARSET
    Font.Color = clLime
    Font.Height = -20
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 4
    OnClick = Btn_ExitClick
  end
  object DBComboBox1: TDBComboBox
    Left = 40
    Top = 304
    Width = 73
    Height = 21
    DataField = #31867#21035
    DataSource = DataSource1
    ItemHeight = 13
    Items.Strings = (
      #19987#32844
      #20860#32844
      #19987#19994
      #23398#21592
      '')
    TabOrder = 5
    OnChange = DBComboBox1Change
  end
  object DBComboBox2: TDBComboBox
    Left = 160
    Top = 304
    Width = 65
    Height = 21
    DataField = #32423#21035
    DataSource = DataSource1
    ItemHeight = 13
    Items.Strings = (
      'A'
      'B'
      'C'
      'D'
      'E'
      '')
    TabOrder = 6
    OnChange = DBComboBox1Change
  end
  object Table1: TTable
    Active = True
    TableName = #20154#21592#20449#24687#34920'.db'
    Left = 8
    Top = 8
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 40
    Top = 8
  end
end