ufrmrep_loss.dfm

小银行系统

    end
    object BitBtn1: TBitBtn
      Left = 625
      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
    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
    object BitBtn2: TBitBtn
      Left = 531
      Top = 56
      Width = 89
      Height = 24
      Cursor = crHandPoint
      Caption = #21462#28040#25346#22833
      TabOrder = 14
      OnClick = BitBtn2Click
      Glyph.Data = {
        66010000424D6601000000000000760000002800000014000000140000000100
        040000000000F000000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        7777777700007C77777777777777777700007CC7777777777777777700007CCC
        77EEEEEEEEEEEE7700007CCCC7EEEEE00EEEEE7700007CCCCCEEEEE00EEEEE77
        00007CCCCCEE00000000EE7700007CCCC7EEEEE00EEEEE7700007CCC77EEEEE0
        0EEEEE7700007CC777EE00000000EE7700007C7777EEEEE00EEEEE7700007777
        77EEEE0EE0EEEE770000777777EEE0EEEE0EEE770000777777EE0EEEEEE0EE77
        0000777777EEEEEEEEEEEE770000777777EEEEEEEEEEEE770000777777EEEEEE
        EEEEEE7700007777777777777777777700007777777777777777777700007777
        77777777777777770000}
    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
    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'
      '  rep_loss_YN  = :rep_loss_YN,'
      '  rep_loss_date  = :rep_loss_date'
      'where'
      '  ACC_NO = :OLD_ACC_NO')
    InsertSQL.Strings = (
      'update Account'
      'set'
      '  rep_loss_YN  = :rep_loss_YN,'
      '  rep_loss_date  = :rep_loss_date'
      'where'
      '  ACC_NO = :OLD_ACC_NO')
    DeleteSQL.Strings = (
      'update Account'
      'set'
      '  rep_loss_YN  = :rep_loss_YN,'
      '  rep_loss_date  = :rep_loss_date'
      '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
end