【delphi开源代码栏目提醒】:网学会员--在 delphi开源代码编辑为广大网友搜集整理了:bjjl.pas绩等信息,祝愿广大网友取得需要的信息,参考学习。
unit bjjl;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, DBCtrls, Mask, ComCtrls,
HumanResourceControls, Grids, DBGrids, DB, ADODB;
type
TFrmBjjl = class(TForm)
GroupBox1: TGroupBox;
GroupBox2: TGroupBox;
DBGrid1: TDBGrid;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
DBDTPKsrq: TDBDateTimePicker;
DBDTPJsrq: TDBDateTimePicker;
DBEdtDw: TDBEdit;
DBEdtBm: TDBEdit;
DBEdtSm: TDBEdit;
DBNavigator1: TDBNavigator;
Button1: TButton;
ADODataSet1: TADODataSet;
DataSource1: TDataSource;
ADODataSet2: TADODataSet;
ADODataSet1JLXX_GH: TWideStringField;
ADODataSet1JLXX_QSSJ: TDateTimeField;
ADODataSet1JLXX_JZSJ: TDateTimeField;
ADODataSet1JLXX_SZDW: TWideStringField;
ADODataSet1JLXX_SZBM: TWideStringField;
ADODataSet1JLXX_SM: TWideStringField;
procedure FormCreate(Sender: TObject);
procedure ADODataSet1NewRecord(DataSet: TDataSet);
procedure ADODataSet1BeforePost(DataSet: TDataSet);
procedure DBGrid1TitleClick(Column: TColumn);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
FGh:string;
procedure setGh(value:string);
public
{ Public declarations }
property Gh:string read FGh write setGh ;
end;
var
FrmBjjl: TFrmBjjl;
implementation
uses
dm;
{$R *.dfm}
procedure TFrmBjjl.setGh(value:string);
begin
FGh := value;
if trim(FGh) = '' then //工号为空
begin
ADODataSet1.Active := false;
end
else
begin
//下面查找是否有工号为FGh的员工
ADODataSet2.Active := false;
ADODataSet2.CommandText := 'select * from jbzl where trim(JBZL_GH)' +
' = ''' + trim(FGh) + '''';
ADODataSet2.Active := true;
if ADODataSet2.IsEmpty then //此员工不存在
begin
ShowMessage('未找到工号为' + FGh + '的员工');
ADODataSet1.Active := false;
end
else //存在此员工
begin
Caption := '编辑简历:' + ADODataSet2.fieldbyName('JBZL_XM').AsString ;
ADODataSet1.Active := false;
ADODataSet1.CommandText := 'select * from jlxx where trim(Jlxx_Gh)' +
' = ''' + trim(FGh) + ''' order by Jlxx_QSSJ';
ADODataSet1.Active := true;
end;// if ADODataSet1.IsEmpty
end; // if trim(FGh) <> ''
end;
procedure TFrmBjjl.FormCreate(Sender: TObject);
begin
DBDTPKsrq.MaxDate := now;
DBDTPJsrq.MaxDate := now;
end;
procedure TFrmBjjl.ADODataSet1NewRecord(DataSet: TDataSet);
begin
ADODataSet1.Fields.FieldByName('JLXX_GH').Value := Gh;
end;
procedure TFrmBjjl.ADODataSet1BeforePost(DataSet: TDataSet);
begin
if not DBDTPKsrq.Checked then
begin
ShowMessage('必须输入开始日期!');
Abort ;
DBDTPKsrq.SetFocus ;
exit;
end;
if (DBDTPJsrq.Checked) and (DBDTPJsrq.Date < DBDTPKsrq.Date) then
begin
ShowMessage('结束日期必须晚于开始日期!');
Abort ;
DBDTPJsrq.SetFocus ;
exit;
end;
if trim(DBEdtDw.Text) = '' then
begin
ShowMessage('必须输入所在单位!');
Abort ;
DBEdtDw.SetFocus ;
exit;
end;
end;
procedure TFrmBjjl.DBGrid1TitleClick(Column: TColumn);
var
tempSortStr:string;
begin
tempSortStr := ADODataSet1.Sort ;
if tempSortStr = (Column.FieldName + ' ASC') then
begin
ADODataSet1.Sort := Column.FieldName + ' DESC';
end
else
begin
ADODataSet1.Sort := Column.FieldName + ' ASC';
end;
end;
procedure TFrmBjjl.Button1Click(Sender: TObject);
begin
Close;
end;
end.