yh_new.pas

学员管理的软件

unit yh_new;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Buttons, StdCtrls, ComCtrls;

type
  TForm10 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    cat_ks1: TRadioButton;
    cat_ks2: TRadioButton;
    cat_ks3: TRadioButton;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    phone: TEdit;
    email: TEdit;
    passagain: TEdit;
    pass: TEdit;
    myname: TEdit;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    GroupBox1: TGroupBox;
    sexman: TRadioButton;
    sexgirl: TRadioButton;
    photo: TEdit;
    Button1: TButton;
    addr: TEdit;
    age: TEdit;
    code: TEdit;
    card_num: TEdit;
    GroupBox2: TGroupBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Image1: TImage;
    BitBtn3: TBitBtn;
    od: TOpenDialog;
    card_cat: TComboBox;
    procedure BitBtn3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form10: TForm10;

implementation

{$R *.dfm}
uses main;

function check:boolean;
begin
with form10 do
begin
if myname.Text='' then
begin
application.MessageBox('请输入姓名','错误信息',0);
Result:=false;
exit;
end;
if addr.Text='' then
begin
application.MessageBox('请输入地址','错误信息',0);
Result:=false;
exit;
end;
if pass.Text='' then
begin
application.MessageBox('请输入密码','错误信息',0);
Result:=false;
exit;

end;
if phone.Text='' then
begin
application.MessageBox('请输入电话','错误信息',0);
Result:=false;
exit;

end;
if email.Text='' then
begin
application.MessageBox('请输入电子邮件','错误信息',0);
Result:=false;
exit;

end;
if age.Text='' then
begin
application.MessageBox('请输入年龄','错误信息',0);
Result:=false;
exit;

end;
if code.Text='' then
begin
application.MessageBox('请输入邮编','错误信息',0);
Result:=false;
exit;

end;
if card_cat.Text='' then
begin
application.MessageBox('请选择证件类别','错误信息',0);
Result:=false;
exit;

end;
if card_num.Text='' then
begin
application.MessageBox('请输入证件号','错误信息',0);
Result:=false;
exit;

end;
if photo.Text='' then
begin
application.MessageBox('请选择照片','错误信息',0);
Result:=false;
exit;
end;
if pass.text<>passagain.Text then
begin
application.MessageBox('两次密码输入不符合','错误信息',0);
Result:=false;
exit;
end;
end;
Result:=true;
end;
procedure TForm10.BitBtn3Click(Sender: TObject);
begin
image1.Stretch:=not image1.Stretch;
if image1.Stretch then bitbtn3.Caption:='取消照片全显示'
else
bitbtn3.Caption:='照片全显示';
end;

procedure TForm10.Button1Click(Sender: TObject);
begin
if od.Execute then
begin
image1.Picture.LoadFromFile(od.FileName);
photo.Text:=od.FileName;
end;
end;

procedure TForm10.BitBtn1Click(Sender: TObject);
begin
myname.Text:='';
sexman.Checked:=true;
sexgirl.Checked:=false;
addr.Text:='';
pass.Text:='';
passagain.Text:='';
cat_ks1.Checked:=true;
cat_ks2.Checked:=false;
cat_ks3.Checked:=false;
phone.Text:='';
email.Text:='';
age.Text:='';
code.Text:='';
card_cat.Text:='身份证';
card_num.Text:='';
phone.Text:='';
end;

procedure TForm10.BitBtn2Click(Sender: TObject);
var
s:string;
ssex:string;
cardnum:integer;
kslx:string;
spath,mysource,mydes:string;
begin
try
strtoint(age.Text);
except
messagedlg('对不起，年龄必须为整数',mterror,[mbok],0);
exit;
end;
if (trim(card_cat.Text)='身份证') then
begin
if (length(trim(card_num.Text))<>18) then
begin
showmessage('身份证位数为18位，请核对');
exit;
end;
end;

spath:=extractfilepath(application.ExeName);
mysource:=photo.Text;
mydes:=spath+'photo\'+extractfilename(mysource);
copyfile(pchar(mysource),pchar(mydes),true);

if not check then exit;
if sexman.Checked then ssex:='男' else ssex:='女';
cardnum:=card_cat.ItemIndex+1;
if cat_ks1.Checked then kslx:='考试人';
if cat_ks2.Checked then kslx:='操作员';
if cat_ks3.Checked then kslx:='管理员';
with main.DataModule2 do
begin
  s:='select * from 人员信息表';
  aq1.SQL.Clear;
  aq1.Close;
  aq1.SQL.Add(s);
  aq1.Open;
  aq1.Insert;
  aq1.FieldByName('姓名').AsString:=trim(myname.Text);
  aq1.FieldByName('性别').AsString:=ssex;
  aq1.FieldByName('证件类别').AsInteger:=cardnum;
  aq1.FieldByName('密码').AsString:=pass.Text;
  aq1.FieldByName('照片').AsString:=mydes;//photo.Text;
  aq1.FieldByName('类别').asstring:=kslx;
  aq1.FieldByName('年龄').AsInteger:=strtoint(age.Text);
  aq1.FieldByName('证件号').Asstring:=card_num.Text;
  aq1.FieldByName('地址').AsString:=addr.Text;
  aq1.FieldByName('邮编').AsString:=code.Text;
  aq1.FieldByName('电话').AsString:=phone.Text;
  aq1.FieldByName('电子邮件').AsString:=email.Text;
  aq1.Post;
  messagebox(handle,'录入到数据库中成功','成功信息',MB_OK);
end;
end;

end.