ufrminterrest1.dfm

小银行系统

    object EdtOUT_3: TEdit
      Left = 510
      Top = 35
      Width = 17
      Height = 22
      MaxLength = 1
      TabOrder = 18
    end
    object EdtOUT_1: TEdit
      Left = 546
      Top = 35
      Width = 17
      Height = 22
      MaxLength = 1
      TabOrder = 20
    end
  end
  object PanTop: TPanel [3]
    Left = 0
    Top = 0
    Width = 766
    Height = 32
    Align = alTop
    Ctl3D = False
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = []
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 2
    object Label5: TLabel
      Left = 143
      Top = 9
      Width = 14
      Height = 14
      Alignment = taRightJustify
      Caption = #33267
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label23: TLabel
      Left = 383
      Top = 9
      Width = 28
      Height = 14
      Caption = #22995#21517
    end
    object Label24: TLabel
      Left = 17
      Top = 9
      Width = 56
      Height = 14
      Caption = #23384#27454#24180#26376
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label9: TLabel
      Left = 238
      Top = 9
      Width = 28
      Height = 14
      Caption = #24080#21495
    end
    object BitBtn_query: TBitBtn
      Left = 504
      Top = 5
      Width = 61
      Height = 24
      Cursor = crHandPoint
      Caption = #26597#35810
      TabOrder = 3
      OnClick = BitBtn_queryClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333333FF3FF3333333333CC30003333333333773777333333333C33
        3000333FF33337F33777339933333C3333333377F33337F3333F339933333C33
        33003377333337F33377333333333C333300333F333337F33377339333333C33
        3333337FF3333733333F33993333C33333003377FF33733333773339933C3333
        330033377FF73F33337733339933C33333333FF377F373F3333F993399333C33
        330077F377F337F33377993399333C33330077FF773337F33377399993333C33
        33333777733337F333FF333333333C33300033333333373FF7773333333333CC
        3000333333333377377733333333333333333333333333333333}
      NumGlyphs = 2
    end
    object Edtper_na: TEdit
      Left = 417
      Top = 6
      Width = 70
      Height = 20
      Color = clInfoBk
      Enabled = False
      TabOrder = 7
    end
    object BitBtn1: TBitBtn
      Left = 698
      Top = 5
      Width = 63
      Height = 24
      Cursor = crHandPoint
      Caption = #32467#26463
      TabOrder = 6
      OnClick = BitBtn1Click
      Glyph.Data = {
        66010000424D6601000000000000760000002800000014000000140000000100
        040000000000F000000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        7777777700007777777077777777777700007777770077777777777700007777
        70E0777777777777000077770EE077777777777700007770EEE0777777777777
        0000000EEEE0000000077777000070EEEEE0FF0777777777000070EEEEE0FF07
        777C7777000070EEEEE0FF0777CC7777000070EEEEE0FF077CCCCCC7000070EE
        EEE0FF07CCCCCCC7000070EEEEE0FF077CCCCCC7000070EEEE0FFF0777CC7777
        000070EEE0FFFF07777C7777000070EE0FFFFF0777777777000070E0FFFFFF07
        777777770000700FFFFFFF077777777700007000000000077777777700007777
        77777777777777770000}
    end
    object EdtStartyymm: TMaskEdit
      Left = 77
      Top = 6
      Width = 61
      Height = 20
      CharCase = ecUpperCase
      EditMask = '9999-99;1;_'
      MaxLength = 7
      TabOrder = 0
      Text = '    -  '
      OnChange = EdtStartyymmChange
    end
    object EdtACC_NO: TEdit
      Left = 270
      Top = 6
      Width = 98
      Height = 20
      MaxLength = 16
      TabOrder = 2
      OnChange = EdtACC_NOChange
    end
    object BitBtn_Print: TBitBtn
      Left = 633
      Top = 5
      Width = 63
      Height = 24
      Cursor = crHandPoint
      Caption = #25171#21360
      TabOrder = 5
      OnClick = BitBtn_PrintClick
      Glyph.Data = {
        66010000424D6601000000000000760000002800000014000000140000000100
        040000000000F000000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        7777777700007777777777777777777700007777777777777777777700007777
        7777777777777777000077770000000000077777000077707777777770707777
        0000770000000000000707770000770777777BBB770007770000770777777888
        7707077700007700000000000007707700007707777777777070707700007770
        0000000007070077000077770FFFFFFFF07070770000777770F00000F0000777
        0000777770FFFFFFFF07777700007777770F00000F07777700007777770FFFFF
        FFF0777700007777777000000000777700007777777777777777777700007777
        77777777777777770000}
    end
    object EdtEndyymm: TMaskEdit
      Left = 163
      Top = 6
      Width = 61
      Height = 20
      CharCase = ecUpperCase
      EditMask = '9999-99;1;_'
      MaxLength = 7
      TabOrder = 1
      Text = '    -  '
      OnChange = EdtStartyymmChange
    end
    object BitBtnCal: TBitBtn
      Left = 569
      Top = 5
      Width = 61
      Height = 24
      Cursor = crHandPoint
      Caption = #35745#31639
      TabOrder = 4
      OnClick = BitBtn_queryClick
      Glyph.Data = {
        66010000424D6601000000000000760000002800000014000000140000000100
        040000000000F0000000C40E0000C40E00001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        7777777700007777777777717777777700007777777777717777777700007777
        7777777177777777000077777777111111177777000077777777777177777777
        0000777777777771777777770000777777771111111777770000777774777717
        1777777700007777444771777177777700007774444417777717777700007744
        4744777777777777000074447774477777777777000074477777447777777777
        0000777777777447777777770000777777777744777777770000777777777774
        4777777700007777777777774777777700007777777777777777777700007777
        77777777777777770000}
    end
  end
  inherited ADODataSet1: TADODataSet
    CursorType = ctStatic
    CommandText = 'SELECT TOP 0   * '#13#10'FROM Deposit  '#13#10'ORDER  BY  serial_no'#13#10
    Top = 159
  end
  inherited DataSetProvider1: TDataSetProvider
    Top = 159
  end
  inherited ClientDataSet1: TClientDataSet
    AfterScroll = ClientDataSet1AfterScroll
    OnCalcFields = ClientDataSet1CalcFields
    Top = 159
    object ClientDataSet1ACC_NO: TStringField
      FieldName = 'ACC_NO'
      Size = 16
    end
    object ClientDataSet1Cdate: TStringField
      DisplayLabel = #26085#26399
      FieldName = 'Cdate'
      Size = 10
    end
    object ClientDataSet1serial_no: TStringField
      DisplayLabel = #21333#25454#21495
      FieldName = 'serial_no'
      Size = 10
    end
    object ClientDataSet1IN_OR_OUT: TStringField
      FieldName = 'IN_OR_OUT'
      Size = 1
    end
    object ClientDataSet1IN_money: TBCDField
      FieldName = 'IN_money'
      Precision = 10
      Size = 2
    end
    object ClientDataSet1OUT_money: TBCDField
      FieldName = 'OUT_money'
      Precision = 10
      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
    object ClientDataSet1rem_money: TBCDField
      FieldName = 'rem_money'
      Precision = 10
      Size = 2
    end
    object ClientDataSet1Cre_man: TStringField
      FieldName = 'Cre_man'
    end
    object ClientDataSet1Check_mk: TStringField
      FieldName = 'Check_mk'
      Size = 1
    end
    object ClientDataSet1Check_man: TStringField
      FieldName = 'Check_man'
    end
    object ClientDataSet1remark: TStringField
      FieldName = 'remark'
      Size = 50
    end
    object ClientDataSet1IN_1: TStringField
      FieldKind = fkCalculated
      FieldName = 'IN_1'
      Size = 1
      Calculated = True
    end
    object ClientDataSet1IN_2: TStringField
      FieldKind = fkCalculated
      FieldName = 'IN_2'
      Size = 1
      Calculated = True
    end
    object ClientDataSet1IN_3: TStringField
      FieldKind = fkCalculated
      FieldName = 'IN_3'
      Size = 1
      Calculated = True
    end
    object ClientDataSet1IN_4: TStringField
      FieldKind = fkCalculated
      FieldName = 'IN_4'
      Size = 1
      Calculated = True
    end
    object ClientDataSet1IN_5: TStringField
      FieldKind = fkCalculated
      FieldName = 'IN_5'
      Size = 1
      Calculated = True
    end
    object ClientDataSet1IN_6: TStringField
      FieldKind = fkCalculated
      FieldName = 'IN_6'
      Size = 1
      Calculated = True
    end
    object ClientDataSet1IN_7: TStringField
      FieldKind = fkCalculated
      FieldName = 'IN_7'
      Size = 1
      Calculated = True
    end
    object ClientDataSet1IN_8: TStringField
      FieldKind = fkCalculated
      FieldName = 'IN_8'
      Size = 1
      Calculated = True
    end
    object ClientDataSet1IN_9: TStringField
      FieldKind = fkCalculated
      FieldName = 'IN_9'
      Size = 1
      Calculated = True
    end
    object ClientDataSet1IN_10: TStringField
      FieldKind = fkCalculated
      FieldName = 'IN_10'
      Size = 1
      Calculated = True
    end
    object ClientDataSet1OUT_1: TStringField
      FieldKind = fkCalculated
      FieldName = 'OUT_1'
      Size = 1
      Calculated = True
    end
    object ClientDataSet1OUT_2: TStringField
      FieldKind = fkCalculated
      FieldName = 'OUT_2'
      Size = 1
      Calculated = True
    end
    object ClientDataSet1OUT_3: TStringField
      FieldKind = fkCalculated
      FieldName = 'OUT_3'
      Size = 1
      Calculated = True
    end
    object ClientDataSet1OUT_4: TStringField
      FieldKind = fkCalculated
      FieldName = 'OUT_4'
      Size = 1
      Calculated = True
    end
    object ClientDataSet1OUT_5: TStringField
      FieldKind = fkCalculated
      FieldName = 'OUT_5'
      Size = 1
      Calculated = True
    end
    object ClientDataSet1OUT_6: TStringField
      FieldKind = fkCalculated
      FieldName = 'OUT_6'
      Size = 1
      Calculated = True
    end
    object ClientDataSet1OUT_7: TStringField
      FieldKind = fkCalculated
      FieldName = 'OUT_7'
      Size = 1
      Calculated = True
    end
    object ClientDataSet1OUT_8: TStringField
      FieldKind = fkCalculated
      FieldName = 'OUT_8'
      Size = 1
      Calculated = True
    end
    object ClientDataSet1OUT_9: TStringField
      FieldKind = fkCalculated
      FieldName = 'OUT_9'
      Size = 1
      Calculated = True
    end
    object ClientDataSet1OUT_10: TStringField
      FieldKind = fkCalculated
      FieldName = 'OUT_10'
      Size = 1
      Calculated = True
    end
    object ClientDataSet1R_1: TStringField
      FieldKind = fkCalculated
      FieldName = 'R_1'
      Size = 1
      Calculated = True
    end
    object ClientDataSet1R_2: TStringField
      FieldKind = fkCalculated
      FieldName = 'R_2'
      Size = 1
      Calculated = True
    end
    object ClientDataSet1R_3: TStringField
      FieldKind = fkCalculated
      FieldName = 'R_3'
      Size = 1
      Calculated = True
    end
    object ClientDataSet1R_4: TStringField
      FieldKind = fkCalculated
      FieldName = 'R_4'
      Size = 1
      Calculated = True
    end
    object ClientDataSet1R_5: TStringField
      FieldKind = fkCalculated
      FieldName = 'R_5'
      Size = 1
      Calculated = True
    end
    object ClientDataSet1R_6: TStringField
      FieldKind = fkCalculated
      FieldName = 'R_6'
      Size = 1
      Calculated = True
    end
    object ClientDataSet1R_7: TStringField
      FieldKind = fkCalculated
      FieldName = 'R_7'
      Size = 1
      Calculated = True
    end
    object ClientDataSet1R_8: TStringField
      FieldKind = fkCalculated
      FieldName = 'R_8'
      Size = 1
      Calculated = True
    end
    object ClientDataSet1R_9: TStringField
      FieldKind = fkCalculated
      FieldName = 'R_9'
      Size = 1
      Calculated = True
    end
    object ClientDataSet1R_10: TStringField
      FieldKind = fkCalculated
      FieldName = 'R_10'
      Size = 1
      Calculated = True
    end
  end
  inherited DataSource1: TDataSource
    Top = 199
  end
  inherited UpdateSQL1: TUpdateSQL
    ModifySQL.Strings = (
      'update Deposit'
      'set'
      '  ACC_NO = :ACC_NO,'
      '  Cdate = :Cdate,'
      '  serial_no = :serial_no,'
      '  IN_OR_OUT = :IN_OR_OUT,'
      '  IN_money = :IN_money,'
      '  OUT_money = :OUT_money,'
      '  add_date = :add_date,'
      '  add_user = :add_user,'
      '  edit_date = :edit_date,'
      '  edit_user = :edit_user,'
      '  rem_money = :rem_money,'
      '  Cre_man = :Cre_man,'
      '  Check_mk = :Check_mk,'
      '  Check_man = :Check_man,'
      '  remark = :remark'
      'where'
      '  ACC_NO = :OLD_ACC_NO and'
      '  Cdate = :OLD_Cdate and'
      '  serial_no = :OLD_serial_no')
    InsertSQL.Strings = (
      'insert into Deposit'
      
        '  (ACC_NO, Cdate, serial_no, IN_OR_OUT, IN_money, OUT_money, add' +
        '_date, '
      
        '   add_user, edit_date, edit_user, rem_money, Cre_man, Check_mk,' +
        ' Check_man, '
      '   remark)'
      'values'
      
        '  (:ACC_NO, :Cdate, :serial_no, :IN_OR_OUT, :IN_money, :OUT_mone' +
        'y, :add_date, '
      
        '   :add_user, :edit_date, :edit_user, :rem_money, :Cre_man, :Che' +
        'ck_mk, '
      '   :Check_man, :remark)')
    DeleteSQL.Strings = (
      'delete from Deposit'
      'where'
      '  ACC_NO = :OLD_ACC_NO and'
      '  Cdate = :OLD_Cdate and'
      '  serial_no = :OLD_serial_no')
    Top = 199
  end
  inherited DosMove1: TDosMove
    Left = 256
    Top = 24
  end
end