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.

129 lines
2.9 KiB
Plaintext

12 months ago
unit u_sys_employee;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, bsSkinCtrls, BusinessSkinForm, DB, ADODB, StdCtrls, Mask,
DBCtrls, wwdbdatetimepicker;
type
Tfrm_sys_employee = class(TForm)
bsBusinessSkinForm1: TbsBusinessSkinForm;
bsSkinButton1: TbsSkinButton;
bsSkinButton2: TbsSkinButton;
t_sys_employee: TADOQuery;
t_sys_employee1: TDataSource;
Label1: TLabel;
DBEdit1: TDBEdit;
Label2: TLabel;
DBEdit2: TDBEdit;
Label3: TLabel;
DBEdit3: TDBEdit;
Label4: TLabel;
DBEdit4: TDBEdit;
Label5: TLabel;
DBEdit5: TDBEdit;
Label6: TLabel;
DBEdit6: TDBEdit;
Label7: TLabel;
Label8: TLabel;
DBEdit8: TDBEdit;
Label9: TLabel;
DBEdit9: TDBEdit;
Label10: TLabel;
DBEdit10: TDBEdit;
wwDBDateTimePicker1: TwwDBDateTimePicker;
Label11: TLabel;
Edit1: TEdit;
bsSkinButton3: TbsSkinButton;
p_employee_change: TADOStoredProc;
procedure FormShow(Sender: TObject);
procedure bsSkinButton2Click(Sender: TObject);
procedure bsSkinButton1Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormKeyPress(Sender: TObject; var Key: Char);
procedure bsSkinButton3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frm_sys_employee: Tfrm_sys_employee;
implementation
uses u_main, u_data_share;
{$R *.dfm}
procedure Tfrm_sys_employee.FormShow(Sender: TObject);
begin
t_sys_employee.Parameters[0].value:=employee;
t_sys_employee.open;
Edit1.Text:=t_sys_employee.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
end;
procedure Tfrm_sys_employee.bsSkinButton2Click(Sender: TObject);
begin
if t_sys_employee.State=dsedit then
t_sys_employee.cancel;
close;
end;
procedure Tfrm_sys_employee.bsSkinButton1Click(Sender: TObject);
begin
if t_sys_employee.State=dsedit then
begin
if DBEdit2.text<>edit1.Text then
begin
showmessage('<27><>֤<EFBFBD><D6A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>½<EFBFBD><C2BD><EFBFBD>һֱ<D2BB><D6B1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>룡');
exit;
end;
t_sys_employee.Post;
close;
end;
end;
procedure Tfrm_sys_employee.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
frm_data_share.t_load_employee.requery;
end;
procedure Tfrm_sys_employee.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
Perform(WM_NEXTDLGCTL,0,0);
key:=#0;
end;
end;
procedure Tfrm_sys_employee.bsSkinButton3Click(Sender: TObject);
var
old_str,str:string;
begin
str:=trim(InputBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ְԱ<D6B0>µ<EFBFBD><C2B5><EFBFBD><EFBFBD><EFBFBD>', '<27>µ<EFBFBD><C2B5><EFBFBD><EFBFBD>֣<EFBFBD>', ''));
if str=''then
begin
exit;
end;
try
old_str:=t_sys_employee['<27><><EFBFBD><EFBFBD>'];
t_sys_employee.Edit;
t_sys_employee['<27><><EFBFBD><EFBFBD>']:=str;
t_sys_employee.post;
p_employee_change.Parameters.ParamByName('old_name').Value:=old_str;
p_employee_change.Parameters.ParamByName('new_name').Value:=str;
p_employee_change.ExecProc;
except
showmessage('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>');
end;
end;
end.