?? unit13.pas
字號:
unit Unit13;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, ComCtrls, ExtCtrls, DB, ADODB;
type
Tjsxxlr = class(TForm)
GroupBox1: TGroupBox;
Label1: TLabel;
Label2: TLabel;
Label4: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit4: TEdit;
Label5: TLabel;
Edit5: TEdit;
Label6: TLabel;
Edit6: TEdit;
Label7: TLabel;
Edit7: TEdit;
Label8: TLabel;
Label9: TLabel;
Edit8: TEdit;
Edit9: TEdit;
Label10: TLabel;
Edit10: TEdit;
Label11: TLabel;
Edit11: TEdit;
Label12: TLabel;
Edit12: TEdit;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
Label3: TLabel;
Edit3: TEdit;
Label13: TLabel;
Label14: TLabel;
Edit13: TEdit;
Edit14: TEdit;
Label15: TLabel;
Edit15: TEdit;
Label16: TLabel;
Edit16: TEdit;
StatusBar1: TStatusBar;
Image1: TImage;
ComboBox1: TComboBox;
Label17: TLabel;
ADOQuery1: TADOQuery;
SpeedButton3: TSpeedButton;
procedure SpeedButton2Click(Sender: TObject);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
procedure Edit13KeyPress(Sender: TObject; var Key: Char);
procedure SpeedButton3Click(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
jsxxlr: Tjsxxlr;
implementation
uses unit1;
{$R *.dfm}
procedure Tjsxxlr.SpeedButton2Click(Sender: TObject);
begin
close;
end;
procedure Tjsxxlr.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in['0'..'9',#8])then
begin
key:=#0;
application.MessageBox('教師號只能填寫數字','提示',0+64);
end;
end;
procedure Tjsxxlr.Edit13KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in['0'..'9',#8])then
begin
key:=#0;
application.MessageBox('郵政編碼只能填寫數字','提示',0+64);
end;
end;
procedure Tjsxxlr.SpeedButton3Click(Sender: TObject);
begin
edit1.Clear;
edit2.Clear;
edit3.Clear;
edit4.Clear;
edit5.Clear;
edit6.Clear;
edit7.Clear;
edit8.Clear;
edit9.Clear;
edit10.Clear;
edit11.Clear;
edit12.Clear;
edit13.Clear;
edit14.Clear;
edit15.Clear;
edit16.Clear;
end;
procedure Tjsxxlr.FormActivate(Sender: TObject);
var
sqlstr:string;
begin
sqlstr:='select * from t_jiaoshi';
ADOquery1.Close;
ADOquery1.SQL.Clear;
ADOQuery1.SQL.Add(sqlstr);
ADOquery1.Open;
end;
procedure Tjsxxlr.SpeedButton1Click(Sender: TObject);
begin
if(edit1.Text='')or(edit2.Text='')or(edit3.Text='')or(edit4.Text='')or(edit5.Text='')
or(edit6.Text='')or(edit7.Text='')or(edit8.Text='')or(edit9.Text='')or(edit10.Text='')
or(edit11.Text='')or(edit12.Text='')or(edit13.Text='')or(edit14.Text='')
or(edit15.Text='')or(edit16.Text='') then
begin
application.MessageBox('下面內容不能為空請輸入','提示',0+64);
exit;
end;
with ADOquery1 do
begin
append;
fieldvalues['教師號']:=edit1.Text;
fieldvalues['姓名']:=edit2.Text;
fieldvalues['性別']:=combobox1.Text;
fieldvalues['出生日期']:=edit3.Text;
fieldvalues['籍貫']:=edit4.Text;
fieldvalues['職務']:=edit5.Text;
fieldvalues['民族']:=edit6.Text;
fieldvalues['政治面貌']:=edit7.Text;
fieldvalues['家庭住址']:=edit8.Text;
fieldvalues['職稱']:=edit9.Text;
fieldvalues['聯系電話']:=edit10.Text;
fieldvalues['授課教程']:=edit11.Text;
fieldvalues['離校原因']:=edit12.Text;
fieldvalues['郵政編碼']:=edit13.Text;
fieldvalues['考勤']:=edit14.Text;
fieldvalues['入校時間']:=edit15.Text;
fieldvalues['離校時間']:=edit16.Text;
try
post;
except
Application.MessageBox('學號重復,請重新輸入!','警告',0+64);
delete;
edit1.SetFocus;
edit1.SelectAll;
exit;
end;
end;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -