main_xjgl_tjcxform.~pas

校园综合管理系统源码 校园综合管理系统源码

unit main_xjgl_tjcxform;

interface

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

type
  Tmain_xjgl_tjcx = class(TForm)
    DBGrid1: TDBGrid;
    Panel1: TPanel;
    Label4: TLabel;
    GroupBox2: TGroupBox;
    Memo1: TMemo;
    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;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    DataSource1: TDataSource;
    Query1: TQuery;
    Query1BDEDesigner: TStringField;
    Query1BDEDesigner2: TStringField;
    Query1BDEDesigner3: TStringField;
    Query1BDEDesigner4: TStringField;
    Query1BDEDesigner5: TStringField;
    Query1BDEDesigner6: TStringField;
    Query1BDEDesigner7: TStringField;
    Query1BDEDesigner8: TStringField;
    Query1BDEDesigner9: TStringField;
    Query1BDEDesigner10: TStringField;
    Query1BDEDesigner11: TStringField;
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure ComboBox1Click(Sender: TObject);
    procedure ComboBox2Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn1KeyPress(Sender: TObject; var Key: Char);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure DBGrid1DblClick(Sender: TObject);
  private
    { Private declarations }
    str0,str1,str2:string;
  public
    { Public declarations }
  end;

var
  main_xjgl_tjcx: Tmain_xjgl_tjcx;

implementation

uses xjprintform, main_xfgl_xxll_xjkpform, main_xjgl_bbdyform;

{$R *.DFM}

procedure Tmain_xjgl_tjcx.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_xjgl_tjcx.BitBtn1Click(Sender: TObject);
begin

    stringgrid1.Cells[0,stringgrid1.rowcount-1]:=combobox1.Text;
    stringgrid1.Cells[1,stringgrid1.rowcount-1]:=combobox2.Text;
    stringgrid1.Cells[2,stringgrid1.rowcount-1]:=edit1.Text;
    if combobox2.Text='前含于' then
       str2:=edit1.Text+'%'
      else if combobox2.Text='后含于' then
       str2:='%'+edit1.Text
       else if combobox2.Text='含于' then
         str2:='%'+edit1.Text+'%'
         else
           str2:=edit1.Text;
    memo1.Lines.Add(str0+str1+''''+str2+'''');
    bitbtn5.Enabled:=true;
    combobox3.enabled:=true;
    bitbtn6.Enabled:=true;
end;

procedure Tmain_xjgl_tjcx.ComboBox1Click(Sender: TObject);
begin
  str0:=combobox1.Text;
  label2.Enabled:=true;
  combobox2.Enabled:=true;
end;

procedure Tmain_xjgl_tjcx.ComboBox2Click(Sender: TObject);
begin
  if combobox2.Text='不等于' then
    str1:='<>'
    else if combobox2.Text='等于' then
    str1:='='
    else
     str1:=' like ';
  edit1.Enabled:=true;
  label3.Enabled:=true;
end;

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

end;

procedure Tmain_xjgl_tjcx.BitBtn6Click(Sender: TObject);
begin
  query1.close;
  query1.sql.Clear;
  query1.sql.Add('select * from xj where '+memo1.Text);
  if query1.Prepared=false then query1.Prepare;
  query1.open;

end;

procedure Tmain_xjgl_tjcx.BitBtn3Click(Sender: TObject);
begin
 query1.close;
  query1.sql.Clear;
  query1.sql.Add('select * from xj');
  if query1.Prepared=false then query1.Prepare;
  query1.open;
end;

procedure Tmain_xjgl_tjcx.BitBtn2Click(Sender: TObject);
begin
 // query1.close;
   main_xjgl_bbdy.Query1.close;
   main_xjgl_bbdy.Query2.close;
   main_xjgl_bbdy.query1.sql.Clear;
   main_xjgl_bbdy.query1.sql.Clear;
   main_xjgl_bbdy.Query1.sql:=query1.SQL;
   main_xjgl_bbdy.Query2.sql:=query1.SQL;
   main_xjgl_bbdy.query1.open;
   main_xjgl_bbdy.query2.open;
   main_xjgl_bbdy.ShowModal;
end;

procedure Tmain_xjgl_tjcx.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
   if key=#13 then
   begin
     key:=#0;
     bitbtn1.SetFocus;
   end;
end;

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

procedure Tmain_xjgl_tjcx.FormShow(Sender: TObject);
begin
  query1.open;
end;

procedure Tmain_xjgl_tjcx.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  query1.close;
end;

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

end.