cessadd.pas

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

unit cessadd;

interface

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

type
  Tcess_add = 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 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;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  cess_add: Tcess_add;

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

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

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

function Tcess_add.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_add.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('tmin',edit1.text));
     add(makeparams('tmax',edit2.text));
     add(makeparams('tdeduct',edit4.text));
     add(makeparams('trate',rate));
     msg:=text;
     finally
     free;
     end;
   if sl_data.cess_model(public_add,msg) then
      begin
      showmessage('记录添加成功!');
      clearedit;
      end;
   end else showmessage('请输入完整信息!');
end;

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

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

procedure Tcess_add.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_add.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_add.Edit4KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=13 then xpbutton1.onClick(nil);
end;

end.