ufrmcancelaccount.dfm

小银行系统

      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 DBEdit12: TDBEdit
      Left = 78
      Top = 51
      Width = 98
      Height = 22
      Color = clInfoBk
      DataField = 'Per_na'
      DataSource = DataSource1
      Enabled = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 12
    end
  end
  object PanTop: TPanel [3]
    Left = 0
    Top = 0
    Width = 692
    Height = 57
    Align = alTop
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    DesignSize = (
      692
      57)
    object Label3: TLabel
      Left = 31
      Top = 6
      Width = 28
      Height = 14
      Caption = #21378#21035
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label5: TLabel
      Left = 247
      Top = 6
      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 = 151
      Top = 33
      Width = 14
      Height = 14
      Caption = #33267
    end
    object Label24: TLabel
      Left = 2
      Top = 31
      Width = 56
      Height = 14
      Caption = #28040#25143#26085#26399
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label4: TLabel
      Left = 269
      Top = 33
      Width = 56
      Height = 14
      Caption = #25340#38899#26816#32034
    end
    object Label9: TLabel
      Left = 461
      Top = 7
      Width = 28
      Height = 14
      Caption = #24080#21495
    end
    object Label23: TLabel
      Left = 393
      Top = 32
      Width = 56
      Height = 14
      Caption = #24635#28040#25143#25968
    end
    object Edtfac_nm: TEdit
      Left = 122
      Top = 2
      Width = 92
      Height = 22
      Color = clInfoBk
      Enabled = False
      TabOrder = 8
    end
    object Edtsec_nm: TEdit
      Left = 351
      Top = 2
      Width = 95
      Height = 22
      Color = clInfoBk
      TabOrder = 9
    end
    object BitBtn_query: TBitBtn
      Left = 516
      Top = 30
      Width = 61
      Height = 24
      Cursor = crHandPoint
      Caption = #26597#35810
      TabOrder = 6
      OnClick = BitBtn_queryClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333333FF3FF3333333333CC30003333333333773777333333333C33
        3000333FF33337F33777339933333C3333333377F33337F3333F339933333C33
        33003377333337F33377333333333C333300333F333337F33377339333333C33
        3333337FF3333733333F33993333C33333003377FF33733333773339933C3333
        330033377FF73F33337733339933C33333333FF377F373F3333F993399333C33
        330077F377F337F33377993399333C33330077FF773337F33377399993333C33
        33333777733337F333FF333333333C33300033333333373FF7773333333333CC
        3000333333333377377733333333333333333333333333333333}
      NumGlyphs = 2
    end
    object EdtPY: TEdit
      Left = 329
      Top = 29
      Width = 55
      Height = 22
      CharCase = ecUpperCase
      MaxLength = 6
      TabOrder = 5
    end
    object BitBtn1: TBitBtn
      Left = 583
      Top = 30
      Width = 63
      Height = 24
      Cursor = crHandPoint
      Caption = #32467#26463
      TabOrder = 7
      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 Edtpers: TEdit
      Left = 452
      Top = 29
      Width = 49
      Height = 22
      Anchors = [akLeft, akTop, akRight, akBottom]
      Enabled = False
      TabOrder = 10
    end
    object EdtEndyymmdd: TMaskEdit
      Left = 169
      Top = 30
      Width = 82
      Height = 22
      CharCase = ecUpperCase
      EditMask = '9999-99-99;1;_'
      MaxLength = 10
      TabOrder = 4
      Text = '    -  -  '
    end
  end
  inherited ADODataSet1: TADODataSet
    CursorType = ctStatic
    CommandText = 
      'SELECT TOP 0  A.*, B.fac_nm,C.sec_nm'#13#10'FROM  Account   A '#13#10'LEFT  ' +
      'JOIN '#13#10'     factory  B  ON A.fac_no = B.fac_no '#13#10'LEFT  JOIN'#13#10'   ' +
      '   Sec C ON A.sec_no = C.sec_no'#13#10'ORDER  BY 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 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 ClientDataSet1Cancel_YN: TStringField
      FieldName = 'Cancel_YN'
      Size = 1
    end
    object ClientDataSet1cancel_date: TStringField
      FieldName = 'cancel_date'
      Size = 10
    end
    object ClientDataSet1fac_nm: TStringField
      FieldName = 'fac_nm'
      Size = 12
    end
    object ClientDataSet1sec_nm: TStringField
      FieldName = 'sec_nm'
      Size = 16
    end
  end
  inherited DataSource1: TDataSource
    Top = 136
  end
  inherited UpdateSQL1: TUpdateSQL
    ModifySQL.Strings = (
      'update Account'
      'set'
      '  Cancel_YN = :Cancel_YN,'
      '  cancel_date = :cancel_date'
      'where'
      '  ACC_NO = :OLD_ACC_NO')
    InsertSQL.Strings = (
      'update Account'
      'set'
      '  Cancel_YN = :Cancel_YN,'
      '  cancel_date = :cancel_date'
      'where'
      '  ACC_NO = :OLD_ACC_NO')
    DeleteSQL.Strings = (
      'update Account'
      'set'
      '  Cancel_YN = '#39'N'#39','
      '  cancel_date = '#39#39
      'where'
      '  ACC_NO = :OLD_ACC_NO')
    Top = 136
  end
  inherited DosMove1: TDosMove
    Left = 24
    Top = 64
  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