【delphi开源代码栏目提醒】:网学会员为广大网友收集整理了,Ureader.pas,希望对大家有所帮助!
unit Ureader;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, DB, DBTables;
type
TForm2 = class(TForm)
Panel1: TPanel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
ComboBox1: TComboBox;
Label5: TLabel;
Edit4: TEdit;
Label6: TLabel;
Label7: TLabel;
Edit5: TEdit;
Query1: TQuery;
Bevel1: TBevel;
Button1: TButton;
Button2: TButton;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
{$R *.dfm}
procedure TForm2.Button1Click(Sender: TObject);
begin
if edit1.Text='' then
begin
showmessage('请输入卡号');
edit1.SetFocus;
exit;
end;
if edit2.Text='' then
begin
showmessage('请输入');
edit2.SetFocus;
exit;
end;
if edit3.Text='' then
begin
showmessage('请输入身份证号');
edit3.SetFocus;
exit;
end;
if edit4.Text='' then
begin
showmessage('请输入工作单位');
edit4.SetFocus;
exit;
end;
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('insert into reader values(:kh,:xm,:xb,'
+':sfz,:dw,:yj)');
query1.ParamByName('kh').AsString:=edit1.Text;
query1.ParamByName('xm').AsString:=edit2.Text;
query1.ParamByName('xb').AsString:=combobox1.Text;
query1.ParamByName('sfz').AsString:=edit3.Text;
query1.ParamByName('dw').AsString:=edit4.Text;
query1.ParamByName('yj').AsCurrency:=strtofloat(edit5.Text);
query1.ExecSQL;
button2click(sender);
end;
procedure TForm2.FormCreate(Sender: TObject);
begin
combobox1.Text:='男';
edit5.Text:='100';
end;
procedure TForm2.Button2Click(Sender: TObject);
begin
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
edit5.Text:='100';
combobox1.Text:='男';
end;
procedure TForm2.Button3Click(Sender: TObject);
begin
close;
end;
end.
上一篇:
PrinterPortDoc.cpp
下一篇:
西班牙语童话:El Alimento de Dios