unit13.pas

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

unit Unit13;

interface

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

type
  TForm13 = class(TForm)
    DBGrid1: TDBGrid;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    ADOQuery1: TADOQuery;
    ADOConnection1: TADOConnection;
    DataSource1: TDataSource;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form13: TForm13;

implementation

uses Unit12;

{$R *.dfm}
procedure Tform13.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action:=cafree;
end;

procedure Tform13.Button1Click(Sender: TObject);
begin
with   ADOQuery1 do
begin
repeat
   form12.ShowModal;
   if form12.b=false then exit;
   ADOConnection1.Execute('insert into tixing (每日提醒,提醒日期) values('''+form12.s1+''','''+form12.s2+''')');

     SQL.Clear ;
     SQL.Add ('select * from tixing');
      Open ;
      Last ;




   until messagebox(self.Handle ,'您是否还要添加？','标题',MB_YESNO or MB_ICONASTERISK)<> IDYES;
end;
end;

procedure Tform13.Button2Click(Sender: TObject);
var
  x1:string;
  begin
  with ADOQuery1 do
  begin
  x1:= dbgrid1.SelectedField.Value ;
  sql.Clear;
  SQL.Add ('select * from tixing where 提醒日期='''+x1+'''');
  Open;
  if RecordCount<>0 then
  begin
     form12.ShowModal;
   if form12.b=false then exit;
   ADOConnection1.Execute('update tixing set 提醒日期='''+form12.s1+''',每日提醒='''+form12.s2+''' where 提醒日期='''+x1+''' ');
  end;
  SQL.Clear ;
  SQL.Add ('select * from tixing');
  Open ;
end;
end;

procedure Tform13.Button3Click(Sender: TObject);
var
   x1:string;
begin
  with ADOQuery1 do
  begin
  x1:= dbgrid1.SelectedField.Value ;
  sql.Clear;
  SQL.Add ('select * from tixing where 提醒日期='''+x1+'''');
  Open;
  if RecordCount<>0 then

      ADOConnection1.Execute('delete from tixing  where 提醒日期='''+x1+''' ');
     SQL.Clear ;
     SQL.Add ('select * from tixing');
      Open ;
end;
       end;
procedure Tform13.Button4Click(Sender: TObject);
begin
    close;
end;

procedure TForm13.FormCreate(Sender: TObject);
begin
adoquery1.Active:=true; 
end;

end.