ufrminterrestrep.dfm

小银行系统

object frmInterRestRep: TfrmInterRestRep
  Left = 38
  Top = 62
  Width = 733
  Height = 467
  Caption = #21033#24687#34920
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  OnActivate = FormActivate
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object PanTop: TPanel
    Left = 0
    Top = 0
    Width = 725
    Height = 54
    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 = 0
    object Label5: TLabel
      Left = 157
      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 = 189
      Top = 32
      Width = 28
      Height = 14
      Caption = #22995#21517
    end
    object Label24: TLabel
      Left = 17
      Top = 9
      Width = 56
      Height = 14
      Caption = #21033#24687#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 = 44
      Top = 32
      Width = 28
      Height = 14
      Caption = #24080#21495
    end
    object BitBtn_query: TBitBtn
      Left = 506
      Top = 16
      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 = 223
      Top = 29
      Width = 70
      Height = 20
      Color = clInfoBk
      Enabled = False
      TabOrder = 6
    end
    object BitBtn1: TBitBtn
      Left = 641
      Top = 16
      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 EdtStartyymm: TMaskEdit
      Left = 77
      Top = 6
      Width = 70
      Height = 20
      CharCase = ecUpperCase
      EditMask = '9999-99;1;_'
      MaxLength = 7
      TabOrder = 0
      Text = '    -  '
      OnExit = EdtStartyymmExit
    end
    object EdtACC_NO: TEdit
      Left = 76
      Top = 29
      Width = 98
      Height = 20
      MaxLength = 16
      TabOrder = 2
    end
    object BitBtn_Print: TBitBtn
      Left = 573
      Top = 16
      Width = 63
      Height = 24
      Cursor = crHandPoint
      Caption = #25171#21360
      TabOrder = 4
      OnClick = BitBtn_PrintClick
      Glyph.Data = {
        66010000424D6601000000000000760000002800000014000000140000000100
        040000000000F000000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        7777777700007777777777777777777700007777777777777777777700007777
        7777777777777777000077770000000000077777000077707777777770707777
        0000770000000000000707770000770777777BBB770007770000770777777888
        7707077700007700000000000007707700007707777777777070707700007770
        0000000007070077000077770FFFFFFFF07070770000777770F00000F0000777
        0000777770FFFFFFFF07777700007777770F00000F07777700007777770FFFFF
        FFF0777700007777777000000000777700007777777777777777777700007777
        77777777777777770000}
    end
    object EdtEndyymm: TMaskEdit
      Left = 179
      Top = 6
      Width = 68
      Height = 20
      CharCase = ecUpperCase
      EditMask = '9999-99;1;_'
      MaxLength = 7
      TabOrder = 1
      Text = '    -  '
    end
  end
  object ScrollBox1: TScrollBox
    Left = 0
    Top = 54
    Width = 725
    Height = 386
    Align = alClient
    Ctl3D = False
    ParentCtl3D = False
    TabOrder = 1
    object Memo1: TMemo
      Left = 0
      Top = 0
      Width = 723
      Height = 384
      Align = alClient
      Color = 14089674
      Enabled = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Lines.Strings = (
        #22522#26412#25805#20316#35828#26126)
      ParentFont = False
      ReadOnly = True
      TabOrder = 0
    end
    object Grid1: TDBGridEh
      Left = 0
      Top = 0
      Width = 723
      Height = 384
      Align = alClient
      DataSource = DataSource1
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = #23435#20307
      Font.Style = []
      FooterColor = clWindow
      FooterFont.Charset = ANSI_CHARSET
      FooterFont.Color = clWindowText
      FooterFont.Height = -15
      FooterFont.Name = #23435#20307
      FooterFont.Style = []
      FrozenCols = 2
      ParentFont = False
      ReadOnly = True
      TabOrder = 1
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clNavy
      TitleFont.Height = -15
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      Columns = <
        item
          EditButtons = <>
          FieldName = 'Acc_no'
          Footers = <>
          Title.Alignment = taCenter
        end
        item
          EditButtons = <>
          FieldName = 'Per_na'
          Footers = <>
          Title.Alignment = taCenter
          Width = 75
        end
        item
          EditButtons = <>
          FieldName = 'Per_no'
          Footers = <>
          Title.Alignment = taCenter
          Width = 76
        end
        item
          EditButtons = <>
          FieldName = 'Interest_Money'
          Footers = <>
          Title.Alignment = taCenter
        end
        item
          EditButtons = <>
          FieldName = 'fac_nm'
          Footers = <>
          Title.Alignment = taCenter
        end
        item
          EditButtons = <>
          FieldName = 'sec_nm'
          Footers = <>
          Title.Alignment = taCenter
        end
        item
          EditButtons = <>
          FieldName = 'Not_Mature'
          Footers = <>
          Title.Alignment = taCenter
          Width = 88
        end>
    end
  end
  object ADODataSet1: TADODataSet
    Connection = DM.ADOConnection1
    CursorType = ctStatic
    CommandText = 
      'SELECT TOP 0   A.* , B.Per_na,B.Per_no, B.fac_no, B.sec_no,'#13#10' C.' +
      'fac_nm, D.sec_nm'#13#10'FROM InterestMaster  A '#13#10'  INNER JOIN Account ' +
      ' B ON A.Acc_no = B.Acc_no '#13#10'  INNER JOIN factory  C ON B.fac_no ' +
      '= C.fac_no '#13#10'  INNER JOIN Sec  D ON B.sec_no = D.Sec_no '#13#10'ORDER ' +
      ' BY  A.Acc_no'#13#10
    Parameters = <>
    Left = 32
    Top = 87
  end
  object DataSetProvider1: TDataSetProvider
    DataSet = ADODataSet1
    Constraints = True
    Left = 72
    Top = 87
  end
  object ClientDataSet1: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DataSetProvider1'
    Left = 112
    Top = 87
    object ClientDataSet1Start_yymm: TStringField
      DisplayLabel = #36215#22987#24180#26376
      FieldName = 'Start_yymm'
      Size = 7
    end
    object ClientDataSet1End_yymm: TStringField
      DisplayLabel = #32456#27490#24180#26376
      FieldName = 'End_yymm'
      Size = 7
    end
    object ClientDataSet1Acc_no: TStringField
      DisplayLabel = #24080#21495
      FieldName = 'Acc_no'
      Size = 16
    end
    object ClientDataSet1Interest_Money: TBCDField
      DisplayLabel = #21033#24687
      FieldName = 'Interest_Money'
      DisplayFormat = '##,###,##0.00'
      Precision = 10
      Size = 2
    end
    object ClientDataSet1Not_Mature: TStringField
      DisplayLabel = #26159#21542#19981#36275#26376
      FieldName = 'Not_Mature'
      Size = 1
    end
    object ClientDataSet1Per_na: TStringField
      DisplayLabel = #22995#21517
      FieldName = 'Per_na'
      Size = 16
    end
    object ClientDataSet1Per_no: TStringField
      DisplayLabel = #24037#21495
      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 ClientDataSet1fac_nm: TStringField
      DisplayLabel = #21378#21035
      FieldName = 'fac_nm'
      Size = 12
    end
    object ClientDataSet1sec_nm: TStringField
      DisplayLabel = #32452#21035
      FieldName = 'sec_nm'
      Size = 16
    end
    object ClientDataSet1Pre_rest_Money: TBCDField
      FieldName = 'Pre_rest_Money'
      Precision = 10
      Size = 2
    end
  end
  object DataSource1: TDataSource
    DataSet = ClientDataSet1
    Left = 32
    Top = 127
  end
  object DosMove1: TDosMove
    Active = True
    TabGrid = False
    Left = 432
  end
end