addbalanceunit.dfm

来自「一个很不错的系统! 查询模块方面是我编的最好的一次.几乎完美!!!!.」· DFM 代码 · 共 160 行

object frm_AddBalance: Tfrm_AddBalance
  Left = 327
  Top = 313
  Width = 493
  Height = 364
  Caption = #20250#21592#36164#37329#20805#20540'....'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 16
    Top = 24
    Width = 217
    Height = 289
    Caption = #21442#29031#20449#24687
    TabOrder = 0
    object DBGrid1: TDBGrid
      Left = 8
      Top = 16
      Width = 201
      Height = 265
      Color = clAppWorkSpace
      DataSource = ds_member
      ImeName = #26497#21697#20116#31508#36755#20837#27861
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      OnCellClick = DBGrid1CellClick
      Columns = <
        item
          Expanded = False
          FieldName = #20250#21592#32534#21495
          Width = 50
          Visible = True
        end
        item
          Expanded = False
          FieldName = #20250#21592#22995#21517
          Width = 56
          Visible = True
        end
        item
          Expanded = False
          FieldName = #32467#20313
          Title.Caption = #24403#21069#37329#39069
          Width = 59
          Visible = True
        end>
    end
  end
  object GroupBox2: TGroupBox
    Left = 240
    Top = 24
    Width = 217
    Height = 289
    Caption = #28155#21152#20250#21592#36164#37329#20449#24687
    TabOrder = 1
    object Label1: TLabel
      Left = 16
      Top = 50
      Width = 66
      Height = 13
      Caption = #20250#21592#32534#21495':     '
    end
    object Label2: TLabel
      Left = 16
      Top = 98
      Width = 60
      Height = 13
      Caption = #20250#21592#22995#21517':   '
    end
    object Label3: TLabel
      Left = 16
      Top = 152
      Width = 57
      Height = 13
      Caption = #20805#20622#37329#39069':  '
    end
    object Label4: TLabel
      Left = 190
      Top = 153
      Width = 27
      Height = 13
      Caption = '('#20803')   '
    end
    object memberid: TEdit
      Left = 80
      Top = 48
      Width = 105
      Height = 21
      Enabled = False
      ImeName = #26497#21697#20116#31508#36755#20837#27861
      TabOrder = 0
      Text = 'memberid'
    end
    object membername: TEdit
      Left = 80
      Top = 96
      Width = 105
      Height = 21
      Enabled = False
      ImeName = #26497#21697#20116#31508#36755#20837#27861
      TabOrder = 1
      Text = 'membername'
    end
    object b_input: TButton
      Left = 24
      Top = 208
      Width = 75
      Height = 25
      Caption = #24405#20837
      TabOrder = 2
      OnClick = b_inputClick
    end
    object b_cancel: TButton
      Left = 120
      Top = 208
      Width = 75
      Height = 25
      Caption = #21462#28040
      TabOrder = 3
      OnClick = b_cancelClick
    end
    object sum: TEdit
      Left = 80
      Top = 150
      Width = 105
      Height = 21
      ImeName = #26497#21697#20116#31508#36755#20837#27861
      TabOrder = 4
      Text = 'sum'
    end
  end
  object t_member: TADOTable
    Connection = DataModule1.ADOConnection1
    CursorType = ctStatic
    TableName = 'member'
    Left = 376
    Top = 40
  end
  object ds_member: TDataSource
    DataSet = t_member
    Left = 408
    Top = 40
  end
end