bromedit.pas

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

unit bromedit;

interface

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

type
  Tbrom_edit = class(TForm)
    Bevel1: TBevel;
    xpButton1: TxpButton;
    xpButton3: TxpButton;
    Label1: TLabel;
    Edit1: TEdit;
    Edit4: TEdit;
    ComboBox1: TComboBox;
    Edit3: TEdit;
    Label3: TLabel;
    Edit8: TEdit;
    Edit7: TEdit;
    Edit10: TEdit;
    Label7: TLabel;
    Edit6: TEdit;
    Edit9: TEdit;
    Label4: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    DBGrid1: TDBGrid;
    xpButton4: TxpButton;
    xpButton5: TxpButton;
    xpButton6: TxpButton;
    Label2: TLabel;
    Label6: TLabel;
    Label8: TLabel;
    Label11: TLabel;
    Edit2: TEdit;
    Label12: TLabel;
    Edit11: TEdit;
    procedure FormPaint(Sender: TObject);
    procedure xpButton3Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure xpButton1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure xpButton5Click(Sender: TObject);
    procedure xpButton6Click(Sender: TObject);
    procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
    procedure xpButton4Click(Sender: TObject);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
    procedure Edit11KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit4KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    pstring:string;
    procedure clearedit;
    procedure deltempdata;
    procedure refreshlist;
    procedure rebuildtempdate;
    function checkinput:boolean;
    { Private declarations }
  public
   sel_string:string;
    { Public declarations }
  end;

var
  brom_edit: Tbrom_edit;

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

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

procedure Tbrom_edit.xpButton3Click(Sender: TObject);
begin
close;
end;

procedure Tbrom_edit.deltempdata;
begin
sl_data.dormitory_model(public_clear_temp,'');
end;

procedure tbrom_edit.rebuildtempdate;
var msg:string;
begin
edit1.text:=sel_string;
with tstringlist.create do
  try
  add(makeparams('tuid',sel_string));
  msg:=text;
  finally
  free;
  end;
if sl_data.dormitory_model(public_rebuild,msg) then
   begin
   with tstringlist.create do
     try
     add(makeparams('operid',inttostr(Query_dormitory)));
     add(makeparams('funid',inttostr(public_infor)));
     add(makeparams('tuid',sel_string));
     msg:=text;
     finally
     free;
     end;
   sl_data.querysinfo.data:=sl_data.querysinfo.datarequest(msg);
   if sl_data.querysinfo.recordcount=1 then
      begin
      edit3.text:=sl_data.querysinfo['locus'];
      edit4.text:=sl_data.querysinfo['bunk_total'];
      edit6.text:=sl_data.querysinfo['bunk'];
      edit7.text:=sl_data.querysinfo['bureau'];
      edit8.text:=sl_data.querysinfo['desk'];
      edit9.text:=sl_data.querysinfo['fan'];
      edit10.text:=sl_data.querysinfo['remark'];
      combobox1.itemindex:=combobox1.items.indexof(sl_data.querysinfo['sort']);
      end;
   end;
end;

procedure tbrom_edit.clearedit;
begin
edit1.text:='';
combobox1.ItemIndex:=0;
edit2.text:='';
edit3.text:='-';
edit4.text:='0';
edit6.text:='0';
edit7.text:='0';
edit8.text:='0';
edit9.text:='0';
edit10.text:='-';
edit11.text:='';
end;

procedure Tbrom_edit.refreshlist;
var msg:string;
begin
with tstringlist.create do
  try
  add(makeparams('operid',inttostr(Query_dormitory)));
  add(makeparams('funid',inttostr(public_list_temp)));
  msg:=text;
  finally
  free;
  end;
sl_data.querys.data:=sl_data.querys.datarequest(msg);
sl_data.autosizedbgrid(dbgrid1);
end;

function Tbrom_edit.checkinput:boolean;
var x:string;
begin
x:='00000000';
if edit1.text<>'' then x[1]:='1';
if edit3.text<>'' then x[2]:='1';
if edit4.text<>'' then x[3]:='1';
if edit6.text<>'' then x[4]:='1';
if edit7.text<>'' then x[5]:='1';
if edit8.text<>'' then x[6]:='1';
if edit9.text<>'' then x[7]:='1';
if edit10.text<>'' then x[8]:='1';
 result:=x='11111111';
end;

procedure Tbrom_edit.FormShow(Sender: TObject);
begin
clearedit;
deltempdata;
rebuildtempdate;
refreshlist;
end;

procedure Tbrom_edit.xpButton1Click(Sender: TObject);
var msg:string;
begin
if checkinput then
  begin
  with tstringlist.create do
    try
    add(makeparams('tuid',edit1.text));
    add(makeparams('tsort',combobox1.text));
    add(makeparams('tlocus',edit3.text));
    add(makeparams('tsumqt',edit4.text));
    add(makeparams('tbunk',edit6.text));
    add(makeparams('tbureau',edit7.text));
    add(makeparams('tdesk',edit8.text));
    add(makeparams('tfan',edit9.text));
    add(makeparams('tmemo',edit10.text));
    msg:=text;
    finally
    free;
    end;
  if sl_data.dormitory_model(public_modify,msg) then
     begin
     showmessage('记录修改成功!');
     close;
     end;
  end else showmessage('请填写完整信息再提交!');
end;

procedure Tbrom_edit.FormClose(Sender: TObject; var Action: TCloseAction);
begin
deltempdata;
end;

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

procedure Tbrom_edit.xpButton5Click(Sender: TObject);
var msg:string;
begin
if pstring<>'' then
  begin
  with tstringlist.create do
    try
    add(makeparams('tuid',pstring));
    msg:=text;
    finally
    free;
    end;
  sl_data.dormitory_model(public_del_temp,msg);
  refreshlist;
  end;
end;

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

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

procedure Tbrom_edit.xpButton4Click(Sender: TObject);
var msg:string;
begin
if (edit2.text<>'')and(edit11.text<>'') then
    begin
    with tstringlist.create do
      try
      add(makeparams('tuid',edit2.text));
      add(makeparams('tuid1',edit11.text));
      msg:=text;
      finally
      free;
      end;
    if sl_data.dormitory_model(public_add_temp,msg) then
       begin
       edit2.text:='';
       edit11.text:='';
       edit2.setfocus;
       refreshlist;
       end;
    end;
end;

procedure Tbrom_edit.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
If Key = #13 Then
  Begin
  If HiWord(GetKeyState(VK_SHIFT)) <> 0 then
     SelectNext(Sender as TWinControl,False,True)
  else
   SelectNext(Sender as TWinControl,True,True);
   Key := #0
  end;
end;

procedure Tbrom_edit.Edit11KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=13 then xpbutton4.onClick(nil);
end;

procedure Tbrom_edit.Edit4KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if not ((key in[96..105])or(key in[48..57])or(key in[8,13,110,190])) then
   begin
   showmessage('不是有效的字符.请重新输入.');
   tedit(sender).Clear;
   end;
end;

end.