personnels.pas

三層源碼,DELPHI寫的三層源碼,三層源碼,

unit personnels;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, Grids, DBGrids, xpButton, StdCtrls,db, ComCtrls;

type
  Tpersonnel = class(TForm)
    Bevel1: TBevel;
    DBGrid1: TDBGrid;
    xpButton1: TxpButton;
    xpButton2: TxpButton;
    xpButton3: TxpButton;
    ComboBox1: TComboBox;
    Edit1: TEdit;
    xpButton4: TxpButton;
    xpButton6: TxpButton;
    xpButton5: TxpButton;
    procedure FormPaint(Sender: TObject);
    procedure xpButton1Click(Sender: TObject);
    procedure xpButton2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure xpButton3Click(Sender: TObject);
    procedure Edit1KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure xpButton4Click(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure FormCanResize(Sender: TObject; var NewWidth,
      NewHeight: Integer; var Resize: Boolean);
    procedure xpButton6Click(Sender: TObject);
    procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
    procedure DBGrid1DblClick(Sender: TObject);
  private
    lstring:string;
    procedure refreshlist;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  personnel: Tpersonnel;

implementation
uses sldata,shareunit,personnelnew,personneledit, peopleprint,
  seldate, viewforms;
{$R *.DFM}

procedure Tpersonnel.FormPaint(Sender: TObject);
begin
sl_data.formonpaint(self);
end;

procedure Tpersonnel.xpButton1Click(Sender: TObject);
begin
with Tpersonnel_new.create(nil) do
  try
  showmodal;
  finally
  free;
  end;
refreshlist;
end;

procedure Tpersonnel.xpButton2Click(Sender: TObject);
begin
dbgrid1.DataSource:=nil;
with Tpersonnel_edit.create(nil) do
   try
   showmodal;
   finally
   free;
   end;
dbgrid1.DataSource:=sl_data.DataSource1;
refreshlist;
end;

procedure Tpersonnel.refreshlist;
var msg,tuid,tname,tdept,twork:String;
begin
tuid:='%';tname:='%';tdept:='%';twork:='%';
if edit1.text<>'' then
   begin
   if combobox1.itemindex=0 then tuid:=replacesqlstr(edit1.text);
   if combobox1.itemindex=1 then tname:=replacesqlstr(edit1.text);
   if combobox1.itemindex=2 then tdept:=replacesqlstr(edit1.text);
   if combobox1.itemindex=3 then twork:=replacesqlstr(edit1.text);
   end;
with tstringlist.create do
  try
  add(makeparams('operid',inttostr(Query_Parchives)));
  add(makeparams('funid',inttostr(public_list_ex02)));
  add(makeparams('tuid',tuid));
  add(makeparams('tname',tname));
  add(makeparams('tdept',tdept));
  add(makeparams('twork',twork));
  msg:=text;
  finally
  free;
  end;
sl_data.querys.data:=sl_data.querys.DataRequest(msg);
sl_data.autosizedbgrid(dbgrid1);
end;

procedure Tpersonnel.FormShow(Sender: TObject);
begin
combobox1.itemindex:=0;
refreshlist;
end;

procedure Tpersonnel.xpButton3Click(Sender: TObject);
var msg:string;
begin
if lstring<>'' then
if messagebox(handle,pchar('是否真的要删除工号为:'+lstring+'的员工'),pchar('提示'),1)=1 then
   begin
   with tstringlist.create do
      try
      add(makeparams('tuid',lstring));
      msg:=text;
      finally
      free;
      end;
   if sl_data.Parchives_model(public_del,msg) then
      begin
      showmessage('记录删除成功!');
      refreshlist;
      end;
   end;
end;

procedure Tpersonnel.Edit1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=13 then refreshlist;
end;

procedure Tpersonnel.DBGrid1CellClick(Column: TColumn);
begin
lstring:=dbgrid1.fields[0].asstring;
end;

procedure Tpersonnel.xpButton4Click(Sender: TObject);
begin
refreshlist;
dbgrid1.DataSource:=nil;
if sl_data.querys.active then
if sl_data.querys.RecordCount>0 then
  begin
  with tpeople_print.create(self) do
    try
    QuickRep1.ReportTitle:='员工档案总表';
    sl_data.setprint(QuickRep1,false);
    finally
    free;
    end;
  end;
dbgrid1.DataSource:=sl_data.DataSource1;
end;

procedure Tpersonnel.FormResize(Sender: TObject);
begin
bevel1.Width:=width-22;
bevel1.Height:=height-42;
dbgrid1.Width:=width-40;
dbgrid1.height:=height-120;
end;

procedure Tpersonnel.FormCanResize(Sender: TObject; var NewWidth,
  NewHeight: Integer; var Resize: Boolean);
begin
if NewHeight<370 then NewHeight:=370;
if newwidth<610 then newwidth:=610;
end;

procedure Tpersonnel.xpButton6Click(Sender: TObject);
begin
refreshlist;
end;

procedure Tpersonnel.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
with column.Title do
 Caption:=getfieldtobgname(Query_Parchives,Caption);
end;

procedure Tpersonnel.DBGrid1DblClick(Sender: TObject);
begin
with tviewform.create(nil) do
  try
  operid:=Query_Parchives;
  showmodal;
  finally
  free;
  end;
end;

end.