ufrmopenaccount.dfm

小银行系统

      Width = 92
      Height = 22
      Color = clInfoBk
      Enabled = False
      TabOrder = 12
    end
    object Edtsec_nm: TEdit
      Left = 351
      Top = 2
      Width = 95
      Height = 22
      Color = clInfoBk
      TabOrder = 13
    end
    object BitBtn_query: TBitBtn
      Left = 490
      Top = 56
      Width = 61
      Height = 24
      Cursor = crHandPoint
      Caption = #26597#35810
      TabOrder = 10
      OnClick = BitBtn_queryClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333333FF3FF3333333333CC30003333333333773777333333333C33
        3000333FF33337F33777339933333C3333333377F33337F3333F339933333C33
        33003377333337F33377333333333C333300333F333337F33377339333333C33
        3333337FF3333733333F33993333C33333003377FF33733333773339933C3333
        330033377FF73F33337733339933C33333333FF377F373F3333F993399333C33
        330077F377F337F33377993399333C33330077FF773337F33377399993333C33
        33333777733337F333FF333333333C33300033333333373FF7773333333333CC
        3000333333333377377733333333333333333333333333333333}
      NumGlyphs = 2
    end
    object Edtpers: TEdit
      Left = 431
      Top = 29
      Width = 55
      Height = 22
      Anchors = [akLeft, akTop, akRight, akBottom]
      Enabled = False
      TabOrder = 5
    end
    object EdtPY: TEdit
      Left = 317
      Top = 29
      Width = 55
      Height = 22
      CharCase = ecUpperCase
      MaxLength = 6
      TabOrder = 6
    end
    object BitBtn1: TBitBtn
      Left = 565
      Top = 56
      Width = 63
      Height = 24
      Cursor = crHandPoint
      Caption = #32467#26463
      TabOrder = 11
      OnClick = BitBtn1Click
      Glyph.Data = {
        66010000424D6601000000000000760000002800000014000000140000000100
        040000000000F000000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        7777777700007777777077777777777700007777770077777777777700007777
        70E0777777777777000077770EE077777777777700007770EEE0777777777777
        0000000EEEE0000000077777000070EEEEE0FF0777777777000070EEEEE0FF07
        777C7777000070EEEEE0FF0777CC7777000070EEEEE0FF077CCCCCC7000070EE
        EEE0FF07CCCCCCC7000070EEEEE0FF077CCCCCC7000070EEEE0FFF0777CC7777
        000070EEE0FFFF07777C7777000070EE0FFFFF0777777777000070E0FFFFFF07
        777777770000700FFFFFFF077777777700007000000000077777777700007777
        77777777777777770000}
    end
    object Edtyymmdd: TMaskEdit
      Left = 64
      Top = 30
      Width = 82
      Height = 22
      CharCase = ecUpperCase
      EditMask = '9999-99-99;1;_'
      MaxLength = 10
      TabOrder = 3
      Text = '    -  -  '
    end
    object wwDBLookupCombosec_no: TwwDBLookupCombo
      Left = 282
      Top = 2
      Width = 70
      Height = 22
      DropDownAlignment = taLeftJustify
      Selected.Strings = (
        'sec_no'#9'12'#9#32452#21035#20195#21495#9'F'#9
        'sec_nm'#9'12'#9#32452#21035#21517#31216#9'F'#9)
      LookupTable = ADOsec
      LookupField = 'sec_no'
      MaxLength = 5
      TabOrder = 1
      AutoDropDown = False
      ShowButton = True
      AllowClearKey = False
      OnExit = wwDBLookupCombosec_noExit
    end
    object wwDBLookupComboFac_no: TwwDBLookupCombo
      Left = 64
      Top = 2
      Width = 57
      Height = 22
      DropDownAlignment = taLeftJustify
      Selected.Strings = (
        'fac_no'#9'10'#9#21378#21035#20195#21495#9'F'#9
        'fac_nm'#9'12'#9#21378#21035#21517#31216#9'F'#9)
      LookupTable = ADOFactory
      LookupField = 'fac_no'
      MaxLength = 3
      TabOrder = 0
      AutoDropDown = False
      ShowButton = True
      AllowClearKey = False
      OnExit = wwDBLookupComboFac_noExit
    end
    object EdtACC_NO: TEdit
      Left = 495
      Top = 3
      Width = 98
      Height = 22
      MaxLength = 16
      TabOrder = 2
    end
    object Edtendyymmdd: TMaskEdit
      Left = 170
      Top = 30
      Width = 82
      Height = 22
      CharCase = ecUpperCase
      EditMask = '9999-99-99;1;_'
      MaxLength = 10
      TabOrder = 4
      Text = '    -  -  '
    end
    object EdtPer_no: TEdit
      Left = 63
      Top = 59
      Width = 63
      Height = 22
      CharCase = ecUpperCase
      MaxLength = 6
      TabOrder = 7
      OnExit = EdtPer_noExit
    end
    object EdtPer_na: TEdit
      Left = 127
      Top = 59
      Width = 95
      Height = 22
      TabOrder = 8
    end
    object CheckBox1: TCheckBox
      Left = 259
      Top = 64
      Width = 112
      Height = 17
      Alignment = taLeftJustify
      Caption = #26159#21542#21253#21547#28040#25143#65311
      Checked = True
      State = cbChecked
      TabOrder = 9
    end
  end
  inherited ADODataSet1: TADODataSet
    CursorType = ctStatic
    CommandText = 
      'SELECT TOP 0  A.*, B.fac_nm,C.sec_nm ,'#13#10'E.fac_nm New_fac_nm, F.s' +
      'ec_nm New_sec_nm,'#13#10'G.Cdate, G.IN_money, G.rem_money'#13#10'FROM Accoun' +
      't  A '#13#10'LEFT  JOIN '#13#10'     factory  B  ON A.fac_no = B.fac_no '#13#10'LE' +
      'FT  JOIN'#13#10'      Sec C ON A.sec_no = C.sec_no'#13#10'LEFT  JOIN '#13#10'     ' +
      'factory  E  ON A.New_fac_no = E.fac_no '#13#10'LEFT  JOIN'#13#10'      Sec F' +
      ' ON A.New_sec_no = F.sec_no'#13#10'LEFT  JOIN '#13#10'       Deposit G ON A.' +
      'Acc_no=G.Acc_no  '#13#10'          AND A.Cre_date=G.Cdate  AND A.seria' +
      'l_no=G.serial_no '#13#10'ORDER  BY A.Acc_no'#13#10
    Top = 96
  end
  inherited DataSetProvider1: TDataSetProvider
    Top = 96
  end
  inherited ClientDataSet1: TClientDataSet
    AfterScroll = ClientDataSet1AfterScroll
    OnCalcFields = ClientDataSet1CalcFields
    Top = 96
    object ClientDataSet1ACC_NO: TStringField
      FieldName = 'ACC_NO'
      Size = 16
    end
    object ClientDataSet1Per_na: TStringField
      FieldName = 'Per_na'
      Size = 16
    end
    object ClientDataSet1Per_no: TStringField
      FieldName = 'Per_no'
      Size = 8
    end
    object ClientDataSet1fac_no: TStringField
      FieldName = 'fac_no'
      Size = 3
    end
    object ClientDataSet1sec_no: TStringField
      FieldName = 'sec_no'
      Size = 5
    end
    object ClientDataSet1Bz_no: TStringField
      FieldName = 'Bz_no'
      Size = 12
    end
    object ClientDataSet1Cre_date: TStringField
      FieldName = 'Cre_date'
      Size = 10
    end
    object ClientDataSet1remark: TStringField
      FieldName = 'remark'
      Size = 50
    end
    object ClientDataSet1PY: TStringField
      FieldName = 'PY'
      Size = 6
    end
    object ClientDataSet1fac_nm: TStringField
      FieldName = 'fac_nm'
      Size = 12
    end
    object ClientDataSet1sec_nm: TStringField
      FieldName = 'sec_nm'
      Size = 16
    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 ClientDataSet1New_fac_no: TStringField
      FieldName = 'New_fac_no'
      Size = 3
    end
    object ClientDataSet1New_sec_no: TStringField
      FieldName = 'New_sec_no'
      Size = 5
    end
    object ClientDataSet1Cancel_YN: TStringField
      FieldName = 'Cancel_YN'
      Size = 1
    end
    object ClientDataSet1cancel_date: TStringField
      FieldName = 'cancel_date'
      Size = 10
    end
    object ClientDataSet1New_fac_nm: TStringField
      FieldName = 'New_fac_nm'
      Size = 12
    end
    object ClientDataSet1New_sec_nm: TStringField
      FieldName = 'New_sec_nm'
      Size = 16
    end
    object ClientDataSet1IN_10: TStringField
      FieldKind = fkCalculated
      FieldName = 'IN_10'
      Size = 1
      Calculated = True
    end
    object ClientDataSet1IN_9: TStringField
      FieldKind = fkCalculated
      FieldName = 'IN_9'
      Size = 1
      Calculated = True
    end
    object ClientDataSet1IN_8: TStringField
      FieldKind = fkCalculated
      FieldName = 'IN_8'
      Size = 1
      Calculated = True
    end
    object ClientDataSet1IN_7: TStringField
      FieldKind = fkCalculated
      FieldName = 'IN_7'
      Size = 1
      Calculated = True
    end
    object ClientDataSet1IN_6: TStringField
      FieldKind = fkCalculated
      FieldName = 'IN_6'
      Size = 1
      Calculated = True
    end
    object ClientDataSet1IN_5: TStringField
      FieldKind = fkCalculated
      FieldName = 'IN_5'
      Size = 1
      Calculated = True
    end
    object ClientDataSet1IN_4: TStringField
      FieldKind = fkCalculated
      FieldName = 'IN_4'
      Size = 1
      Calculated = True
    end
    object ClientDataSet1IN_3: TStringField
      FieldKind = fkCalculated
      FieldName = 'IN_3'
      Size = 1
      Calculated = True
    end
    object ClientDataSet1IN_2: TStringField
      FieldKind = fkCalculated
      FieldName = 'IN_2'
      Size = 1
      Calculated = True
    end
    object ClientDataSet1IN_1: TStringField
      FieldKind = fkCalculated
      FieldName = 'IN_1'
      Size = 1
      Calculated = True
    end
    object ClientDataSet1serial_no: TStringField
      FieldName = 'serial_no'
      Size = 10
    end
    object ClientDataSet1IN_money: TBCDField
      FieldName = 'IN_money'
      Precision = 10
      Size = 2
    end
    object ClientDataSet1Cdate: TStringField
      FieldName = 'Cdate'
      Size = 10
    end
    object ClientDataSet1rem_money: TBCDField
      FieldName = 'rem_money'
      Precision = 10
      Size = 2
    end
    object ClientDataSet1rep_loss_YN: TStringField
      FieldName = 'rep_loss_YN'
      Size = 1
    end
    object ClientDataSet1rep_loss_date: TStringField
      FieldName = 'rep_loss_date'
      Size = 10
    end
  end
  inherited DataSource1: TDataSource
    Top = 136
  end
  inherited UpdateSQL1: TUpdateSQL
    ModifySQL.Strings = (
      'update Account'
      'set'
      '  ACC_NO = :ACC_NO,'
      '  Per_na = :Per_na,'
      '  Per_no = :Per_no,'
      '  fac_no = :fac_no,'
      '  sec_no = :sec_no,'
      '  New_fac_no = :New_fac_no,'
      '  New_sec_no = :New_sec_no,'
      '  Bz_no = :Bz_no,'
      '  Cre_date = :Cre_date,'
      '  remark = :remark,'
      '  PY = :PY,'
      '  add_date = :add_date,'
      '  add_user = :add_user,'
      '  edit_date = :edit_date,'
      '  edit_user = :edit_user,'
      '  Cancel_YN = :Cancel_YN,'
      '  cancel_date = :cancel_date,'
      '  serial_no = :serial_no,'
      '  rep_loss_YN = :rep_loss_YN,'
      '  rep_loss_date = :rep_loss_date'
      'where'
      '  ACC_NO = :OLD_ACC_NO')
    InsertSQL.Strings = (
      'insert into Account'
      
        '  (ACC_NO, Per_na, Per_no, fac_no, sec_no, New_fac_no, New_sec_n' +
        'o, Bz_no, '
      
        '   Cre_date, remark, PY, add_date, add_user, edit_date, edit_use' +
        'r, Cancel_YN, '
      '   cancel_date, serial_no, rep_loss_YN, rep_loss_date)'
      'values'
      
        '  (:ACC_NO, :Per_na, :Per_no, :fac_no, :sec_no, :New_fac_no, :Ne' +
        'w_sec_no, '
      
        '   :Bz_no, :Cre_date, :remark, :PY, :add_date, :add_user, :edit_' +
        'date, :edit_user, '
      
        '   :Cancel_YN, :cancel_date, :serial_no, :rep_loss_YN, :rep_loss' +
        '_date)')
    DeleteSQL.Strings = (
      'delete from Account'
      'where'
      '  ACC_NO = :OLD_ACC_NO')
    Top = 136
  end
  inherited DosMove1: TDosMove
    Left = 16
    Top = 200
  end
  object ADOFactory: TADODataSet
    Connection = DM.ADOConnection1
    CursorType = ctStatic
    CommandText = 'factory'
    CommandType = cmdTable
    Parameters = <>
    Prepared = True
    Left = 60
    Top = 183
    object ADOFactoryfac_no: TStringField
      DisplayLabel = #21378#21035#20195#21495
      DisplayWidth = 10
      FieldName = 'fac_no'
      Size = 3
    end
    object ADOFactoryfac_nm: TStringField
      DisplayLabel = #21378#21035#21517#31216
      DisplayWidth = 12
      FieldName = 'fac_nm'
      Size = 12
    end
  end
  object ADOsec: TADODataSet
    Connection = DM.ADOConnection1
    CursorType = ctStatic
    CommandText = 'select  sec_no, sec_nm from Sec '#13#10'order by sec_no'#13#10
    Parameters = <>
    Prepared = True
    Left = 92
    Top = 183
    object ADOsecsec_no: TStringField
      DisplayLabel = #32452#21035#20195#21495
      DisplayWidth = 12
      FieldName = 'sec_no'
      Size = 5
    end
    object ADOsecsec_nm: TStringField
      DisplayLabel = #32452#21035#21517#31216
      DisplayWidth = 12
      FieldName = 'sec_nm'
      Size = 12
    end
  end
  object UpdateSQL2: TUpdateSQL
    ModifySQL.Strings = (
      'update Deposit'
      'set'
      '  IN_money = :IN_money,'
      '  edit_date = :edit_date,'
      '  edit_user = :edit_user,'
      '  rem_money = :rem_money,'
      'where'
      '  ACC_NO = :OLD_ACC_NO and'
      '  serial_no = :OLD_serial_no')
    InsertSQL.Strings = (
      'insert into Deposit'
      '  (ACC_NO, Cdate, serial_no,  IN_money,  add_date, '
      '   add_user, edit_date, edit_user, rem_money, Cre_man)'
      'values'
      '  (:ACC_NO, :Cdate, :serial_no,  :IN_money,  :add_date, '
      '   :add_user, :edit_date, :edit_user, :rem_money, :Cre_man)')
    DeleteSQL.Strings = (
      'delete from Deposit'
      'where'
      '  ACC_NO = :OLD_ACC_NO and'
      '  serial_no = :OLD_serial_no')
    Left = 128
    Top = 136
  end
end