?? unit15.~pas
字號:
unit Unit15;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DBCtrls, Mask, StdCtrls, Grids, DBGrids;
type
Tygxiugaisc = class(TForm)
Label20: TLabel;
Label21: TLabel;
Label22: TLabel;
Label23: TLabel;
Label24: TLabel;
Label25: TLabel;
Label26: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label7: TLabel;
Label6: TLabel;
Label4: TLabel;
Label3: TLabel;
Label2: TLabel;
Label5: TLabel;
Label14: TLabel;
Label27: TLabel;
Edit1: TEdit;
Button1: TButton;
DBGrid1: TDBGrid;
GroupBox1: TGroupBox;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
DBEdit5: TDBEdit;
DBEdit6: TDBEdit;
DBEdit7: TDBEdit;
DBEdit8: TDBEdit;
DBEdit9: TDBEdit;
DBEdit10: TDBEdit;
DBEdit11: TDBEdit;
DBEdit12: TDBEdit;
DBEdit13: TDBEdit;
DBEdit14: TDBEdit;
ComboBox1: TComboBox;
ComboBox2: TComboBox;
ComboBox3: TComboBox;
ComboBox4: TComboBox;
ComboBox5: TComboBox;
ComboBox6: TComboBox;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure RadioButton2Click(Sender: TObject);
procedure RadioButton1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
ygxiugaisc: Tygxiugaisc;
implementation
uses Unit1, Unit10, Unit11, Unit12, Unit13, Unit14, Unit2, Unit3, Unit4,
Unit5, Unit6, Unit7, Unit8, Unit9, Unit16;
{$R *.dfm}
procedure Tygxiugaisc.Button1Click(Sender: TObject);
var i:integer;
begin
if edit1.Text='' then
begin
application.MessageBox('請輸入員工編號！！','木魚工作室',mb_iconhand+mb_yesno);
edit1.SetFocus;
end //若為空，出錯 焦點放到部門代碼上面
else
begin
with dm.ADOQuery1 do
begin
sql.Clear;
sql.Add('select * from ygjibenxinxi where 員工id='''+edit1.Text+'''' );
Open;
dbedit1.DataField:='員工id';
dbedit2.DataField:='姓名';
dbedit3.DataField:='出生日期';
dbedit4.DataField:='籍貫';
dbedit5.DataField:='身份證號';
dbedit6.DataField:='部門代碼';
dbedit7.DataField:='進入部門日期';
dbedit8.DataField:='職務代碼';
dbedit9.DataField:='起薪日期';
dbedit10.DataField:='專業';
dbedit11.DataField:='外語';
dbedit12.DataField:='地址';
dbedit13.DataField:='電話';
dbedit14.DataField:='郵箱';
ComboBox1.Text:=Fieldbyname('性別').AsString;
ComboBox2.Text:=Fieldbyname('民族').AsString;
ComboBox3.Text:=Fieldbyname('政治面貌').AsString;
ComboBox4.Text:=Fieldbyname('職稱').AsString;
ComboBox5.Text:=Fieldbyname('學歷').AsString;
ComboBox6.Text:=Fieldbyname('在崗狀態').AsString;
dbgrid1.Columns[0].FieldName:='員工id';
dbgrid1.Columns[1].FieldName:='姓名';
dbgrid1.Columns[2].FieldName:='性別';
dbgrid1.Columns[3].FieldName:='出生日期';
dbgrid1.Columns[4].FieldName:='籍貫';
dbgrid1.Columns[5].FieldName:='民族';
dbgrid1.Columns[6].FieldName:='身份證號';
dbgrid1.Columns[7].FieldName:='政治面貌';
dbgrid1.Columns[8].FieldName:='部門代碼';
dbgrid1.Columns[9].FieldName:='進入部門日期';
dbgrid1.Columns[10].FieldName:='職務代碼';
dbgrid1.Columns[11].FieldName:='職稱';
dbgrid1.Columns[12].FieldName:='起薪日期';
dbgrid1.Columns[13].FieldName:='原企業';
dbgrid1.Columns[14].FieldName:='原職稱';
dbgrid1.Columns[15].FieldName:='員工id';
dbgrid1.Columns[16].FieldName:='畢業學校';
dbgrid1.Columns[17].FieldName:='畢業日期';
dbgrid1.Columns[18].FieldName:='學歷';
dbgrid1.Columns[19].FieldName:='專業';
dbgrid1.Columns[20].FieldName:='外語';
dbgrid1.Columns[21].FieldName:='地址';
dbgrid1.Columns[22].FieldName:='電話';
dbgrid1.Columns[23].FieldName:='郵箱';
dbgrid1.Columns[24].FieldName:='在崗狀態';
for i:=0 to 24 do
dbgrid1.Columns[i].Width:=80;
end;
if dm.ADOQuery1.Eof then
begin
application.MessageBox('對不起，數據庫中沒有您所要的信息。請與管理員聯系！！','錯誤',mb_iconhand+mb_yesno);
edit1.Text:='';
edit1.SetFocus;
end;
end;
end;
procedure Tygxiugaisc.FormCreate(Sender: TObject);
begin
RadioButton2.Checked:=true;
Button2.Enabled:=false;
dbedit1.Enabled:=false;
dbedit2.Enabled:=false;
dbedit3.Enabled:=false;
dbedit4.Enabled:=false;
dbedit5.Enabled:=false;
dbedit6.Enabled:=false;
dbedit7.Enabled:=false;
dbedit8.Enabled:=false;
dbedit9.Enabled:=false;
dbedit10.Enabled:=false;
dbedit11.Enabled:=false;
dbedit12.Enabled:=false;
dbedit13.Enabled:=false;
dbedit14.Enabled:=false;
ComboBox1.Enabled:=false;
ComboBox2.Enabled:=false;
ComboBox3.Enabled:=false;
ComboBox4.Enabled:=false;
ComboBox5.Enabled:=false;
ComboBox6.Enabled:=false;
ComboBox1.Items.Add('男');
ComboBox1.Items.Add('女');
ComboBox2.Items.Add('漢族');
ComboBox2.Items.Add('壯族');
ComboBox2.Items.Add('維吾兒族');
ComboBox2.Items.Add('蒙古族');
ComboBox2.Items.Add('其他少數民族');
ComboBox3.Items.Add('中共黨員');
ComboBox3.Items.Add('共青團員');
ComboBox3.Items.Add('群眾');
ComboBox3.Items.Add('民主黨員');
ComboBox4.Items.Add('初級');
ComboBox4.Items.Add('中級');
ComboBox4.Items.Add('高級');
ComboBox5.Items.Add('高中');
ComboBox5.Items.Add('大專');
ComboBox5.Items.Add('本科');
ComboBox5.Items.Add('研究生');
ComboBox5.Items.Add('博士生');
ComboBox6.Items.Add('在崗');
ComboBox6.Items.Add('離崗');
ComboBox6.Items.Add('退休');
end;
procedure Tygxiugaisc.Button4Click(Sender: TObject);
begin
ygxiugaisc.Close;
end;
procedure Tygxiugaisc.RadioButton2Click(Sender: TObject);
begin
if RadioButton2.Checked=true then
begin
Button2.Enabled:=false;
Button3.Enabled:=true;
dbedit1.Enabled:=false;
dbedit2.Enabled:=false;
dbedit3.Enabled:=false;
dbedit4.Enabled:=false;
dbedit5.Enabled:=false;
dbedit6.Enabled:=false;
dbedit7.Enabled:=false;
dbedit8.Enabled:=false;
dbedit9.Enabled:=false;
dbedit10.Enabled:=false;
dbedit11.Enabled:=false;
dbedit12.Enabled:=false;
dbedit13.Enabled:=false;
dbedit14.Enabled:=false;
ComboBox1.Enabled:=false;
ComboBox2.Enabled:=false;
ComboBox3.Enabled:=false;
ComboBox4.Enabled:=false;
ComboBox5.Enabled:=false;
ComboBox6.Enabled:=false;
end
end;
procedure Tygxiugaisc.RadioButton1Click(Sender: TObject);
begin
if RadioButton1.Checked=true then
begin
Button2.Enabled:=true;
Button3.Enabled:=false;
dbedit1.Enabled:=true;
dbedit2.Enabled:=true;
dbedit3.Enabled:=true;
dbedit4.Enabled:=true;
dbedit5.Enabled:=true;
dbedit6.Enabled:=true;
dbedit7.Enabled:=true;
dbedit8.Enabled:=true;
dbedit9.Enabled:=true;
dbedit10.Enabled:=true;
dbedit11.Enabled:=true;
dbedit12.Enabled:=true;
dbedit13.Enabled:=true;
dbedit14.Enabled:=true;
ComboBox1.Enabled:=true;
ComboBox2.Enabled:=true;
ComboBox3.Enabled:=true;
ComboBox4.Enabled:=true;
ComboBox5.Enabled:=true;
ComboBox6.Enabled:=true;
end
end;
procedure Tygxiugaisc.Button3Click(Sender: TObject);
begin
if application.MessageBox('確實要刪除當前數據嗎?','提示',mb_iconquestion+mb_yesno)=id_yes then
begin
try
dm.ADOQuery1.Delete;
dm.ADOQuery1.Refresh;
application.MessageBox('刪除成功!','提示',64);
except
application.MessageBox('系統出錯!','提示',64);
end;
end;
end;
procedure Tygxiugaisc.Button2Click(Sender: TObject);
begin
with dm.ADOQuery1 do
begin
edit;
FieldByName('員工id').AsString:=trim(dbedit1.Text);
FieldByName('姓名').AsString:=trim(dbedit2.Text);
FieldByName('出生日期').AsString:=trim(dbedit3.Text);
FieldByName('籍貫').AsString:=trim(dbedit4.Text);
FieldByName('民族').AsString:=trim(combobox2.Text);
FieldByName('性別').AsString:=trim(combobox1.Text);
FieldByName('身份證號').AsString:=trim(dbedit5.Text);
FieldByName('政治面貌').AsString:=trim(combobox3.Text);
FieldByName('部門代碼').AsString:=trim(dbedit6.Text);
FieldByName('進入部門日期').AsString:=trim(dbedit7.Text);
FieldByName('職務代碼').AsString:=trim(dbedit8.Text);
FieldByName('職稱').AsString:=trim(combobox4.Text);
FieldByName('起薪日期').AsString:=trim(dbedit9.Text);
FieldByName('學歷').AsString:=trim(combobox5.Text);
FieldByName('專業').AsString:=trim(dbedit10.Text);
FieldByName('地址').AsString:=trim(dbedit12.Text);
FieldByName('電話').AsString:=trim(dbedit13.Text);
FieldByName('郵箱').AsString:=trim(dbedit14.Text);
FieldByName('在崗狀態').AsString:=trim(combobox6.Text);
FieldByName('外語').AsString:=trim(dbedit11.Text);
post;
end;
application.MessageBox('修改成功!','提示',64);
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -