ufrmdeposit.dfm

小银行系统

      Width = 28
      Height = 14
      Alignment = taRightJustify
      Caption = #32452#21035
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label11: TLabel
      Left = 212
      Top = 34
      Width = 28
      Height = 14
      Caption = #24037#21495
    end
    object Label23: TLabel
      Left = 28
      Top = 33
      Width = 28
      Height = 14
      Caption = #22995#21517
    end
    object Label24: TLabel
      Left = 186
      Top = 7
      Width = 56
      Height = 14
      Caption = #23384#27454#26085#26399
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label9: TLabel
      Left = 31
      Top = 7
      Width = 28
      Height = 14
      Caption = #24080#21495
    end
    object Edtfac_nm: TEdit
      Left = 439
      Top = 5
      Width = 92
      Height = 20
      Color = clInfoBk
      Enabled = False
      TabOrder = 6
    end
    object Edtsec_nm: TEdit
      Left = 439
      Top = 31
      Width = 93
      Height = 20
      Color = clInfoBk
      TabOrder = 7
    end
    object BitBtn_query: TBitBtn
      Left = 546
      Top = 29
      Width = 61
      Height = 24
      Cursor = crHandPoint
      Caption = #26597#35810
      TabOrder = 2
      OnClick = BitBtn_queryClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333333FF3FF3333333333CC30003333333333773777333333333C33
        3000333FF33337F33777339933333C3333333377F33337F3333F339933333C33
        33003377333337F33377333333333C333300333F333337F33377339333333C33
        3333337FF3333733333F33993333C33333003377FF33733333773339933C3333
        330033377FF73F33337733339933C33333333FF377F373F3333F993399333C33
        330077F377F337F33377993399333C33330077FF773337F33377399993333C33
        33333777733337F333FF333333333C33300033333333373FF7773333333333CC
        3000333333333377377733333333333333333333333333333333}
      NumGlyphs = 2
    end
    object Edtper_no: TEdit
      Left = 246
      Top = 30
      Width = 82
      Height = 20
      Color = clInfoBk
      Enabled = False
      MaxLength = 6
      TabOrder = 3
    end
    object Edtper_na: TEdit
      Left = 62
      Top = 30
      Width = 99
      Height = 20
      Color = clInfoBk
      Enabled = False
      TabOrder = 4
    end
    object BitBtn1: TBitBtn
      Left = 687
      Top = 29
      Width = 63
      Height = 24
      Cursor = crHandPoint
      Caption = #32467#26463
      TabOrder = 5
      OnClick = BitBtn1Click
      Glyph.Data = {
        66010000424D6601000000000000760000002800000014000000140000000100
        040000000000F000000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        7777777700007777777077777777777700007777770077777777777700007777
        70E0777777777777000077770EE077777777777700007770EEE0777777777777
        0000000EEEE0000000077777000070EEEEE0FF0777777777000070EEEEE0FF07
        777C7777000070EEEEE0FF0777CC7777000070EEEEE0FF077CCCCCC7000070EE
        EEE0FF07CCCCCCC7000070EEEEE0FF077CCCCCC7000070EEEE0FFF0777CC7777
        000070EEE0FFFF07777C7777000070EE0FFFFF0777777777000070E0FFFFFF07
        777777770000700FFFFFFF077777777700007000000000077777777700007777
        77777777777777770000}
    end
    object Edtyymmdd: TMaskEdit
      Left = 246
      Top = 4
      Width = 82
      Height = 20
      CharCase = ecUpperCase
      EditMask = '9999-99-99;1;_'
      MaxLength = 10
      TabOrder = 1
      Text = '    -  -  '
      OnChange = EdtyymmddChange
    end
    object EdtACC_NO: TEdit
      Left = 63
      Top = 4
      Width = 98
      Height = 20
      MaxLength = 16
      TabOrder = 0
      OnChange = EdtACC_NOChange
      OnExit = EdtACC_NOExit
    end
    object Edtfac_no: TEdit
      Left = 375
      Top = 5
      Width = 62
      Height = 20
      Color = clInfoBk
      Enabled = False
      TabOrder = 8
    end
    object Edtsec_no: TEdit
      Left = 376
      Top = 31
      Width = 62
      Height = 20
      Color = clInfoBk
      Enabled = False
      TabOrder = 9
    end
    object BitBtn_Print: TBitBtn
      Left = 616
      Top = 29
      Width = 63
      Height = 24
      Cursor = crHandPoint
      Caption = #25171#21360
      TabOrder = 10
      OnClick = BitBtn_PrintClick
      Glyph.Data = {
        66010000424D6601000000000000760000002800000014000000140000000100
        040000000000F000000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        7777777700007777777777777777777700007777777777777777777700007777
        7777777777777777000077770000000000077777000077707777777770707777
        0000770000000000000707770000770777777BBB770007770000770777777888
        7707077700007700000000000007707700007707777777777070707700007770
        0000000007070077000077770FFFFFFFF07070770000777770F00000F0000777
        0000777770FFFFFFFF07777700007777770F00000F07777700007777770FFFFF
        FFF0777700007777777000000000777700007777777777777777777700007777
        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 = 592
    Top = 0
  end
  object ADOAccount: TADODataSet
    Connection = DM.ADOConnection1
    CommandText = 
      'select ACC_NO, Per_na from Account'#13#10'WHERE Cancel_YN<>'#39'Y'#39'  AND  r' +
      'ep_loss_YN<>'#39'Y'#39' '#13#10'ORDER BY ACC_NO'
    Parameters = <>
    Left = 168
    Top = 184
    object ADOAccountACC_NO: TStringField
      DisplayLabel = #24080' '#21495
      FieldName = 'ACC_NO'
      Size = 16
    end
    object ADOAccountPer_na: TStringField
      DisplayLabel = #22995' '#21517
      FieldName = 'Per_na'
      Size = 16
    end
  end
  object ADOStoredProc1: TADOStoredProc
    Connection = DM.ADOConnection1
    ProcedureName = 'Rem_money_Cal;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@Acc_no'
        Attributes = [paNullable]
        DataType = ftString
        Size = 16
        Value = Null
      end
      item
        Name = '@Serial_no'
        Attributes = [paNullable]
        DataType = ftString
        Size = 10
        Value = Null
      end>
    Left = 208
    Top = 144
  end
end