【delphi开源代码栏目提醒】:本文主要为网学会员提供U_xm.pas,希望对需要U_xm.pas网友有所帮助,学习一下!
unit U_xm;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
Tfrm_srxm = class(TForm)
Panel1: TPanel;
Edit1: TEdit;
Label1: TLabel;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frm_srxm: Tfrm_srxm;
implementation
uses U_data, U_ygfz;
{$R *.dfm}
procedure Tfrm_srxm.Button1Click(Sender: TObject);
begin
if trim(edit1.Text)<>'' then
begin
with data1.ADOpublic do
begin
edit;
fieldbyname('是否离职').Value:='否';
fieldbyname('复职日期').Value:=date();
fieldbyname('所属部门').Value:=frm_ygfz.ComboBox1.Text;
fieldbyname('职务').Value:=frm_ygfz.ComboBox2.Text;
fieldbyname('职称').Value:=frm_ygfz.ComboBox3.Text;
fieldbyname('离职复员登记人').Value:=trim(edit1.Text);
post;
end;
application.MessageBox('修改成功','提示',64);
//close;
self.OnShow(sender);
end
else
application.MessageBox('请输处登记人!','提示',64);
end;
end.
上一篇:
U_xgmm.pas
下一篇:
比亚迪唐dm质量怎么样, 全新唐DM和途观L混动版哪个好