invoice400v_f.dfm

县级供电企业电费核算源码, 在客户处正常运行8年以上, Delphi 5开发,数据库为Interbase/Firebird, 深入使用Procedure和Trigger等, 对入门者具有很好的参考价值

object F_Invoice400v: TF_Invoice400v
  Left = 200
  Top = 124
  Width = 709
  Height = 498
  Caption = #19968#25143#19968#34920#29992#25143' '#21457#31080#25171#21360#31383#21475
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -16
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 16
  object GroupBox1: TGroupBox
    Left = 0
    Top = 328
    Width = 701
    Height = 143
    Align = alBottom
    TabOrder = 0
    object Label2: TLabel
      Left = 16
      Top = 88
      Width = 72
      Height = 16
      Caption = #26412#26399#30005#36153':'
    end
    object DBT_Amount: TDBText
      Left = 88
      Top = 88
      Width = 89
      Height = 17
      Color = clMenu
      DataField = 'F_FEEAMOUNT'
      DataSource = Ds_Invoice
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentColor = False
      ParentFont = False
    end
    object Label3: TLabel
      Left = 192
      Top = 56
      Width = 40
      Height = 16
      Caption = #25910#27454':'
    end
    object Label4: TLabel
      Left = 344
      Top = 56
      Width = 40
      Height = 16
      Caption = #25214#38646':'
    end
    object DBT_Last_Balance: TDBText
      Left = 88
      Top = 120
      Width = 89
      Height = 17
      DataField = 'F_LAST_BALANCE'
      DataSource = Ds_Invoice
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label1: TLabel
      Left = 16
      Top = 120
      Width = 72
      Height = 16
      Caption = #19978#26399#20313#39069':'
    end
    object Label5: TLabel
      Left = 192
      Top = 88
      Width = 40
      Height = 16
      Caption = #23454#25910':'
    end
    object Label6: TLabel
      Left = 16
      Top = 56
      Width = 72
      Height = 16
      Caption = #24212'    '#25910':'
    end
    object Label7: TLabel
      Left = 344
      Top = 88
      Width = 40
      Height = 16
      Caption = #20313#39069':'
    end
    object Bt_PrintInvoice: TButton
      Left = 463
      Top = 112
      Width = 75
      Height = 25
      Caption = #25171#21360#21457#31080
      Enabled = False
      TabOrder = 0
      OnClick = Bt_PrintInvoiceClick
    end
    object Bt_Return: TButton
      Left = 605
      Top = 112
      Width = 84
      Height = 25
      Caption = #36820#22238'&R'
      TabOrder = 1
      OnClick = Bt_ReturnClick
    end
    object Bt_Edit: TButton
      Left = 607
      Top = 16
      Width = 82
      Height = 25
      Caption = #20462#25913#21457#31080
      TabOrder = 2
      OnClick = Bt_EditClick
    end
    object E_Search: TEdit
      Left = 232
      Top = 18
      Width = 225
      Height = 24
      Hint = #36755#20837'%'#21487#20197#20195#26367#20219#20309#23383#31526
      MaxLength = 12
      ParentShowHint = False
      ShowHint = True
      TabOrder = 3
      OnDblClick = E_SearchDblClick
      OnKeyPress = E_SearchKeyPress
    end
    object Bt_Search: TButton
      Left = 464
      Top = 18
      Width = 73
      Height = 25
      Caption = #26597#35810#29992#25143
      TabOrder = 4
      OnClick = Bt_SearchClick
    end
    object CB_Preview: TCheckBox
      Left = 467
      Top = 88
      Width = 65
      Height = 17
      Caption = #39044#35272'&P'
      Checked = True
      State = cbChecked
      TabOrder = 5
      OnClick = CB_PreviewClick
    end
    object E_Gathering: TEdit
      Left = 232
      Top = 48
      Width = 97
      Height = 24
      Color = clWhite
      Font.Charset = GB2312_CHARSET
      Font.Color = clGreen
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 6
      OnChange = E_GatheringChange
    end
    object E_GiveChange: TEdit
      Left = 392
      Top = 48
      Width = 65
      Height = 24
      Color = clWhite
      Font.Charset = GB2312_CHARSET
      Font.Color = clGreen
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      ReadOnly = True
      TabOrder = 7
      OnChange = E_GiveChangeChange
    end
    object Memo1: TMemo
      Left = 16
      Top = 16
      Width = 209
      Height = 25
      Color = clMenu
      Font.Charset = GB2312_CHARSET
      Font.Color = clNavy
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      Lines.Strings = (
        #26597#35810': '#29992#25143#21495'/'#21488#21464#21495'/'#25143#21517)
      ParentFont = False
      ReadOnly = True
      TabOrder = 8
    end
    object Bt_Charge: TButton
      Left = 464
      Top = 48
      Width = 73
      Height = 25
      Caption = #25910#36153
      Enabled = False
      TabOrder = 9
      OnClick = Bt_ChargeClick
    end
    object Bt_Switch: TButton
      Left = 606
      Top = 80
      Width = 83
      Height = 25
      Caption = '10KV'#29992#25143
      TabOrder = 10
      OnClick = Bt_SwitchClick
    end
    object E_ActualReceive: TEdit
      Left = 232
      Top = 80
      Width = 97
      Height = 24
      Color = 16777145
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      ReadOnly = True
      TabOrder = 11
    end
    object E_Balance: TEdit
      Left = 392
      Top = 80
      Width = 65
      Height = 24
      Color = 16777145
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      ReadOnly = True
      TabOrder = 12
      OnChange = E_GiveChangeChange
    end
    object CB_PreDeposit: TCheckBox
      Left = 208
      Top = 120
      Width = 121
      Height = 17
      Caption = #20801#35768#39044#23384#30005#36153
      Checked = True
      State = cbChecked
      TabOrder = 13
      OnClick = CB_PreDepositClick
    end
    object DBE_Should_Receive: TDBEdit
      Left = 88
      Top = 48
      Width = 97
      Height = 24
      Color = clBlue
      DataField = 'F_SHOULD_RECEIVE'
      DataSource = Ds_Invoice
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      ReadOnly = True
      TabOrder = 14
    end
    object Bt_PrintBalance: TButton
      Left = 375
      Top = 112
      Width = 75
      Height = 25
      Caption = #32467#31639#21333
      Enabled = False
      TabOrder = 15
      OnClick = Bt_PrintBalanceClick
    end
  end
  object DBG_House: TDBGrid
    Left = 265
    Top = 0
    Width = 436
    Height = 328
    Align = alClient
    Color = clMenu
    DataSource = Ds_Invoice
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    TabOrder = 1
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -16
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    OnCellClick = DBG_HouseCellClick
    OnDblClick = DBG_HouseDblClick
    Columns = <
      item
        Expanded = False
        FieldName = 'F_HOUSE_NO'
        Title.Caption = #25143#21495
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'F_HOUSE_NAME'
        Title.Caption = #25143#21517
        Width = 110
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'F_USED_COUNT'
        Title.Caption = #30005#37327
        Width = 74
        Visible = True
      end
      item
        Color = clTeal
        Expanded = False
        FieldName = 'F_FEEAMOUNT'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWhite
        Font.Height = -16
        Font.Name = #23435#20307
        Font.Style = []
        Title.Caption = #24212#25910#30005#36153
        Width = 81
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'F_LATEFEE'
        Title.Caption = #28382#32435#37329
        Width = 57
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'F_BOX_NO'
        Title.Caption = #31665#21495
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'F_ARREARAGE'
        Title.Caption = #27424#36153
        Width = 59
        Visible = True
      end>
  end
  object DBE_House_No: TDBEdit
    Left = 552
    Top = 76
    Width = 121
    Height = 24
    DataField = 'F_HOUSE_NO'
    DataSource = Ds_Invoice
    TabOrder = 2
    Visible = False
  end
  object DBG_Transfer: TDBGrid
    Left = 0
    Top = 0
    Width = 265
    Height = 328
    Align = alLeft
    DataSource = Ds_Transfer
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    ReadOnly = True
    TabOrder = 3
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -16
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    OnDblClick = DBG_TransferDblClick
    Columns = <
      item
        Expanded = False
        FieldName = 'F_TRANSFER_NO'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'F_TRANSFER_NAME'
        Width = 175
        Visible = True
      end>
  end
  object Ds_Transfer: TDataSource
    DataSet = Tb_Transfer
    Left = 32
    Top = 208
  end
  object Tb_Transfer: TTable
    DatabaseName = 'SMDLJF'
    TableName = 'TB_TRANSFER'
    Left = 32
    Top = 264
    object Tb_TransferF_TRANSFER_NO: TStringField
      DisplayLabel = #21488#21464#21495
      DisplayWidth = 6
      FieldName = 'F_TRANSFER_NO'
      Required = True
      FixedChar = True
      Size = 6
    end
    object Tb_TransferF_TRANSFER_NAME: TStringField
      DisplayLabel = #21488#21464#21517#31216
      FieldName = 'F_TRANSFER_NAME'
      FixedChar = True
    end
  end
  object Q_Invoice: TQuery
    DatabaseName = 'SMDLJF'
    SQL.Strings = (
      'Select T.f_Transfer_Name,'
      '       H.f_Used_Amount As f_FeeAmount,'
      '       V.f_Village_Name || H.f_Position As f_Position,'
      '       H.*,'
      '       H.f_Used_Amount - H.f_Last_Balance As f_Should_Receive'
      'From Tb_House H'
      '     Join Tb_Transfer T On T.f_Transfer_No = H.f_Transfer_No'
      '     Join Tb_Village V On H.f_Village_No = V.f_Village_No'
      'Where f_House_No Like '#39'F01001%'#39
      'Order By f_House_No')
    Left = 104
    Top = 264
  end
  object Ds_Invoice: TDataSource
    DataSet = Q_Invoice