dimissionnew.pas

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

unit dimissionnew;

interface

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

type
  Tdimission_new = class(TForm)
    Bevel1: TBevel;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    date1: TDateTimePicker;
    xpButton2: TxpButton;
    xpButton3: TxpButton;
    Label5: TLabel;
    Edit4: TEdit;
    procedure FormPaint(Sender: TObject);
    procedure xpButton2Click(Sender: TObject);
    procedure xpButton3Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit1Exit(Sender: TObject);
    procedure Edit4KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    procedure clearedit;
    function checkinput:boolean;
    procedure showinfo;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dimission_new: Tdimission_new;

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

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

procedure Tdimission_new.clearedit;
begin
edit1.text:='';
edit2.text:='';
edit3.text:='';
edit4.text:='-';
date1.date:=date;
edit1.setfocus;
end;

procedure Tdimission_new.showinfo;
var msg:string;
begin
if edit1.text<>'' then
  begin
  with tstringlist.create do
    try
    add(makeparams('operid',inttostr(Query_Parchives)));
    add(makeparams('funid',inttostr(public_infor)));
    add(makeparams('tuid',edit1.text));
    msg:=text;
    finally
    free;
    end;
  sl_data.querysinfo.data:=sl_data.querysinfo.DataRequest(msg);
  if sl_data.querysinfo.RecordCount=1 then
     begin
     edit2.text:=sl_data.querysinfo['name'];
     edit3.text:=sl_data.querysinfo['dept'];
     end;
  end;
end;

function Tdimission_new.checkinput:boolean;
begin
result:=false;
if (edit1.text<>'')and(edit2.text<>'')and
   (edit4.text<>'') then result:=true;
end;

procedure Tdimission_new.xpButton2Click(Sender: TObject);
var msg:string;
begin
if checkinput then
  begin
  with tstringlist.create do
    try
    add(makeparams('tuid',edit1.text));
    add(makeparams('tmemo',edit4.text));
    add(makeparams('tdate',datetostr(date1.date)));
    msg:=text;
    finally
    free;
    end;
  if sl_data.Parchives_model(public_add_temp,msg) then
     begin
     showmessage('添加成功!');
     clearedit;
     end;
  end;
end;

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

procedure Tdimission_new.FormShow(Sender: TObject);
begin
clearedit;
end;

procedure Tdimission_new.Edit1KeyPress(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 Tdimission_new.Edit1Exit(Sender: TObject);
begin
showinfo;
end;

procedure Tdimission_new.Edit4KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=13 then xpbutton2.onClick(nil);
end;

end.