You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
115 lines
2.8 KiB
Plaintext
115 lines
2.8 KiB
Plaintext
unit u_code_client_parameter;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs, BusinessSkinForm, ExtCtrls, jpeg, StdCtrls, Mask, DBCtrls, DB,
|
|
ADODB;
|
|
|
|
type
|
|
Tfrm_code_client_parameter = class(TForm)
|
|
bsBusinessSkinForm1: TbsBusinessSkinForm;
|
|
Image1: TImage;
|
|
Label1: TLabel;
|
|
Label2: TLabel;
|
|
Label3: TLabel;
|
|
Label4: TLabel;
|
|
DBEdit1: TDBEdit;
|
|
DBEdit2: TDBEdit;
|
|
Label5: TLabel;
|
|
Label6: TLabel;
|
|
Label7: TLabel;
|
|
Label8: TLabel;
|
|
Label9: TLabel;
|
|
Label11: TLabel;
|
|
DBEdit3: TDBEdit;
|
|
DBEdit4: TDBEdit;
|
|
Label12: TLabel;
|
|
Label14: TLabel;
|
|
DBEdit5: TDBEdit;
|
|
Label13: TLabel;
|
|
DBEdit6: TDBEdit;
|
|
Memo1: TMemo;
|
|
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
|
|
procedure DBEdit1Change(Sender: TObject);
|
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
|
procedure DBEdit1KeyPress(Sender: TObject; var Key: Char);
|
|
procedure DBEdit3KeyPress(Sender: TObject; var Key: Char);
|
|
procedure DBEdit4KeyPress(Sender: TObject; var Key: Char);
|
|
procedure DBEdit6KeyPress(Sender: TObject; var Key: Char);
|
|
procedure DBEdit2KeyPress(Sender: TObject; var Key: Char);
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
frm_code_client_parameter: Tfrm_code_client_parameter;
|
|
|
|
implementation
|
|
|
|
uses u_data_share, my_sys_function;
|
|
|
|
{$R *.dfm}
|
|
|
|
procedure Tfrm_code_client_parameter.FormCloseQuery(Sender: TObject;
|
|
var CanClose: Boolean);
|
|
begin
|
|
CanClose:=frm_close_query(frm_data_share.t_code_client_parameter);
|
|
end;
|
|
|
|
procedure Tfrm_code_client_parameter.DBEdit1Change(Sender: TObject);
|
|
begin
|
|
with frm_data_share do
|
|
begin
|
|
if (t_code_client_parameter.State=dsedit)or(t_code_client_parameter.State=dsinsert)then
|
|
begin
|
|
try
|
|
t_code_client_parameter['±ê×¼ÀûÈó']:=s_w(strtoint(get_parameters_value(65,'2')),strtofloat(DBEdit1.text)/strtofloat(DBEdit2.text));
|
|
except
|
|
;
|
|
end;
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
procedure Tfrm_code_client_parameter.FormClose(Sender: TObject;
|
|
var Action: TCloseAction);
|
|
begin
|
|
frm_code_client_parameter:=nil;
|
|
end;
|
|
|
|
procedure Tfrm_code_client_parameter.DBEdit1KeyPress(Sender: TObject;
|
|
var Key: Char);
|
|
begin
|
|
key_DBEdit(Key,DBEdit3);
|
|
end;
|
|
|
|
procedure Tfrm_code_client_parameter.DBEdit3KeyPress(Sender: TObject;
|
|
var Key: Char);
|
|
begin
|
|
key_DBEdit(Key,DBEdit4);
|
|
end;
|
|
|
|
procedure Tfrm_code_client_parameter.DBEdit4KeyPress(Sender: TObject;
|
|
var Key: Char);
|
|
begin
|
|
key_DBEdit(Key,DBEdit6);
|
|
end;
|
|
|
|
procedure Tfrm_code_client_parameter.DBEdit6KeyPress(Sender: TObject;
|
|
var Key: Char);
|
|
begin
|
|
key_DBEdit(Key,DBEdit2);
|
|
end;
|
|
|
|
procedure Tfrm_code_client_parameter.DBEdit2KeyPress(Sender: TObject;
|
|
var Key: Char);
|
|
begin
|
|
key_DBEdit(Key,DBEdit5);
|
|
end;
|
|
|
|
end.
|