企业管理

开发平台：
Delphi

f_gzrl.dfm：源码内容
							object w_gzrl: Tw_gzrl
  Left = 177
  Top = 139
  BorderStyle = bsDialog
  Caption = #24037#36164#24405#20837#19982#35745#31639
  ClientHeight = 322
  ClientWidth = 559
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 94
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 561
    Height = 321
    TabOrder = 0
    object StaticText1: TStaticText
      Left = 184
      Top = 8
      Width = 156
      Height = 24
      BorderStyle = sbsSunken
      Caption = #24037#36164#24405#20837#19982#35745#31639#31995#32479'  '
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsUnderline]
      ParentFont = False
      TabOrder = 0
    end
    object GroupBox1: TGroupBox
      Left = 0
      Top = 48
      Width = 553
      Height = 209
      Caption = #24405#20837#25968#25454
      TabOrder = 1
      object Label1: TLabel
        Left = 16
        Top = 24
        Width = 37
        Height = 13
        Caption = #24180#20221'   '
        FocusControl = DBEdit1
      end
      object Label2: TLabel
        Left = 184
        Top = 24
        Width = 34
        Height = 13
        Caption = #26376#20221'  '
        FocusControl = DBEdit2
      end
      object Label3: TLabel
        Left = 8
        Top = 64
        Width = 62
        Height = 13
        Caption = #32844#24037#32534#21495'  '
        FocusControl = DBEdit3
      end
      object Label4: TLabel
        Left = 176
        Top = 56
        Width = 71
        Height = 13
        Caption = #32844#24037#22995#21517'     '
        FocusControl = DBEdit4
      end
      object Label5: TLabel
        Left = 376
        Top = 24
        Width = 68
        Height = 13
        Caption = #22522#26412#24037#36164'    '
        FocusControl = DBEdit5
      end
      object Label6: TLabel
        Left = 376
        Top = 64
        Width = 68
        Height = 13
        Caption = #28014#21160#24037#36164'    '
        FocusControl = DBEdit6
      end
      object Label7: TLabel
        Left = 8
        Top = 104
        Width = 45
        Height = 13
        Caption = #20010#20154' '#31246
        FocusControl = DBEdit7
      end
      object Label8: TLabel
        Left = 176
        Top = 96
        Width = 71
        Height = 13
        Caption = #23703#20301#24037#36164'     '
        FocusControl = DBEdit8
      end
      object Label9: TLabel
        Left = 376
        Top = 96
        Width = 68
        Height = 13
        Caption = #29983#27963#34917#21161'    '
        FocusControl = DBEdit9
      end
      object Label10: TLabel
        Left = 8
        Top = 136
        Width = 62
        Height = 13
        Caption = #20445#38505#25187#38500'  '
        FocusControl = DBEdit10
      end
      object Label11: TLabel
        Left = 184
        Top = 136
        Width = 57
        Height = 13
        Caption = #24635#24037#36164'     '
        FocusControl = DBEdit11
      end
      object Label12: TLabel
        Left = 8
        Top = 176
        Width = 56
        Height = 13
        Caption = #23454#21457#24037#36164
        FocusControl = DBEdit12
      end
      object Label14: TLabel
        Left = 376
        Top = 136
        Width = 54
        Height = 13
        Caption = #24635#25187#38500'    '
      end
      object DBEdit1: TDBEdit
        Left = 72
        Top = 24
        Width = 97
        Height = 21
        DataField = 'g_nf'
        DataSource = data_gzxt
        TabOrder = 0
      end
      object DBEdit2: TDBEdit
        Left = 248
        Top = 24
        Width = 113
        Height = 21
        DataField = 'g_yf'
        DataSource = data_gzxt
        TabOrder = 1
      end
      object DBEdit3: TDBEdit
        Left = 72
        Top = 56
        Width = 97
        Height = 21
        DataField = 'rs_id'
        DataSource = data_gzxt
        TabOrder = 2
      end
      object DBEdit4: TDBEdit
        Left = 248
        Top = 56
        Width = 113
        Height = 21
        DataField = 'rs_name'
        DataSource = data_gzxt
        TabOrder = 3
      end
      object DBEdit5: TDBEdit
        Left = 456
        Top = 24
        Width = 86
        Height = 21
        DataField = 'g_jbgz'
        DataSource = data_gzxt
        TabOrder = 4
      end
      object DBEdit6: TDBEdit
        Left = 456
        Top = 64
        Width = 89
        Height = 21
        DataField = 'g_fdgz'
        DataSource = data_gzxt
        TabOrder = 5
      end
      object DBEdit7: TDBEdit
        Left = 72
        Top = 96
        Width = 97
        Height = 21
        DataField = 'g_grss'
        DataSource = data_gzxt
        TabOrder = 6
      end
      object DBEdit8: TDBEdit
        Left = 248
        Top = 96
        Width = 113
        Height = 21
        DataField = 'g_gwgz'
        DataSource = data_gzxt
        TabOrder = 7
      end
      object DBEdit9: TDBEdit
        Left = 456
        Top = 96
        Width = 89
        Height = 21
        DataField = 'g_shbz'
        DataSource = data_gzxt
        TabOrder = 8
      end
      object DBEdit10: TDBEdit
        Left = 72
        Top = 136
        Width = 97
        Height = 21
        DataField = 'g_bxkc'
        DataSource = data_gzxt
        TabOrder = 9
      end
      object DBEdit11: TDBEdit
        Left = 192
        Top = -16
        Width = 113
        Height = 21
        DataField = 'g_zgz'
        DataSource = data_gzxt
        TabOrder = 10
        Visible = False
      end
      object DBEdit12: TDBEdit
        Left = 464
        Top = -16
        Width = 89
        Height = 21
        DataField = 'g_sfgz'
        DataSource = data_gzxt
        TabOrder = 11
        Visible = False
      end
      object Edit1: TEdit
        Left = 248
        Top = 136
        Width = 113
        Height = 21
        TabOrder = 12
      end
      object Edit3: TEdit
        Left = 72
        Top = 176
        Width = 129
        Height = 21
        TabOrder = 13
      end
      object DBEdit13: TDBEdit
        Left = 328
        Top = -16
        Width = 134
        Height = 21
        DataField = 'g_zkc'
        DataSource = data_gzxt
        TabOrder = 14
        Visible = False
      end
      object Edit2: TEdit
        Left = 456
        Top = 136
        Width = 89
        Height = 21
        TabOrder = 15
      end
    end
    object GroupBox2: TGroupBox
      Left = 0
      Top = 256
      Width = 553
      Height = 57
      TabOrder = 2
      object Button8: TButton
        Left = 352
        Top = 16
        Width = 57
        Height = 25
        Caption = #23614#35760#24405
        TabOrder = 0
        OnClick = Button8Click
      end
      object Button1: TButton
        Left = 408
        Top = 16
        Width = 57
        Height = 25
        Caption = #35745#31639#32479#35745
        TabOrder = 1
        OnClick = Button1Click
      end
      object BitBtn1: TBitBtn
        Left = 464
        Top = 16
        Width = 57
        Height = 25
        Caption = #36864#20986#31995#32479
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 2
        OnClick = BitBtn1Click
      end
      object Button6: TButton
        Left = 296
        Top = 16
        Width = 57
        Height = 25
        Caption = #39318#35760#24405
        TabOrder = 3
        OnClick = Button6Click
      end
      object Button5: TButton
        Left = 240
        Top = 16
        Width = 57
        Height = 25
        Caption = #19979#19968#26465
        TabOrder = 4
        OnClick = Button5Click
      end
      object Button4: TButton
        Left = 184
        Top = 16
        Width = 57
        Height = 25
        Caption = #19978#19968#19979#26465
        TabOrder = 5
        OnClick = Button4Click
      end
      object Button7: TButton
        Left = 128
        Top = 16
        Width = 57
        Height = 25
        Caption = #20445#23384
        TabOrder = 6
        OnClick = Button7Click
      end
      object Button3: TButton
        Left = 72
        Top = 16
        Width = 57
        Height = 25
        Caption = #20462#25913
        TabOrder = 7
        OnClick = Button3Click
      end
      object Button2: TButton
        Left = 16
        Top = 16
        Width = 57
        Height = 25
        Caption = #22686#21152
        TabOrder = 8
        OnClick = Button2Click
      end
    end
  end
  object ado_gzxt: TADOQuery
    Active = True
    Connection = Data1.database1
    CursorType = ctStatic
    OnCalcFields = ado_gzxtCalcFields
    Parameters = <>
    SQL.Strings = (
      'select * from gzxt')
    Left = 448
    Top = 16
    object ado_gzxtg_nf: TStringField
      FieldName = 'g_nf'
      FixedChar = True
      Size = 8
    end
    object ado_gzxtg_yf: TStringField
      FieldName = 'g_yf'
      FixedChar = True
      Size = 5
    end
    object ado_gzxtrs_id: TStringField
      FieldName = 'rs_id'
      FixedChar = True
      Size = 5
    end
    object ado_gzxtrs_name: TStringField
      FieldName = 'rs_name'
      FixedChar = True
      Size = 10
    end
    object ado_gzxtg_jbgz: TFloatField
      FieldName = 'g_jbgz'
    end
    object ado_gzxtg_fdgz: TFloatField
      FieldName = 'g_fdgz'
    end
    object ado_gzxtg_grss: TFloatField
      FieldName = 'g_grss'
    end
    object ado_gzxtg_gwgz: TFloatField
      FieldName = 'g_gwgz'
    end
    object ado_gzxtg_shbz: TFloatField
      FieldName = 'g_shbz'
    end
    object ado_gzxtg_bxkc: TFloatField
      FieldName = 'g_bxkc'
    end
    object ado_gzxtg_zgz: TFloatField
      FieldKind = fkCalculated
      FieldName = 'g_zgz'
      Calculated = True
    end
    object ado_gzxtg_zkc: TFloatField
      FieldKind = fkCalculated
      FieldName = 'g_zkc'
      Calculated = True
    end
    object ado_gzxtg_sfgz: TFloatField
      FieldKind = fkCalculated
      FieldName = 'g_sfgz'
      Calculated = True
    end
  end
  object data_gzxt: TDataSource
    DataSet = ado_gzxt
    Left = 376
    Top = 32
  end
end

						