ufrmbalancemaster.dfm

小银行系统

inherited frmBalanceMaster: TfrmBalanceMaster
  Left = 110
  Top = 138
  Width = 581
  Height = 415
  Caption = #35797#24179#34920#20313#39069#21021#22987#35774#23450
  PixelsPerInch = 96
  TextHeight = 16
  inherited Splitter1: TSplitter
    Left = 0
    Height = 388
  end
  inherited ScrollBox1: TScrollBox
    Left = 1
    Width = 183
    Height = 388
    Align = alClient
    inherited Memo1: TMemo
      Width = 179
      Height = 384
    end
    inherited DBGrid1: TDBGridEh
      Width = 179
      Height = 384
      FrozenCols = 1
      Columns = <
        item
          Alignment = taCenter
          EditButtons = <>
          FieldName = 'Cdate'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -15
          Font.Name = #23435#20307
          Font.Style = []
          Footers = <>
          Title.Alignment = taCenter
          Title.Font.Charset = ANSI_CHARSET
          Title.Font.Color = clGreen
          Title.Font.Height = -15
          Title.Font.Name = #23435#20307
          Title.Font.Style = []
          Width = 86
        end
        item
          Alignment = taCenter
          EditButtons = <>
          FieldName = 'balance'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -15
          Font.Name = #23435#20307
          Font.Style = []
          Footers = <>
          Title.Alignment = taCenter
          Title.Font.Charset = ANSI_CHARSET
          Title.Font.Color = clGreen
          Title.Font.Height = -15
          Title.Font.Name = #23435#20307
          Title.Font.Style = []
          Width = 74
        end>
    end
  end
  inherited ScrollBox2: TScrollBox
    Left = 184
    Width = 389
    Height = 388
    Align = alRight
    object Label1: TLabel [0]
      Left = 50
      Top = 43
      Width = 56
      Height = 14
      Caption = #26085'    '#26399
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel [1]
      Left = 50
      Top = 84
      Width = 56
      Height = 14
      Caption = #20313'    '#39069
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    inherited DBEdit1: TDBEdit
      Left = 120
      Width = 97
      Height = 23
      DataField = 'Cdate'
      DataSource = DataSource1
      Font.Charset = ANSI_CHARSET
      Font.Height = -15
      Font.Name = #23435#20307
      ParentFont = False
    end
    inherited DBEdit2: TDBEdit
      Left = 120
      Top = 79
      Width = 99
      Height = 23
      DataField = 'balance'
      DataSource = DataSource1
      Font.Charset = ANSI_CHARSET
      Font.Height = -15
      Font.Name = #23435#20307
      ParentFont = False
      OnExit = DBEdit2Exit
      OnKeyDown = DBEdit2KeyDown
    end
    object StaticText9: TStaticText
      Left = 28
      Top = 228
      Width = 60
      Height = 18
      Caption = #26032#22686#26085#26399
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 2
    end
    object StaticText10: TStaticText
      Left = 28
      Top = 263
      Width = 60
      Height = 18
      Caption = #20462#25913#26085#26399
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 3
    end
    object DBEdit10: TDBEdit
      Left = 93
      Top = 261
      Width = 106
      Height = 22
      Color = clInfoBk
      DataField = 'edit_date'
      DataSource = DataSource1
      Enabled = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 4
    end
    object StaticText3: TStaticText
      Left = 226
      Top = 228
      Width = 46
      Height = 18
      Caption = #26032#22686#20154
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 5
    end
    object DBEdit3: TDBEdit
      Left = 280
      Top = 224
      Width = 101
      Height = 22
      Color = clInfoBk
      DataField = 'add_user'
      DataSource = DataSource1
      Enabled = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 6
    end
    object StaticText4: TStaticText
      Left = 226
      Top = 263
      Width = 46
      Height = 18
      Caption = #20462#25913#20154
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 7
    end
    object DBEdit4: TDBEdit
      Left = 280
      Top = 261
      Width = 102
      Height = 22
      Color = clInfoBk
      DataField = 'edit_user'
      DataSource = DataSource1
      Enabled = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 8
    end
    object DBEdit5: TDBEdit
      Left = 93
      Top = 224
      Width = 106
      Height = 22
      Color = clInfoBk
      DataField = 'add_date'
      DataSource = DataSource1
      Enabled = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 9
    end
    object MaskEdit1: TMaskEdit
      Left = 121
      Top = 40
      Width = 94
      Height = 23
      EditMask = '!9999/99/99;1;_'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = #23435#20307
      Font.Style = []
      MaxLength = 10
      ParentFont = False
      TabOrder = 10
      Text = '    -  -  '
      OnExit = MaskEdit1Exit
    end
  end
  inherited ADODataSet1: TADODataSet
    CursorType = ctStatic
    CommandText = 'select *  from  BalanceMaster'#13#10'ORDER BY Cdate'
    Parameters = <
      item
        Name = 'YYMM'
        DataType = ftString
        Size = 7
        Value = '2000-01'
      end>
  end
  inherited ClientDataSet1: TClientDataSet
    Params = <
      item
        DataType = ftString
        Name = 'YYMM'
        ParamType = ptInput
        Value = '2000-01'
      end>
    object ClientDataSet1Cdate: TStringField
      DisplayLabel = #26085#26399
      FieldName = 'Cdate'
      Size = 10
    end
    object ClientDataSet1balance: TBCDField
      DisplayLabel = #20313#39069
      FieldName = 'balance'
      DisplayFormat = '###,###,##0.00'
      Precision = 12
      Size = 2
    end
    object ClientDataSet1add_date: TStringField
      FieldName = 'add_date'
      Size = 10
    end
    object ClientDataSet1add_user: TStringField
      FieldName = 'add_user'
    end
    object ClientDataSet1edit_date: TStringField
      FieldName = 'edit_date'
      Size = 10
    end
    object ClientDataSet1edit_user: TStringField
      FieldName = 'edit_user'
    end
  end
  inherited UpdateSQL1: TUpdateSQL
    ModifySQL.Strings = (
      'update BalanceMaster'
      'set'
      '  Cdate = :Cdate,'
      '  balance = :balance,'
      '  add_date = :add_date,'
      '  add_user = :add_user,'
      '  edit_date = :edit_date,'
      '  edit_user = :edit_user'
      'where'
      '  Cdate = :OLD_Cdate')
    InsertSQL.Strings = (
      'insert into BalanceMaster'
      '  (Cdate, balance, add_date, add_user, edit_date, edit_user)'
      'values'
      
        '  (:Cdate, :balance, :add_date, :add_user, :edit_date, :edit_use' +
        'r)')
    DeleteSQL.Strings = (
      'delete from BalanceMaster'
      'where'
      '  Cdate = :OLD_Cdate')
  end
end