main_xfgl_xftjcxform.pas

校园综合管理系统、包括学生学籍管理、教籍管理、资产管理等

unit main_xfgl_xftjcxform;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, Grids, ExtCtrls, DBGrids, Db, DBTables;

type
  Tmain_xfgl_xftjcx = class(TForm)
    DBGrid1: TDBGrid;
    Panel1: TPanel;
    Label4: TLabel;
    GroupBox2: TGroupBox;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    Edit1: TEdit;
    ComboBox3: TComboBox;
    StringGrid1: TStringGrid;
    GroupBox3: TGroupBox;
    BitBtn1: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    DataSource1: TDataSource;
    Memo1: TMemo;
    Table1: TTable;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    Table1BDEDesigner: TStringField;
    Table1BDEDesigner2: TStringField;
    Table1BDEDesigner3: TStringField;
    Table1BDEDesigner4: TStringField;
    Table1BDEDesigner5: TStringField;
    Table1XF: TCurrencyField;
    Table1ZF: TCurrencyField;
    Table1KBF: TCurrencyField;
    Table1ZSF: TCurrencyField;
    Table1BF: TCurrencyField;
    Table1KGF: TCurrencyField;
    Table1BXF: TCurrencyField;
    Table1SJF: TCurrencyField;
    Table1JDF: TCurrencyField;
    Table1QTF: TCurrencyField;
    Table1MJF: TCurrencyField;
    Table1BDEDesigner6: TDateField;
    Table1BDEDesigner7: TStringField;
    Table1zfy: TCurrencyField;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure ComboBox3Click(Sender: TObject);
    procedure ComboBox2Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure ComboBox1Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Table1CalcFields(DataSet: TDataSet);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
   str0,str1:string;
  public
    { Public declarations }
  end;

var
  main_xfgl_xftjcx: Tmain_xfgl_xftjcx;

implementation

uses main_xfgl_xxll_jfxxform, printform;

{$R *.DFM}

procedure Tmain_xfgl_xftjcx.BitBtn1Click(Sender: TObject);
var
  str2:string;
