【delphi开源代码栏目提醒】：文章导读：在新的一年中，各位网友都进入紧张的学习或是工作阶段。网学会员整理了delphi开源代码-main_xfgl_qftjform.pas的相关内容供大家参考，祝大家在新的一年里工作和学习顺利！

    unit main_xfgl_qftjform;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
      Db, Grids, DBGrids, DBTables, ExtCtrls, DBCtrls, StdCtrls, Mask, Buttons;
    
    type
      Tmain_xfgl_qftj = class(TForm)
        table1: TTable;
        DataSource1: TDataSource;
        Table2: TTable;
        table1BDEDesigner: TStringField;
        table1BDEDesigner2: TStringField;
        table1BDEDesigner3: TStringField;
        table1BDEDesigner4: TStringField;
        table1XF: TCurrencyField;
        table1ZF: TCurrencyField;
        table1KBF: TCurrencyField;
        table1ZSF: TCurrencyField;
        table1BF: TCurrencyField;
        table1KGF: TCurrencyField;
        table1BXF: TCurrencyField;
        table1SJF: TCurrencyField;
        table1JDF: TCurrencyField;
        table1QTF: TCurrencyField;
        table1MJF: TCurrencyField;
        Table2Xf: TCurrencyField;
        Table2Zf: TCurrencyField;
        Table2Bf: TCurrencyField;
        Table2Kbf: TCurrencyField;
        Table2Jsf: TCurrencyField;
        Table2Jdf: TCurrencyField;
        Table2Kgf: TCurrencyField;
        Table2Sjf: TCurrencyField;
        Table2Bkf: TCurrencyField;
        Table2Qtf: TCurrencyField;
        Table2Mjf: TCurrencyField;
        Table2Zfy: TCurrencyField;
        table1qbf: TStringField;
        table1qxf: TStringField;
        table1qzf: TStringField;
        DataSource2: TDataSource;
        Table2Bj: TStringField;
        table1BDEDesigner5: TStringField;
        Panel1: TPanel;
        GroupBox1: TGroupBox;
        Label3: TLabel;
        Label4: TLabel;
        Label5: TLabel;
        Label15: TLabel;
        Label2: TLabel;
        Label16: TLabel;
        Label17: TLabel;
        Label18: TLabel;
        Label19: TLabel;
        Label20: TLabel;
        Label21: TLabel;
        Label22: TLabel;
        DBEdit2: TDBEdit;
        DBEdit3: TDBEdit;
        DBEdit4: TDBEdit;
        DBEdit5: TDBEdit;
        DBEdit6: TDBEdit;
        DBEdit7: TDBEdit;
        DBEdit8: TDBEdit;
        DBEdit9: TDBEdit;
        DBEdit10: TDBEdit;
        DBEdit11: TDBEdit;
        DBEdit12: TDBEdit;
        DBEdit13: TDBEdit;
        table1BDEDesigner6: TDateField;
        table1BDEDesigner7: TStringField;
        Panel2: TPanel;
        Panel3: TPanel;
        Label1: TLabel;
        ComboBox1: TComboBox;
        BitBtn3: TBitBtn;
        BitBtn2: TBitBtn;
        Table3: TTable;
        Table3Xm: TStringField;
        Table3Bj: TStringField;
        Table3Yj: TStringField;
        table1qkbf: TStringField;
        table1qzsf: TStringField;
        table1qkgf: TStringField;
        table1qbxf: TStringField;
        table1qsjf: TStringField;
        table1qjdf: TStringField;
        table1qqtf: TStringField;
        GroupBox2: TGroupBox;
        DBGrid1: TDBGrid;
        GroupBox3: TGroupBox;
        DBGrid2: TDBGrid;
        table1zfy: TCurrencyField;
        Label6: TLabel;
        BitBtn1: TBitBtn;
        procedure table1CalcFields(DataSet: TDataSet);
       
        procedure FormShow(Sender: TObject);
        procedure ComboBox1Change(Sender: TObject);
        procedure DBGrid2DblClick(Sender: TObject);
        procedure DBGrid1DblClick(Sender: TObject);
        procedure BitBtn1Click(Sender: TObject);
        procedure FormClose(Sender: TObject; var Action: TCloseAction);
        procedure BitBtn3Click(Sender: TObject);
        procedure BitBtn2Click(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      main_xfgl_qftj: Tmain_xfgl_qftj;
    
    implementation
    
    uses main_xfgl_xxll_llszform, printform, qprintform, main_xfgl_xxll_jfxxform,
      main_dyform;
    
    {$R *.DFM}
    
    procedure Tmain_xfgl_qftj.table1CalcFields(DataSet: TDataSet);
    begin
      if table1xf.value=0 then
         table1qxf.AsString:='没交费'
       else if(table1xf.Value<table2xf.Value) and (table1xf.Value>0) then
          table1qxf.AsString:='-'+currtostr(table2xf.Value-table1xf.Value)
        else
           table1qxf.AsString:='已交费';
    
       if table1bf.Value=0 then
           table1qbf.AsString:='没交费'
       else if(table1bf.Value<table2bf.Value) and (table1bf.Value>0) then
            table1qbf.AsString:='-'+currtostr(table2bf.Value-table1bf.Value)
       else
           table1qbf.AsString:='已交费';
    
           if table1zf.Value=0 then
           table1qzf.AsString:='没交费'
       else if(table1zf.Value<table2zf.Value) and (table1zf.Value>0) then
           table1qzf.AsString:='-'+currtostr(table2zf.Value-table1zf.Value)
       else
           table1qzf.AsString:='已交费';
         if table1kbf.Value=0 then
           table1qkbf.AsString:='没交费'
       else if(table1kbf.Value<table2kbf.Value) and (table1kbf.Value>0) then
           table1qkbf.AsString:='-'+currtostr(table2kbf.Value-table1kbf.Value)
       else
           table1qkbf.AsString:='已交费';
        if table1zsf.Value=0 then
           table1qzsf.AsString:='没交费'
       else if(table1zsf.Value<table2jsf.Value) and (table1zsf.Value>0) then
           table1qzsf.AsString:='-'+currtostr(table2jsf.Value-table1zsf.Value)
       els