main_yggl_tjcxform.pas

校园信息管理系统

unit main_yggl_tjcxform;

interface

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

type
  Tmain_yggl_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;
    DataSource1: TDataSource;
    Query1: TQuery;
    BitBtn3: TBitBtn;
    Query1BDEDesigner: TStringField;
    Query1BDEDesigner2: TStringField;
    Query1BDEDesigner3: TFloatField;
    Query1BDEDesigner4: TStringField;
    Query1BDEDesigner5: TStringField;
    Query1BDEDesigner6: TDateField;
    Query1BDEDesigner7: TStringField;
    Query1BDEDesigner8: TStringField;
    Query1BDEDesigner9: TStringField;
    Query1BDEDesigner10: TStringField;
    Query1BDEDesigner11: TStringField;
    procedure BitBtn1Click(Sender: TObject);
    procedure ComboBox1Click(Sender: TObject);
    procedure ComboBox2Click(Sender: TObject);
    procedure ComboBox3Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    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_yggl_tjcx: Tmain_yggl_tjcx;

implementation

uses main_xfgl_xxll_jfxxform,  main_yggl_zhgl_zgkpform;

{$R *.DFM}

procedure Tmain_yggl_tjcx.BitBtn1Click(Sender: TObject);
var
  str2:string;
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_yggl_tjcx.ComboBox1Click(Sender: TObject);
 begin
   str0:=combobox1.Text;
   label2.Enabled:=true;
   combobox2.Enabled:=true;
end;

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

procedure Tmain_yggl_tjcx.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_yggl_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_yggl_tjcx.Edit1Change(Sender: TObject);
begin
    if edit1.Text<>'' then
    bitbtn1.Enabled:=true
    else
      bitbtn1.Enabled:=false;
end;

procedure Tmain_yggl_tjcx.BitBtn6Click(Sender: TObject);
begin
if (edit1.Text='') or (combobox1.Text='') or (combobox2.Text='') then
   begin
    messagebox(main_yggl_tjcx.handle,'条件不正确，请检查所设条件式！','提示',mb_iconerror);
     end
  else
  begin
    query1.close;
  query1.sql.clear;
  query1.sql.Add('select * from zg where '+memo1.Text);
 if query1.Prepared=false then query1.Prepare;
   begin
    query1.open;
    bitbtn2.Enabled:=true;
  end;
 end;
end;

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

procedure Tmain_yggl_tjcx.BitBtn2Click(Sender: TObject);
begin
//  if delyes.ShowModal=idok then
//  query1.close;
 // query1.sql.clear;
  //query1.sql.Add('delete from fyb where '+memo1.Text);
 // query1.ExecSQL;
  //bitbtn2.Enabled:=false;

end;

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

procedure Tmain_yggl_tjcx.DBGrid1DblClick(Sender: TObject);
begin
      main_yggl_zhgl_zgkp.table1.open;
      main_yggl_zhgl_zgkp.table1.IndexFieldNames:='职工编号';
      main_yggl_zhgl_zgkp.table1.SetKey;
      main_yggl_zhgl_zgkp.table1.FieldByName('职工编号').value:=dbgrid1.Fields[0].value;
      main_yggl_zhgl_zgkp.table1.GotoKey;
      main_yggl_zhgl_zgkp.ShowModal;
end;

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

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

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

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

end.