yh_propertity.~pas

学员管理的软件

unit yh_propertity;

interface

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

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

var
  hy_pro: Thy_pro;

implementation

{$R *.dfm}
 USES MAIN,YH_SEL;
procedure Thy_pro.FormShow(Sender: TObject);
var
lx:string;
ssex:string;
begin
with main.DataModule2 do
begin
aq1.Close;
aq1.SQL.Clear;
aq1.SQL.Add('SELECT * FROM 人员信息表 where ID='+YH_SEL.colvalue);
aq1.Open;
myname.Text:=aq1.FieldValues['姓名'];
pass.Text:=aq1.FieldValues['密码'];
passagain.Text:=aq1.FieldValues['密码'];
lx:=aq1.FieldValues['类别'];
if lx='考试人' then cat_ks1.Checked:=true;
if lx='操作员' then cat_ks2.Checked:=true;
if lx='管理员' then cat_ks3.Checked:=true;
phone.Text:=aq1.FieldValues['电话'];
email.Text:=aq1.FieldValues['电子邮件'];
ssex:=aq1.FieldValues['性别'];
if trim(ssex)='男'  then sexman.Checked:=true;
if trim(ssex)='女'  then sexgirl.Checked:=true;
age.Text:=aq1.FieldValues['年龄'];
addr.Text:=aq1.FieldValues['地址'];
code.Text:=aq1.FieldValues['邮编'];
card_cat.Text:=INTTOSTR(aq1.FieldValues['证件类别']);
card_num.Text:=aq1.FieldValues['证件号'];
photo.Text:=aq1.FieldValues['照片'];
end;
end;

procedure Thy_pro.Button1Click(Sender: TObject);
begin
image1.Stretch:=true;
if FileExists(photo.Text) then
begin
try
image1.Picture.LoadFromFile(photo.text);
except
on E: Exception do messagebox(handle,'此路径中不包含此文件','错误信息',MB_OK);
end;
end
else
messagebox(handle,'文件不存在','错误信息',MB_OK);
end;
procedure Thy_pro.BitBtn1Click(Sender: TObject);
begin
with main.DataModule2 do
begin
aq1.Close;
aq1.SQL.Clear;
aq1.SQL.Add('SELECT * FROM 人员信息表 where ID='+YH_SEL.colvalue);
aq1.Open;
aq1.Edit;
aq1.FieldByName('密码').AsString:=pass.Text;
aq1.FieldByName('电话').AsString:=phone.Text;
aq1.FieldByName('电子邮件').AsString:=email.Text;
aq1.FieldByName('年龄').AsInteger:=strtoint(age.Text);
aq1.FieldByName('地址').AsString:=addr.Text;
aq1.FieldByName('邮编').AsString:=code.Text;
aq1.FieldByName('证件类别').AsInteger:=card_cat.ItemIndex;
aq1.FieldByName('证件号').AsString:=card_num.Text;
aq1.FieldByName('照片').AsString:=extractfilepath(application.ExeName)+'photo\'+
extractfilename(photo.Text);
aq1.Post;
messagebox(handle,'成功录入数据到数据库','信息',mb_ok+MB_ICONINFORMATION);
end;
END;

end.