yzgl11.pas

delphi制作的校医院收费系统

unit yzgl11;

interface

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

type
  Tyhzcgl = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    RadioGroup1: TRadioGroup;
    GroupBox2: TGroupBox;
    Button1: TButton;
    Button2: TButton;
    procedure FormShow(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  yhzcgl: Tyhzcgl;

implementation

{$R *.dfm}   uses dmyhzc11;

procedure Tyhzcgl.FormShow(Sender: TObject);
begin
       edit2.Text:='';
       edit1.Text:='';
       edit3.Text:='';
       edit1.SetFocus;
end;

procedure Tyhzcgl.Button2Click(Sender: TObject);
begin
     close;
end;

procedure Tyhzcgl.Button1Click(Sender: TObject);
begin
    if (edit1.Text='') or (edit2.Text='') or (edit3.Text='') then
    begin
          showmessage('姓名或密码不能为空');
          edit1.Text:='';
          edit2.Text:='';
          edit3.Text:='';
          exit;
    end;
    if edit2.Text<> edit3.Text then
      begin
          showmessage('密码两次输入不正确');
          edit1.Text:='';
          edit2.Text:='';
          edit3.Text:='';
          exit;
    end;
    dmyhzc11.dmyhzc.ADOQuery1.Close;
    dmyhzc11.dmyhzc.ADOQuery1.SQL.Clear;
    dmyhzc11.dmyhzc.ADOQuery1.SQL.Add('select * from 登陆表 where 操作员姓名=');
     dmyhzc11.dmyhzc.ADOQuery1.SQL.Add(''''+edit1.Text+'''');
     dmyhzc11.dmyhzc.ADOQuery1.Open;
     if dmyhzc11.dmyhzc.ADOQuery1.RecordCount<>0 then
     begin
      showmessage('此用户名已存在,注册失败');
       edit1.Text:='';
          edit2.Text:='';
          edit3.Text:='';
          exit;
       end;
     dmyhzc11.dmyhzc.ADOQuery1.Append;
      dmyhzc11.dmyhzc.ADOQuery1.Fields[1].AsString:=edit1.Text;
       dmyhzc11.dmyhzc.ADOQuery1.Fields[2].AsString:=edit2.Text;
        case yhzcgl.RadioGroup1.ItemIndex of
        0: dmyhzc11.dmyhzc.ADOQuery1.Fields[3].AsString:='1';
        1:dmyhzc11.dmyhzc.ADOQuery1.Fields[3].AsString:='2';
        2:dmyhzc11.dmyhzc.ADOQuery1.Fields[3].AsString:='3';
        end;
        dmyhzc11.dmyhzc.ADOQuery1.Post;
        showmessage('恭喜,注册成功!');
        yhzcgl.Hide;
end;

procedure Tyhzcgl.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
    if key=#13 then
    edit2.SetFocus;
end;

procedure Tyhzcgl.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
   if key=#13 then
   edit3.SetFocus;
end;

procedure Tyhzcgl.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
     if key=#13 then
     yhzcgl.RadioGroup1.SetFocus;
end;

end.