begin
  //if edit1.Text='' then
   // begin
   // showmessage('查询条件不完整');
   //  end;
  //   if combobox1.Text='交费日期' then
          str2:=edit1.Text;
    //      else if combobox2.Text='含于' then
      //     str2:='%'+edit1.Text+'%'
        //else
     //      str2:=edit1.Text;
    stringgrid1.Cells[0,stringgrid1.rowcount-1]:=combobox1.Text;
    stringgrid1.Cells[1,stringgrid1.rowcount-1]:=combobox2.Text;
    stringgrid1.Cells[2,stringgrid1.rowcount-1]:=edit1.Text;

    memo1.Lines.Add(str0+str1+''''+str2+'''');
    bitbtn5.Enabled:=true;
    combobox3.enabled:=true;
    bitbtn6.Enabled:=true;
    end;
procedure Tmain_xfgl_xftjcx.FormShow(Sender: TObject);
begin
  stringgrid1.Cells[0,0]:='字段名称';
  stringgrid1.Cells[1,0]:='关系符';
  stringgrid1.Cells[2,0]:='查询值';
  table1.open;
end;

procedure Tmain_xfgl_xftjcx.ComboBox3Click(Sender: TObject);
begin
  stringgrid1.Cells[3,stringgrid1.rowcount-1]:=combobox3.Text;
  stringgrid1.RowCount:=stringgrid1.RowCount+1;
  if combobox3.Text='和' then
    memo1.Text:=memo1.Text+' and '
    else
     memo1.Text:=memo1.Text+' or ';
  combobox3.Enabled:=false;
  edit1.Text:='';
end;

procedure Tmain_xfgl_xftjcx.ComboBox2Click(Sender: TObject);
begin
//if combobox2.Text='含于' then
  // begin
    //if combobox1.Text='交费日期' then
      //     showmessage('此关系符不能适用于此查询字段')
      // else
        //  str1:=' like ';
    // end
   if combobox2.Text='大于' then
       begin
       if (combobox1.Text='学生姓名') or (combobox1.Text='所在系名') or(combobox1.Text='所在年级')
          or (combobox1.Text='所在班级') or (combobox1.Text='经手人') then
            showmessage('此关系符不能适用于此查询字段')
            else
        str1:='>';
        end
      else if combobox2.Text='小于' then
       begin
       if (combobox1.Text='学生姓名') or (combobox1.Text='所在系名') or(combobox1.Text='所在年级')
          or (combobox1.Text='所在班级') or (combobox1.Text='经手人') then
            showmessage('此关系符不能适用于此查询字段')
            else
         str1:='<';
        end
         else if combobox2.Text='小于等于' then
       begin
       if (combobox1.Text='学生姓名') or (combobox1.Text='所在系名') or(combobox1.Text='所在年级')
          or (combobox1.Text='所在班级') or (combobox1.Text='经手人') then
            showmessage('此关系符不能适用于此查询字段')
            else
         str1:='<=';
        end
            else if combobox2.Text='大于等于' then
       begin
       if (combobox1.Text='学生姓名') or (combobox1.Text='所在系名') or(combobox1.Text='所在年级')
          or (combobox1.Text='所在班级') or (combobox1.Text='经手人') then
            showmessage('此关系符不能适用于此查询字段')
            else
         str1:='>=';
        end
      else if combobox2.Text='不等于' then
        str1:='<>'
    else
     str1:='=';
     label3.Enabled:=true;
     edit1.Enabled:=true;
   

end;

procedure Tmain_xfgl_xftjcx.BitBtn6Click(Sender: TObject);
begin
 if (edit1.Text='') or (combobox1.Text='') or (combobox2.Text='') then
   begin
    messagebox(main_xfgl_xftjcx.handle,'条件不正确，请检查所设条件式！','提示',mb_iconerror);
     end
  else
  begin
   table1.Filtered:=false;
   table1.Filter:=memo1.Text;
   table1.Filtered:=true;
  end;
 end;

procedure Tmain_xfgl_xftjcx.BitBtn5Click(Sender: TObject);
begin
   stringgrid1.RowCount:=2;
    stringgrid1.Cells[0,stringgrid1.rowcount-1]:='';
    stringgrid1.Cells[1,stringgrid1.rowcount-1]:='';
    stringgrid1.Cells[2,stringgrid1.rowcount-1]:='';
    stringgrid1.Cells[3,stringgrid1.rowcount-1]:='';
   memo1.Text:='';
   label2.Enabled:=false;
    label3.Enabled:=false;
     combobox2.Enabled:=false;
     edit1.Enabled:=false;
   edit1.Text:='';
   bitbtn5.Enabled:=false;
    bitbtn6.Enabled:=false;
   combobox3.Enabled:=false;
end;

procedure Tmain_xfgl_xftjcx.ComboBox1Click(Sender: TObject);
begin
   if combobox1.Text='学费' then
     str0:='xf'
    else if combobox1.Text='杂费'then
     str0:='zf'
     else if combobox1.Text='班费'then
     str0:='bf'
      else if combobox1.Text='课本费'then
     str0:='kbf'
      else if combobox1.Text='课管费'then
     str0:='kgf'
      else if combobox1.Text='上机费'then
     str0:='sjf'
      else if combobox1.Text='补习费'then
     str0:='bxf'
      else if combobox1.Text='其它费'then
     str0:='qtf'
      else if combobox1.Text='住宿费'then
     str0:='zsf'
      else if combobox1.Text='借读费'then
     str0:='jdf'
      else if combobox1.Text='免交费'then
     str0:='mjf'
    else if combobox1.Text='交费日期'then
    str0:='缴费日期'
         else if combobox1.Text='总费用'then
     str0:='zfy'
     else
     str0:=combobox1.Text;
   label2.Enabled:=true;
   combobox2.Enabled:=true;  
end;

procedure Tmain_xfgl_xftjcx.BitBtn4Click(Sender: TObject);
begin
  close;
end;

procedure Tmain_xfgl_xftjcx.Edit1Change(Sender: TObject);
begin
  if edit1.Text<>'' then
    bitbtn1.Enabled:=true
    else
      bitbtn1.Enabled:=false;
end;

procedure Tmain_xfgl_xftjcx.BitBtn3Click(Sender: TObject);
begin
  table1.Filtered:=false;
  table1.Filter:='学生编号<>'+''''+'99999'+'''';
  table1.Filtered:=true;
end;

procedure Tmain_xfgl_xftjcx.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_xftjcx.BitBtn2Click(Sender: TObject);
begin
  prints.Table1.Filtered:=false;
  prints.Table1.Filter:=table1.Filter;
  prints.table1.Filtered:=true;
  prints.ShowModal;
end;

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

procedure Tmain_xfgl_xftjcx.Table1CalcFields(DataSet: TDataSet);
begin
   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_xftjcx.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
   begin
     key:=#0;
     bitbtn1.SetFocus;
   end;
end;

procedure Tmain_xfgl_xftjcx.BitBtn1KeyPress(Sender: TObject; var Key: Char);
begin
   if key=#13 then
   begin
     key:=#0;
     bitbtn6.SetFocus;
   end;
end;

end.