insurancemodify.pas

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

unit insurancemodify;

interface

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

type
  Tinsurance_modify = class(TForm)
    Bevel1: TBevel;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    Edit4: TEdit;
    Label5: TLabel;
    Edit5: TEdit;
    Label6: TLabel;
    Edit6: TEdit;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Edit7: TEdit;
    xpButton1: TxpButton;
    xpButton2: TxpButton;
    Edit8: TEdit;
    Edit9: TEdit;
    procedure xpButton1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit1Exit(Sender: TObject);
    procedure xpButton2Click(Sender: TObject);
    procedure Edit7KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit4KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    procedure clearedit;
    procedure createinsurance;
    procedure rebuild;
    function checkinput:boolean;
    { Private declarations }
  public
    seldate:tdatetime;
    { Public declarations }
  end;

var
  insurance_modify: Tinsurance_modify;

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

procedure Tinsurance_modify.xpButton1Click(Sender: TObject);
begin
close;
end;

procedure Tinsurance_modify.clearedit;
begin
edit1.text:='';
edit2.text:='';
edit3.text:='';
edit4.text:='';
edit5.text:='';
edit6.text:='';
edit7.text:='';
edit8.text:=inttostr(datetomoth(seldate));
edit9.text:=datetostr(seldate);
edit1.setfocus;
end;

function Tinsurance_modify.checkinput:boolean;
var x:string;
begin
x:='0000000000000';
if edit1.text<>'' then x[1]:='1';
if edit2.text<>'' then x[2]:='1';
if edit3.text<>'' then x[3]:='1';
if edit4.text<>'' then x[4]:='1';
if edit5.text<>'' then x[5]:='1';
if edit6.text<>'' then x[6]:='1';
if edit7.text<>'' then x[7]:='1';
if edit8.text<>'' then x[8]:='1';
if edit9.text<>'' then x[9]:='1';
if strtofloat(edit5.text)>0 then x[10]:='1';
if strtofloat(edit5.text)<100 then x[11]:='1';
if strtofloat(edit6.text)>0 then x[12]:='1';
if strtofloat(edit6.text)<100 then x[13]:='1';
result:=x='1111111111111';
end;

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

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

procedure Tinsurance_modify.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 Tinsurance_modify.createinsurance;
var msg:string;
begin
if edit1.text<>'' then
 begin
  with tstringlist.create do
     try
     add(makeparams('tuid',edit1.text));
     add(makeparams('tdate',datetostr(seldate)));
     msg:=text;
     finally
     free;
     end;
  sl_data.insurance_model(public_add,msg);
 end;
end;

procedure Tinsurance_modify.rebuild;
var msg:string;
begin
if edit1.text<>'' then
 begin
 with tstringlist.create do
   try
   add(makeparams('operid',inttostr(Query_insurance)));
   add(makeparams('funid',inttostr(public_infor)));
   add(makeparams('tuid',edit1.text));
   add(makeparams('tdate',datetostr(seldate)));
   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'];
    edit4.text:=sl_data.querysinfo['declare_salary'];
    edit5.text:=floattostr(sl_data.querysinfo['individual']*100);
    edit6.text:=floattostr(sl_data.querysinfo['company']*100);
    edit7.text:=sl_data.querysinfo['remark'];
    edit8.text:=inttostr(datetomoth(sl_data.querysinfo['declare_month']));
    edit9.text:=sl_data.querysinfo['insdate'];
    end else clearedit;
 end;
end;

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

procedure Tinsurance_modify.xpButton2Click(Sender: TObject);
var msg,tindividual,tcompany:string;
begin
if checkinput then
  begin
  tindividual:=floattostr(strtofloat(edit5.text)/100);
  tcompany:=floattostr(strtofloat(edit6.text)/100);
  with tstringlist.create do
    try
    add(makeparams('tuid',edit1.text));
    add(makeparams('tdeclare_salary',edit4.text));
    add(makeparams('tindividual',tindividual));
    add(makeparams('tcompany',tcompany));
    add(makeparams('tremark',edit7.text));
    add(makeparams('tdate',datetostr(seldate)));
    msg:=text;
    finally
    free;
    end;
  if sl_data.insurance_model(public_modify,msg) then
     begin
     showmessage('记录修改成功!');
     clearedit;
     end;
  end else showmessage('请填写完整信息!');
end;

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

procedure Tinsurance_modify.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.