ufrmlock_deposit.dfm

小银行系统

inherited frmLock_Deposit: TfrmLock_Deposit
  Left = 110
  Top = 138
  Width = 587
  Height = 415
  Caption = #32467#26696#20316#19994
  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
      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.Caption = #20132#26131#26085#26399
          Title.Font.Charset = ANSI_CHARSET
          Title.Font.Color = clGreen
          Title.Font.Height = -15
          Title.Font.Name = #23435#20307
          Title.Font.Style = []
          Width = 88
        end
        item
          Alignment = taCenter
          EditButtons = <>
          FieldName = 'Lock_YN'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -15
          Font.Name = #23435#20307
          Font.Style = []
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #26159#21542#32467#26696
          Title.Font.Charset = ANSI_CHARSET
          Title.Font.Color = clGreen
          Title.Font.Height = -15
          Title.Font.Name = #23435#20307
          Title.Font.Style = []
          Width = 66
        end>
    end
  end
  inherited ScrollBox2: TScrollBox
    Left = 184
    Width = 395
    Height = 388
    Align = alRight
    object Label1: TLabel [0]
      Left = 50
      Top = 43
      Width = 56
      Height = 14
      Caption = #20132#26131#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 = 49
      Top = 82
      Width = 56
      Height = 14
      Caption = #26159#21542#32467#26696
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel [2]
      Left = 224
      Top = 82
      Width = 100
      Height = 15
      Caption = #65288'Y-'#26159'/N-'#21542#65289
      Font.Charset = ANSI_CHARSET
      Font.Color = clMaroon
      Font.Height = -15
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    inherited DBEdit1: TDBEdit
      Left = 120
      Width = 97
      DataField = 'Cdate'
      DataSource = DataSource1
    end
    inherited DBEdit2: TDBEdit
      Left = 120
      Top = 79
      Width = 97
      Height = 23
      DataField = 'Lock_YN'
      DataSource = DataSource1
      Font.Charset = ANSI_CHARSET
      Font.Height = -15
      Font.Name = #23435#20307
      ParentFont = False
      OnExit = DBEdit2Exit
    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 = 95
      Top = 224
      Width = 105
      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 = 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 = 282
      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 = 9
    end
  end
  inherited ADODataSet1: TADODataSet
    CursorType = ctStatic
    CommandText = 'select *  from  Lock_Deposit'#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
      FieldName = 'Cdate'
      Size = 10
    end
    object ClientDataSet1Lock_YN: TStringField
      FieldName = 'Lock_YN'
      Size = 1
    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 Lock_Deposit'
      'set'
      '  Cdate = :Cdate,'
      '  Lock_YN = :Lock_YN,'
      '  add_date = :add_date,'
      '  add_user = :add_user,'
      '  edit_date = :edit_date,'
      '  edit_user = :edit_user'
      'where'
      '  Cdate = :OLD_Cdate')
    InsertSQL.Strings = (
      'insert into Lock_Deposit'
      '  (Cdate, Lock_YN, add_date, add_user, edit_date, edit_user)'
      'values'
      
        '  (:Cdate, :Lock_YN, :add_date, :add_user, :edit_date, :edit_use' +
        'r)')
    DeleteSQL.Strings = (
      'delete from Lock_Deposit'
      'where'
      '  Cdate = :OLD_Cdate')
  end
  inherited DosMove1: TDosMove
    Left = 64
    Top = 96
  end
end