eventunit.pas

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

unit eventunit;

interface

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

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

var
  event: Tevent;

implementation
uses sldata,shareunit, eventadd, eventedit, viewforms;
{$R *.DFM}

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

procedure Tevent.FormShow(Sender: TObject);
begin
combobox1.itemindex:=0;
edit1.text:='';
refreshlist;
end;

procedure Tevent.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_event)));
  add(makeparams('funid',inttostr(public_list)));
  add(makeparams('tuid',tuid));
  add(makeparams('tname',tname));
  add(makeparams('tdept',tdept));
  add(makeparams('twork',twork));
  msg:=text;
  finally
  free;
  end;
with sl_data.querys do
  data:=datarequest(msg);
sl_data.autosizedbgrid(dbgrid1);
end;


procedure Tevent.DBGrid1CellClick(Column: TColumn);
begin
jstring:=dbgrid1.Fields[0].AsString;
end;

procedure Tevent.xpButton3Click(Sender: TObject);
var msg:string;
begin
if jstring<>'' then
if messagebox(handle,pchar('是否要删除序号为'+jstring+'的记录'),pchar('提醒'),1)=1 then
   begin
   with tstringlist.create do
     try
     add(makeparams('tautoid',jstring));
     msg:=text;
     finally
     free;
     end;
   if sl_data.event_model(public_del,msg) then
      begin
      showmessage('记录删除成功!');
      refreshlist;
      end;
   end;
end;

procedure Tevent.xpButton2Click(Sender: TObject);
begin
if jstring<>'' then
 with tevent_edit.create(nil) do
   try
   selstring:=jstring;
   showmodal;
   finally
   free;
   end;
refreshlist;
end;

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

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

procedure Tevent.xpButton4Click(Sender: TObject);
begin
refreshlist;
end;

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

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

procedure Tevent.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 Tevent.xpButton5Click(Sender: TObject);
begin
if messagebox(handle,pchar('确定要清除所有单次提醒到期并超过提醒天数的记录!'),pchar('提示'),1)=1 then
 if sl_data.event_model(public_clear_temp,'') then
    begin
    showmessage('记录清除成功!');
    refreshlist;
    end;
end;

end.