unit6.~pas

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

unit Unit6;

interface

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

type
  TForm6 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    DBGrid1: TDBGrid;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    DataSource1: TDataSource;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    ComboBox3: TComboBox;
    ComboBox4: TComboBox;
    StatusBar1: TStatusBar;
    Button5: TButton;
    ADOQuery1jnum: TStringField;
    ADOQuery1jname: TStringField;
    ADOQuery1jsex: TStringField;
    ADOQuery1jxue: TStringField;
    ADOQuery1jzhic: TStringField;
    ADOQuery1jma: TStringField;
    procedure FormCreate(Sender: TObject);
    procedure ADOQuery1AfterScroll(DataSet: TDataSet);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form6: TForm6;

implementation

{$R *.dfm}

 

procedure TForm6.FormCreate(Sender: TObject);

begin
     ADOQuery1.Close;
     ADOQuery1.SQL.Clear;
     ADOQuery1.Active:=false;
     ADOQuery1.SQL.Add('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.Prepared;
     ADOQuery1.Active:=true;


end;

procedure TForm6.ADOQuery1AfterScroll(DataSet: TDataSet);
begin
edit1.Text:=ADOquery1.FieldValues['jnum'];
edit2.Text:=ADOquery1.FieldValues['jname'];
//edit3.Text:=ADOquery1.FieldValues['jsex'];
ComboBox1.Text:=ADOquery1.FieldValues['jsex'];
ComboBox2.Text:=ADOquery1.FieldValues['jxue'];
//edit4.Text:=ADOquery1.FieldValues['jxue'];
//edit5.Text:=ADOquery1.FieldValues['jzhic'];
ComboBox3.Text:=ADOquery1.FieldValues['jzhic'];
//edit6.Text:=ADOquery1.FieldValues['jma'];
ComboBox4.Text:=ADOquery1.FieldValues['jma'];
end;

procedure TForm6.Button1Click(Sender: TObject);

begin
   ADOquery1.Edit;
   ADOquery1.FieldValues['jnum']:=edit1.Text;
   ADOquery1.FieldValues['jname']:=edit2.Text;
   ADOquery1.FieldValues['jsex']:=ComboBox1.Text;
   ADOquery1.FieldValues['jxue']:=ComboBox2.Text;
   ADOquery1.FieldValues['jzhic']:=ComboBox3.Text;
   ADOquery1.FieldValues['jma']:=ComboBox4.Text;
   ADoquery1.Post;
   application.MessageBox('信息已经修改完成！','修改提示',mb_ok);
 end;


procedure TForm6.Button2Click(Sender: TObject);
var
i:integer;
begin
 i:=application.MessageBox('你确定要删除吗？','删除提示',mb_YesNO);
 if i=6 then
   begin
      if  not ADOquery1.Eof then
       ADOquery1.Delete;
   end;


end;

procedure TForm6.Button3Click(Sender: TObject);
begin
dbgrid1.Refresh;
dbgrid1.Font.Color:=clgreen;
end;



procedure TForm6.Button4Click(Sender: TObject);
begin
form6.close;
end;

procedure TForm6.Button5Click(Sender: TObject);

 var
 sql:string;
begin
 if(edit1.Text='')and(edit1.Text='')and(ComboBox3.Text='')and(ComboBox1.Text='')and(ComboBox2.Text='')and(ComboBox4.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 '''+'%'+edit1.Text+'%'')and(jname like '''+'%'+edit2.Text+'%'')and (jsex like '''+'%'+ComboBox1.Text+'%'')and (jxue like '''+'%'+ComboBox2.Text+'%'') and (jzhic like '''+'%'+ComboBox3.Text+'%'') and(jma like '''+'%'+ComboBox4.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;


end.