unit8.~pas

一个小型的职工管理系统希望大家多多指教!基本功能已经实现

unit Unit8;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DBGrids, DB, ADODB, ComCtrls;

type
  TForm8 = class(TForm)
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    GroupBox1: TGroupBox;
    Edit1: TEdit;
    Label1: TLabel;
    Button1: TButton;
    GroupBox2: TGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Edit2: TEdit;
    Edit3: TEdit;
    Button2: TButton;
    Label6: TLabel;
    Edit6: TEdit;
    Button3: TButton;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    Button4: TButton;
    StatusBar1: TStatusBar;
    ADOQuery1jnum: TStringField;
    ADOQuery1jname: TStringField;
    ADOQuery1jsex: TStringField;
    ADOQuery1jxue: TStringField;
    ADOQuery1jzhic: TStringField;
    ADOQuery1jma: TStringField;
    procedure FormActivate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form8: TForm8;

implementation

{$R *.dfm}


procedure TForm8.Button1Click(Sender: TObject);
begin
if edit1.Text='' then
    begin
    application.MessageBox('下面内容不能为空','提示',0+64);
    exit;
    end;
    ADOquery1.SQL.Clear;
    ADOquery1.Close;
    ADOquery1.SQL.Add('select t_jiben.jnum,jname,jsex,jxue,jzhic,jma from t_jiben,t_xueli,t_zhigong,t_home');
    ADOquery1.SQL.Add('where(t_jiben.jnum=t_home.jnum) and (t_jiben.jnum=t_xueli.jnum) and (t_jiben.jnum=t_zhigong.jnum)and(t_jiben.jnum ='''+edit1.Text+''')');
    MessageBox(handle,'查询完毕!','提示',MB_OK or MB_ICONINFORMATION);
    dbgrid1.Font.Color:=clteal;
    ADOquery1.Open;
    edit1.SetFocus;
    edit1.SelectAll;

   if ADOquery1.RecordCount=0 then
    begin
    application.MessageBox('你输入的数据不存在','提示',0+64);
    exit;
    end;

end;

procedure TForm8.FormActivate(Sender: TObject);
var
sqlstr:string;
begin
sqlstr:='select t_jiben.jnum,jname,jsex,jxue,jzhic,jma from t_jiben,t_xueli,t_zhigong,t_home where t_jiben.jnum=t_home.jnum and t_jiben.jnum=t_xueli.jnum and t_jiben.jnum=t_zhigong.jnum;';
ADOquery1.Close;
ADoquery1.SQL.Clear;
ADOquery1.SQL.Add(sqlstr);
ADOquery1.Open;
end;

procedure TForm8.Button2Click(Sender: TObject);
 var
 sql:string;
begin
 if(edit6.Text='')and(edit2.Text='')and(edit3.Text='')and(ComboBox1.Text='')and(ComboBox2.Text='')then
 begin
 application.MessageBox('请输入查询内容','提示',mb_ok);
 exit;
 end

 else
 begin
 sql:='where(t_jiben.jnum=t_home.jnum) and (t_jiben.jnum=t_xueli.jnum) and (t_jiben.jnum=t_zhigong.jnum)and(t_jiben.jnum like '''+'%'+edit6.Text+'%'')and(jname like '''+'%'+edit2.Text+'%'') and (jbron like '''+'%'+edit3.Text+'%'') and (jzhic like '''+'%'+ComboBox2.Text+'%'') and(jma like '''+'%'+ComboBox1.Text+'%'')';
 ADOquery1.SQL.Clear;
 ADOquery1.Close;
 ADOquery1.SQL.Add('select t_jiben.jnum,jname,jsex,jxue,jzhic,jma from t_jiben,t_xueli,t_zhigong,t_home');
 ADOquery1.SQL.Add(sql);
 MessageBox(handle,'查询完毕!','提示',MB_OK or MB_ICONINFORMATION);
 ADoquery1.Open;
 dbgrid1.Font.Color:=clteal;
end;
end;

procedure TForm8.Button3Click(Sender: TObject);
begin
Close;
end;

procedure TForm8.Button4Click(Sender: TObject);
begin
edit1.Text:='' ;
edit2.Text:='' ;
edit3.Text:='' ;
edit6.Text:='' ;
ComboBox1.Text:='';
ComboBox2.Text:='';
end;

end.