cessunit.pas

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

unit cessunit;

interface

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

type
  Tcessform = class(TForm)
    Bevel1: TBevel;
    xpButton1: TxpButton;
    DBGrid1: TDBGrid;
    xpButton2: TxpButton;
    xpButton3: TxpButton;
    procedure FormPaint(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
    procedure xpButton1Click(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure xpButton3Click(Sender: TObject);
    procedure xpButton2Click(Sender: TObject);
  private
    selstring:string;
    procedure refreshlist;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  cessform: Tcessform;

implementation
uses sldata,shareunit, cessadd,cessedit;
{$R *.DFM}

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

procedure Tcessform.refreshlist;
var msg:string;
begin
with tstringlist.create do
  try
  add(makeparams('operid',inttostr(Query_cess)));
  add(makeparams('funid',inttostr(public_list)));
  msg:=text;
  finally
  free;
  end;
sl_data.querys.data:=sl_data.querys.DataRequest(msg);
end;

procedure Tcessform.FormShow(Sender: TObject);
begin
refreshlist;
end;

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

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

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

procedure Tcessform.xpButton3Click(Sender: TObject);
var msg:string;
begin
if selstring<>'' then
  begin
  with tstringlist.create do
    try
    add(makeparams('tuid',selstring));
    msg:=text;
    finally
    free;
    end;
  if sl_data.cess_model(public_del,msg) then
     begin
     showmessage('记录删除成功!');
     refreshlist;
     end;
  end;
end;

procedure Tcessform.xpButton2Click(Sender: TObject);
begin
with tcess_edit.create(nil) do
  try
  showmodal;
  finally
  free;
  end;
refreshlist;
end;

end.