ufrmstd_rate.dfm

小银行系统

inherited frmStd_Rate: TfrmStd_Rate
  Left = 110
  Top = 138
  Width = 509
  Height = 415
  Caption = #26631#20934#21033#29575#35774#23450
  PixelsPerInch = 96
  TextHeight = 16
  inherited Splitter1: TSplitter
    Left = 108
    Height = 388
  end
  inherited ScrollBox1: TScrollBox
    Width = 108
    Height = 388
    inherited Memo1: TMemo
      Width = 104
      Height = 384
    end
    inherited DBGrid1: TDBGridEh
      Width = 104
      Height = 384
      Columns = <
        item
          Alignment = taCenter
          EditButtons = <>
          FieldName = 'rate'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -15
          Font.Name = #23435#20307
          Font.Style = []
          Footers = <>
          Title.Caption = #23384#27454#21033#29575
          Title.Font.Charset = ANSI_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -15
          Title.Font.Name = #23435#20307
          Title.Font.Style = []
          Width = 70
        end>
    end
  end
  inherited ScrollBox2: TScrollBox
    Left = 109
    Width = 392
    Height = 388
    object Label1: TLabel [0]
      Left = 50
      Top = 43
      Width = 56
      Height = 14
      Caption = #23384#27454#21033#29575
      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
      DataField = 'rate'
      DataSource = DataSource1
    end
    inherited DBEdit2: TDBEdit
      Left = 94
      Top = 223
      Width = 106
      Height = 23
      Color = clInfoBk
      DataField = 'add_date'
      DataSource = DataSource1
      Font.Charset = ANSI_CHARSET
      Font.Height = -15
      Font.Name = #23435#20307
      ParentFont = False
    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 = 94
      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
  end
  inherited ADODataSet1: TADODataSet
    CursorType = ctStatic
    CommandText = 'select *  from StdRate'
    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 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
    object ClientDataSet1rate: TFloatField
      FieldName = 'rate'
      DisplayFormat = '0.000000'
    end
  end
  inherited UpdateSQL1: TUpdateSQL
    ModifySQL.Strings = (
      'update StdRate'
      'set'
      '  rate = :rate,'
      '  add_date = :add_date,'
      '  add_user = :add_user,'
      '  edit_date = :edit_date,'
      '  edit_user = :edit_user'
      'where'
      '  rate = :OLD_rate')
    InsertSQL.Strings = (
      'insert into StdRate'
      '  (rate, add_date, add_user, edit_date, edit_user)'
      'values'
      '  (:rate, :add_date, :add_user, :edit_date, :edit_user)')
    DeleteSQL.Strings = (
      'delete from StdRate'
      'where'
      '  rate = :OLD_rate')
  end
end