zcxhszpas.~dfm

来自「本软件是一套功能完整成熟的固定资产管理系统,具有固定资产管理系统的相应全部功能」· ~DFM 代码 · 共 188 行

object w_zcxhsz: Tw_zcxhsz
  Left = 157
  Top = 119
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = #22266#23450#36164#20135#22411#21495#35774#32622
  ClientHeight = 348
  ClientWidth = 543
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  OnActivate = FormActivate
  PixelsPerInch = 96
  TextHeight = 12
  object Panel1: TPanel
    Left = 0
    Top = 307
    Width = 543
    Height = 41
    Align = alBottom
    BorderStyle = bsSingle
    TabOrder = 0
    object ComboBox1: TComboBox
      Left = 8
      Top = 8
      Width = 105
      Height = 20
      ItemHeight = 12
      TabOrder = 0
      OnChange = ComboBox1Change
      OnKeyPress = ComboBox1KeyPress
    end
    object Button1: TButton
      Left = 128
      Top = 6
      Width = 75
      Height = 25
      Action = DataSetInsert1
      Caption = #22686#21152'(&A)'
      TabOrder = 1
    end
    object Button2: TButton
      Left = 208
      Top = 6
      Width = 75
      Height = 25
      Action = DataSetDelete1
      Caption = #21024#38500'(&D)'
      TabOrder = 2
    end
    object Button3: TButton
      Left = 288
      Top = 6
      Width = 75
      Height = 25
      Action = DataSetPost1
      Caption = #20445#23384'(&S)'
      TabOrder = 3
    end
    object Button4: TButton
      Left = 368
      Top = 6
      Width = 75
      Height = 25
      Action = DataSetCancel1
      Caption = #21462#28040'(&C)'
      TabOrder = 4
    end
    object Button5: TButton
      Left = 448
      Top = 6
      Width = 75
      Height = 25
      Caption = #20851#38381'(&X)'
      ModalResult = 1
      TabOrder = 5
    end
  end
  object DBGrid1: TDBGrid
    Left = 121
    Top = 0
    Width = 422
    Height = 307
    Align = alClient
    DataSource = DataSource1
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    OnKeyPress = DBGrid1KeyPress
    Columns = <
      item
        Alignment = taCenter
        Expanded = False
        FieldName = #36164#20135#22411#21495#32534#30721
        Title.Alignment = taCenter
        Width = 100
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = #36164#20135#21517#31216#32534#30721
        Title.Alignment = taCenter
        Visible = False
      end
      item
        Expanded = False
        FieldName = #22266#23450#36164#20135#22411#21495
        Title.Alignment = taCenter
        Width = 280
        Visible = True
      end>
  end
  object DBGrid2: TDBGrid
    Left = 0
    Top = 0
    Width = 121
    Height = 307
    Cursor = crHandPoint
    Align = alLeft
    DataSource = DataSource2
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    ReadOnly = True
    TabOrder = 2
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = #22266#23450#36164#20135#21517#31216
        Title.Alignment = taCenter
        Visible = True
      end>
  end
  object DataSource1: TDataSource
    DataSet = hjzcdata.gdzcxhb
    Left = 64
    Top = 264
  end
  object DataSource2: TDataSource
    DataSet = hjzcdata.gdzcmcb
    Left = 64
    Top = 32
  end
  object ActionList1: TActionList
    Left = 232
    Top = 88
    object DataSetInsert1: TDataSetInsert
      Category = 'Dataset'
      Caption = '&Insert'
      Hint = 'Insert'
      ImageIndex = 4
      OnExecute = DataSetInsert1Execute
    end
    object DataSetDelete1: TDataSetDelete
      Category = 'Dataset'
      Caption = '&Delete'
      Hint = 'Delete'
      ImageIndex = 5
      OnExecute = DataSetDelete1Execute
    end
    object DataSetPost1: TDataSetPost
      Category = 'Dataset'
      Caption = 'P&ost'
      Hint = 'Post'
      ImageIndex = 7
      OnExecute = DataSetPost1Execute
    end
    object DataSetCancel1: TDataSetCancel
      Category = 'Dataset'
      Caption = '&Cancel'
      Hint = 'Cancel'
      ImageIndex = 8
      OnExecute = DataSetCancel1Execute
    end
  end
end