cessedit.pas

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

unit cessedit;

interface

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

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

var
  cess_edit: Tcess_edit;

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

procedure Tcess_edit.xpButton2Click(Sender: TObject);
begin
close;
end;

procedure Tcess_edit.clearedit;
begin
edit1.text:='';
edit2.text:='';
edit3.text:='';
edit4.text:='';
edit1.setfocus;
end;

function Tcess_edit.checkinput:boolean;
var x:string;
begin
x:='000000';
if edit1.text<>'' then x[1]:='1';
if edit2.text<>'' then x[2]:='1';
if edit3.text<>'' then x[3]:='1';
if strtofloat(edit3.text)>0 then x[4]:='1';
if strtofloat(edit3.text)<100 then x[5]:='1';
if edit4.text<>'' then x[6]:='1';
result:=x='111111';
end;

procedure Tcess_edit.xpButton1Click(Sender: TObject);
var msg,rate:string;
begin
if checkinput then
   begin
   rate:=floattostr(strtofloat(edit3.text)/100);
   with tstringlist.create do
     try
     add(makeparams('tuid',edit1.text));
     add(makeparams('tdeduct',edit4.text));
     add(makeparams('trate',rate));
     msg:=text;
     finally
     free;
     end;
   if sl_data.cess_model(public_modify,msg) then
      begin
      showmessage('记录修改成功!');
      clearedit;
      end;
   end else showmessage('请输入完整信息!');
end;

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

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

procedure Tcess_edit.Edit1Exit(Sender: TObject);
begin
rebuild;
end;

procedure Tcess_edit.rebuild;
var msg:string;
begin
if edit1.text<>'' then
   begin
   with tstringlist.create do
      try
      add(makeparams('operid',inttostr(Query_cess)));
      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['cmax'];
      edit3.text:=floattostr(sl_data.querysinfo['rate']*100);
      edit4.text:=sl_data.querysinfo['deduct'];
      end else clearedit;
   end;
end;

procedure Tcess_edit.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 Tcess_edit.Edit1KeyDown(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;

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

end.