bormmain.pas

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

unit bormmain;

interface

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

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

var
  borm_main: Tborm_main;

implementation
uses sldata,shareunit, bromadd, bromedit, bromprint;
{$R *.DFM}

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

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

procedure tborm_main.refreshlist;
var msg,tuid,tsort,tlocus:string;
begin
tuid:='%';tsort:='%';tlocus:='%';
if edit1.text<>'' then
if combobox1.itemindex=0 then tuid:=replaceSQLstr(edit1.text);
if combobox1.itemindex=1 then tsort:=replaceSQLstr(edit1.text);
if combobox1.itemindex=2 then tlocus:=replaceSQLstr(edit1.text);
with tstringlist.create do
  try
  add(makeparams('operid',inttostr(Query_dormitory)));
  add(makeparams('funid',inttostr(public_list)));
  add(makeparams('tuid',tuid));
  add(makeparams('tsort',tsort));
  add(makeparams('tlocus',tlocus));
  msg:=text;
  finally
  free;
  end;
sl_data.querys.data:=sl_data.querys.datarequest(msg);
sl_data.autosizedbgrid(dbgrid1);
end;

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

procedure Tborm_main.FormShow(Sender: TObject);
begin
combobox1.ItemIndex:=0;
refreshlist;
end;

procedure Tborm_main.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.dormitory_model(public_del,msg) then refreshlist;
   end;
end;

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

procedure Tborm_main.xpButton2Click(Sender: TObject);
begin
if lstring<>'' then
 begin
 dbgrid1.DataSource:=nil;
  with tbrom_edit.create(nil) do
    try
    sel_string:=lstring;
    showmodal;
    finally
    free;
    end;
  dbgrid1.DataSource:=sl_data.DataSource1;
  refreshlist;
  end;
end;

procedure Tborm_main.xpButton4Click(Sender: TObject);
begin
dbgrid1.DataSource:=nil;
if sl_data.querys.active then
if sl_data.querys.RecordCount>0 then
  with tbrom_print.create(self) do
    try
    QuickRep1.ReportTitle:='宿舍记录';
    sl_data.setprint(QuickRep1,false);
    finally
    free;
    end;
dbgrid1.DataSource:=sl_data.DataSource1;
end;

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

procedure Tborm_main.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 Tborm_main.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
with column.Title do
 Caption:=getfieldtobgname(Query_dormitory,Caption);
end;

end.