unit2.pas

有关密码为： 服务端：为 “1”。 客户端：为机器的月份+日期。 如“2005/08/05”

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, DB, DBTables;

type
  Tkahao = class(TForm)
    Panel1: TPanel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Panel2: TPanel;
    Button1: TButton;
    Button2: TButton;
    Edit5: TEdit;
    Panel3: TPanel;
    Panel4: TPanel;
    Panel5: TPanel;
    Panel6: TPanel;
    Panel7: TPanel;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  kahao: Tkahao;
implementation

uses Unit1;

{$R *.dfm}

procedure Tkahao.Button2Click(Sender: TObject);
begin
 close;
end;

procedure Tkahao.Button1Click(Sender: TObject);
label jlsk;  //标签
var
 jlsk1:string;
 jlsk2:integer;
//在表控件table1中查找记录
begin
jlsk2:=234123;
 if form1.lv1.SelCount=0 then exit; //没有焦点退出
jlsk1:=form1.lv1.Selected.Caption;
      form1.Table1.First;
      while not (form1.Table1.Eof) do
       begin
           if form1.Table1a1.Value=jlsk1 then  goto jlsk;
           form1.Table1.Next;
       end;
jlsk2:=0;
jlsk:  //标签
if jlsk2<>0 then
//找到
begin
randomize; //初始化随机函数
form1.table1.edit;
if edit1.Text='' then  form1.table1a5.Value:='L-'+inttostr(1000000000+random(999999999))
ELSE
form1.Table1a5.Value:='L-'+edit1.Text;

form1.table1a3.Value:=DATe;
form1.table1a4.Value:=now;
form1.table1a12.Value:=edit2.Text;
form1.table1a13.Value:=edit3.Text;
form1.table1a7.Value:=strtofloat(edit4.Text);
form1.table1a6.Value:=strtofloat(edit5.Text);
form1.table1a15.Value:='√';
form1.table1.post;
form1.FXX('sdesk',form1.Table1IP.Value);
close;
form1.jlsx(0);
form1.lv2sx(jlsk1,edit4.text,'上机');  //添加加钱记录显示中
end
else
  close;
 yfdj:=edit4.Text; //保存刚才输入的费率
end;

procedure Tkahao.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action:=cafree;
end;

procedure Tkahao.FormCreate(Sender: TObject);
begin
edit4.Text:=yfdj;   //还原上次保存的费率
edit5.Text:=form1.table4a2.Text;  //导入预定的普通费率
end;

end.