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)
   else
       table1qzsf.AsString:='已交费';

     if table1kgf.Value=0 then
       table1qkgf.AsString:='没交费'
   else if(table1kgf.Value<table2kgf.Value) and (table1kgf.Value>0) then
       table1qkgf.AsString:='-'+currtostr(table2kgf.Value-table1kgf.Value)
   else
       table1qkgf.AsString:='已交费';

     if table1bxf.Value=0 then
       table1qbxf.AsString:='没交费'
   else if(table1bxf.Value<table2bkf.Value) and (table1bxf.Value>0) then
       table1qbxf.AsString:='-'+currtostr(table2bkf.Value-table1bxf.Value)
   else
       table1qbxf.AsString:='已交费';
   
     if table1sjf.Value=0 then
       table1qsjf.AsString:='没交费'
   else if(table1sjf.Value<table2sjf.Value) and (table1sjf.Value>0) then
       table1qsjf.AsString:='-'+currtostr(table2sjf.Value-table1sjf.Value)
   else
       table1qsjf.AsString:='已交费';
       if table1jdf.Value=0 then
       table1qjdf.AsString:='没交费'
   else if(table1jdf.Value<table2jdf.Value) and (table1jdf.Value>0) then
       table1qjdf.AsString:='-'+currtostr(table2jdf.Value-table1jdf.Value)
   else
       table1qjdf.AsString:='已交费';
    if table1qtf.Value=0 then
       table1qqtf.AsString:='没交费'
   else if(table1qtf.Value<table2qtf.Value) and (table1qtf.Value>0) then
       table1qqtf.AsString:='-'+currtostr(table2qtf.Value-table1qtf.Value)
   else
       table1qqtf.AsString:='已交费';
    table1zfy.Value:=table1XF.Value+table1zf.Value+table1kbf.Value
        +table1zsf.Value+table1bf.Value+table1kgf.Value+table1bxf.Value
        +table1sjf.value +table1jdf.Value+table1qtf.Value-table1mjf.Value;     
 end;


procedure Tmain_xfgl_qftj.FormShow(Sender: TObject);
var
 i:integer;
begin
    combobox1.Items.Clear;
   table3.open;
  for i:=1 to table3.RecordCount do
   begin
     combobox1.Items.Add(table3.Fields[1].AsString);
     table3.Next;
   end;
    table1.open;
    table2.open;
   table3.close;
  end;

procedure Tmain_xfgl_qftj.ComboBox1Change(Sender: TObject);
begin
    table1.open;
    table2.open;
   table1.Filtered:=false;
  table2.Filtered:=false;
  table1.Filter:='所在班级='+''''+combobox1.Text+'''';
  table2.Filter:='bj='+''''+combobox1.Text+'''';
  table1.Filtered:=true;
  table2.Filtered:=true;
    table1.Refresh;
    table2.Refresh;
  groupbox1.Caption:='<'+combobox1.Text+'>'+'各项交费标准';
end;

procedure Tmain_xfgl_qftj.DBGrid2DblClick(Sender: TObject);
begin
   main_xfgl_xxll_jfxx.Table1.open;
   main_xfgl_xxll_jfxx.table1.IndexFieldNames:='学生编号';
   main_xfgl_xxll_jfxx.table1.SetKey;
   main_xfgl_xxll_jfxx.table1.FieldByName('学生编号').value:=dbgrid2.Fields[0].value;
   main_xfgl_xxll_jfxx.table1.GotoKey;
   main_xfgl_xxll_jfxx.ShowModal;
end;

procedure Tmain_xfgl_qftj.DBGrid1DblClick(Sender: TObject);
begin
   main_xfgl_xxll_jfxx.Table1.open;
   main_xfgl_xxll_jfxx.table1.IndexFieldNames:='学生编号';
   main_xfgl_xxll_jfxx.table1.SetKey;
   main_xfgl_xxll_jfxx.table1.FieldByName('学生编号').value:=dbgrid1.Fields[0].value;
   main_xfgl_xxll_jfxx.table1.GotoKey;
   main_xfgl_xxll_jfxx.ShowModal;
end;

procedure Tmain_xfgl_qftj.BitBtn1Click(Sender: TObject);
begin
  close;
end;

procedure Tmain_xfgl_qftj.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  table1.close;
  table2.close;
end;

procedure Tmain_xfgl_qftj.BitBtn3Click(Sender: TObject);
begin
  prints.Table1.Filtered:=false;
  prints.Table1.Filter:=table1.Filter;
  prints.table1.Filtered:=true;
  prints.ShowModal;

end;

procedure Tmain_xfgl_qftj.BitBtn2Click(Sender: TObject);
begin
   main_dy.ShowModal;
end;

end.