modify.~pas

该源码采用DELPHI语言,主要实现了对员工信息管理的功能.

unit Modify;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, ExtDlgs, StdCtrls, DBCtrls, ComCtrls, Buttons;

type
  TForm7 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    GroupBox8: TGroupBox;
    Label1: TLabel;
    Edit1: TEdit;
    BitBtn3: TBitBtn;
    Edit2: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    ComboBox1: TComboBox;
    Edit3: TEdit;
    Label4: TLabel;
    Label5: TLabel;
    ComboBox2: TComboBox;
    Label6: TLabel;
    Label7: TLabel;
    Edit4: TEdit;
    Label9: TLabel;
    Edit5: TEdit;
    Label8: TLabel;
    Memo1: TMemo;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    Button1: TButton;
    DataSource1: TDataSource;
    ADOConnection2: TADOConnection;
    ADOQuery2: TADOQuery;
    DateTimePicker1: TDateTimePicker;
    Label10: TLabel;
    Edit6: TEdit;
    procedure BitBtn3Click(Sender: TObject);
   // procedure BitBtn21Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    //procedure BitBtn12Click(Sender: TObject);
   // procedure BitBtn10Click(Sender: TObject);
   // procedure BitBtn11Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure PageControl1Change(Sender: TObject);
    //procedure Label10Click(Sender: TObject);
    //procedure Edit6Change(Sender: TObject);
   // procedure DBImage1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form7: TForm7;

implementation

{$R *.dfm}

procedure TForm7.BitBtn3Click(Sender: TObject);
var
dt : string;
begin
with ADOQuery1 do
  begin
  SQL.Clear;
  SQL.Add('select 员工号 as a1, 姓名 as a2, 性别 as a3, 民族 as a4,政治面貌 as a5,出生日期 ,籍贯 as a7,部门 as a8, 备注 as a9,电话 as a10 from 员工 where 员工号 =:s0 ');
  Parameters.ParamByName('s0').value := Edit1.Text;    //根据员工号查询信息
  Open;
  if ADOQuery1.Eof then
     begin
       showmessage('不存在该员工,请核对信息!');
       Edit1.Text:='';
       Exit;
     end
     else
     begin
     if FieldByName('a1').Value <>null then
     Edit1.Text :=fieldbyname('a1').Value;
     if FieldByName('a2').Value <>null then
     Edit2.Text :=fieldbyname('a2').Value;
     if FieldByName('a3').Value <>null then
     ComboBox1.Text :=fieldbyname('a3').Value;
     if FieldByName('a4').Value <>null then
     Edit3.Text :=fieldbyname('a4').Value;
     if FieldByName('a5').Value <>null then
     ComboBox2.Text :=fieldbyname('a5').Value;
     if FieldByName('a7').Value <>null then
     Edit4.Text :=fieldbyname('a7').Value;
     if FieldByName('a8').Value <>null then
     Edit5.Text :=fieldbyname('a8').Value;
    // if FieldByName('a9').Value <>null then
    // Edit6.Text :=fieldbyname('a9').Value;
     if FieldByName('a9').Value <>null then
     Memo1.Text :=fieldbyname('a9').Value;
      if FieldByName('a10').Value <>null then
     Edit6.Text :=fieldbyname('a10').Value;
     dt:=FieldByName('出生日期').AsString;
     Datetimepicker1.Date:=strtodate(dt);
     end;
     end;
end;


procedure TForm7.BitBtn1Click(Sender: TObject);
var
date:string;
//picture1 : tpicture;
begin
date:=datetostr(datetimepicker1.Date);  //将时间类型转化为字符型
with ADOquery1 do
begin
   
   Close;
   SQL.Clear;
   SQL.Add('delete from 员工 where 员工号='''+Edit1.Text+'''');
   ADOquery1.ExecSQL;
   Close;
   SQL.Clear;
   SQL.Add('select * from 员工');
   Open;
   Insert;
   FieldByName('员工号').AsString:=Edit1.Text;
   FieldByName('姓名').AsString:=Edit2.Text;
   FieldByName('性别').AsString:=ComboBox1.Text;
   FieldByName('民族').AsString:=Edit3.Text;
   FieldByName('政治面貌').AsString:=ComboBox2.Text;
   FieldByName('出生日期').AsString:=date;
   FieldByName('籍贯').AsString:=Edit4.Text;
   FieldByName('部门').AsString:=Edit5.Text;
   FieldByName('电话').AsString:=Edit6.Text;
   FieldByName('备注').AsString:=Memo1.Text;
   //FieldByName('照片').Assign(picture1);
   Post;
   showmessage('成功修改员工信息！');
end;
end;

procedure TForm7.BitBtn2Click(Sender: TObject);
begin
if messagedlg('要删除该员工信息吗？',mtconfirmation,[mbYes,mbNo],0)=mryes then
begin
with ADOquery1 do
begin
SQL.Clear;
SQL.Add('delete from 员工 where 员工号='''+Edit1.Text+'''');
ADOquery1.ExecSQL;
showmessage('成功删除该员工信息!');
Edit2.Text:='';
ComboBox1.Text:='';
Edit3.Text:='';
ComboBox2.Text:='';
 //DateTimePicker1:='';
Edit4.Text:='';
Edit5.Text:='';
//Edit6.Text:='';
Memo1.Text:='';
SQL.Clear;

SQL.Clear;
SQL.Add('delete from 信息反馈 where 员工号='''+Edit1.Text+'''');

ADOquery1.ExecSQL;
Edit1.Text:='';
Close;
end;
end;
end;




procedure TForm7.Button1Click(Sender: TObject);
begin
Close;
end;

procedure TForm7.FormCreate(Sender: TObject);
begin
Memo1.Text := '';
//Memo3.Text := '';
end;



procedure TForm7.PageControl1Change(Sender: TObject);
begin

end;

{procedure TForm7.Label10Click(Sender: TObject);
begin

end;}

{procedure TForm7.Edit6Change(Sender: TObject);
begin

end;}

end.