📄 unitregist.pas
字号:
unit UnitRegist;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, Tabs, ComCtrls, StdCtrls, Buttons, ToolWin, DB, ADODB,
Grids, DBGrids, Spin;
type
TfrmRegist = class(TForm)
Page1: TPageControl;
sht1: TTabSheet;
sht2: TTabSheet;
GroupBox1: TGroupBox;
GroupBox2: TGroupBox;
Image1: TImage;
Image2: TImage;
Image3: TImage;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
Label1: TLabel;
edtName: TEdit;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
edtPhone: TEdit;
Label6: TLabel;
edtAddress: TEdit;
Label7: TLabel;
edtNo: TEdit;
Label8: TLabel;
edtMemo: TEdit;
Label9: TLabel;
edtBirth: TEdit;
cboSex: TComboBox;
cboNation: TComboBox;
CoolBar1: TCoolBar;
ToolBar1: TToolBar;
ToolButton1: TToolButton;
ToolButton2: TToolButton;
ToolButton3: TToolButton;
ToolButton4: TToolButton;
tbnSave: TToolButton;
ADOQuery: TADOQuery;
ADOCmd: TADOCommand;
DataSource: TDataSource;
tbnExit: TToolButton;
Panel1: TPanel;
Splitter1: TSplitter;
Panel2: TPanel;
GroupBox3: TGroupBox;
GroupBox4: TGroupBox;
DBGrid: TDBGrid;
chkDate: TCheckBox;
chkName: TCheckBox;
chkSex: TCheckBox;
chkIdno: TCheckBox;
Label10: TLabel;
edtXM: TEdit;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
cboXB: TComboBox;
EdtIDno: TEdit;
btnQuery: TBitBtn;
btnClear: TBitBtn;
tpkStart: TDateTimePicker;
tpkEnd: TDateTimePicker;
tbnSelect: TToolButton;
DateTimePicker1: TDateTimePicker;
Label15: TLabel;
SpinEdit1: TSpinEdit;
ADOStored: TADOStoredProc;
Splitter2: TSplitter;
procedure FormShow(Sender: TObject);
procedure tbnExitClick(Sender: TObject);
procedure Page1Change(Sender: TObject);
procedure chkIdnoClick(Sender: TObject);
procedure chkSexClick(Sender: TObject);
procedure chkNameClick(Sender: TObject);
procedure chkDateClick(Sender: TObject);
procedure btnQueryClick(Sender: TObject);
procedure ToolButton4Click(Sender: TObject);
procedure tbnSaveClick(Sender: TObject);
procedure tbnSelectClick(Sender: TObject);
private
strCon:string;
ClientID:string;
procedure InitData();
{ Private declarations }
public
{ Public declarations }
end;
var
frmRegist: TfrmRegist;
implementation
uses UnitMain, unitBebArrange, UnitRoomQuery;
{$R *.dfm}
procedure TfrmRegist.InitData();
var
smt:string;
begin
//读取性别信息
smt:='select * from sexlist order by sex_id';
adoquery.Close;
adoquery.ConnectionString :=strCon;
adoquery.SQL.Clear ;
adoquery.SQL.Add(smt);
try
adoquery.Open ;
cbosex.Items.Clear ;
while not adoquery.Eof do
begin
cbosex.Items.Add(adoquery.Fields[1].value);
ADOquery.Next;
end;
cbosex.ItemIndex:=0;
finally
adoquery.Close;
end;
//记取国家信息
smt:='select * from countrylist order by country_id';
try
adoquery.Close;
adoquery.SQL.Clear ;
adoquery.SQL.Add(smt);
adoquery.ConnectionString :=strCon;
adoquery.Open;
cbonation.Items.Clear ;
while not adoquery.Eof do
begin
cbonation.Items.Add(adoquery.Fields[1].value);
adoquery.next;
end;
cbonation.ItemIndex :=0;
finally
adoquery.Close ;
end;
end;
procedure TfrmRegist.FormShow(Sender: TObject);
begin
frmMain.ReadINI ;
strCon:=frmMain.strCon;
frmRegist.InitData ;
end;
procedure TfrmRegist.tbnExitClick(Sender: TObject);
begin
frmRegist.Close;
end;
{procedure TfrmRegist.ToolButton5Click(Sender: TObject);
var
smt:string;
PClient_Name,PClient_Sex,PClient_Country:TParameter;
PClient_Nation,PClient_Birth,PClient_Phone:TParameter;
PClient_Post,PClient_Address,PClient_IDNo:TParameter;
PImage_Path,PRegist_Date,PLive_Day,PLeave_Date:TParameter;
PRoom_ID,PBed_NO,PBedsta_ID,PMemo,PReturn_id:TParameter;
begin
adostored.ProcedureName:='RegistClient';
adostored.ConnectionString:=strCon;
adostored.Parameters.Clear;
//------------------ client name
PClient_Name:=adostored.Parameters.AddParameter;
PClient_Name.Name:='Client_Name';
PClient_Name.Value:=edtname.Text;
PClient_Name.DataType:=ftstring;
PClient_Name.Direction:=pdinput;
PClient_Name.size:=50;
//------------------- client sex
PClient_Sex:=adostored.Parameters.AddParameter;
PClient_Sex.Name:='Client_Sex';
PClient_Sex.Value:=cbosex.Text;
PClient_Sex.DataType:=ftstring;
PClient_Sex.Direction:=pdinput;
PClient_Sex.Size:=10;
//------------------- client country
PClient_Country:=adostored.Parameters.AddParameter;
PClient_Country.Name:='Client_Country';
PClient_Country.Value:=cbonation.Text;
PClient_Country.DataType:=ftstring;
PClient_Country.Direction :=pdinput;
PClient_Country.Size:=50;
//------------------- clent nation
PClient_Nation:=adostored.Parameters.AddParameter;
PClient_Nation.Name:='Client_Nation';
PClient_Nation.Value :='';
PClient_Nation.DataType:=ftstring;
PClient_Nation.Direction:=pdinput;
PClient_Nation.Size:=50;
//------------------- client birth
PClient_Birth:=adostored.Parameters.AddParameter;
PClient_Birth.Name:='Client_Birth';
PClient_Birth.Value:=edtbirth.Text;
PClient_Birth.DataType:=ftstring;
PClient_Birth.Direction:=pdinput;
PClient_Birth.Size:=10;
//-------------------clent phone
PClient_Phone:=adostored.Parameters.AddParameter;
PClient_Phone.Name:='Client_Phone';
PClient_Phone.Value:=edtphone.Text;
PClient_Phone.DataType:=ftstring;
PClient_Phone.Direction:=pdinput;
PClient_Phone.Size:=20;
//------------------- client post
PClient_Post:=adostored.Parameters.AddParameter;
PClient_Post.Name:='Client_Post';
PClient_Post.Value :='';
PClient_Post.DataType:=ftstring;
PClient_Post.Direction:=pdinput;
PClient_Post.Size:=20;
//------------------- client address
PClient_Address:=adostored.Parameters.AddParameter;
PClient_Address.Name:='Client_Address';
PClient_Address.Value :=edtaddress.text;
PClient_Address.DataType:=ftstring;
PClient_Address.Direction:=pdinput;
PClient_Address.Size:=50;
//------------------- clent identifier no
PClient_IDNo:=adostored.Parameters.AddParameter;
PClient_IDNo.Name:='Client_IDNo';
PClient_IDNo.Value :=edtno.text;
PClient_IDNo.DataType:=ftstring;
PClient_IDNo.Direction:=pdinput;
PClient_IDNo.Size:=20;
//------------------- finger image file path
PImage_Path:=adostored.Parameters.AddParameter;
PImage_Path.Name:='Image_Path';
PImage_Path.Value :='';
PImage_Path.DataType:=ftstring;
PImage_Path.Direction:=pdinput;
PImage_Path.Size:=50;
//------------------- regist datetime
PRegist_Date:=adostored.Parameters.AddParameter;
PRegist_Date.Name:='Regist_Date';
PRegist_Date.Value :=datetimetostr(now());
PRegist_Date.DataType:=ftstring;
PRegist_Date.Direction:=pdinput;
PRegist_Date.Size:=10;
//------------------- stay days
PLive_Day:=adostored.Parameters.AddParameter;
PLive_Day.Name:='Live_Day';
PLive_Day.Value :=spinedit1.Text ;
PLive_Day.DataType:=ftinteger;
PLive_Day.Direction:=pdinput;
{PClient_Address.Size:=50;}
//------------------- leave datetime
{PLeave_Date:=adostored.Parameters.AddParameter;
PLeave_Date.Name:='Leave_Date';
PLeave_Date.Value :=datetimetostr(now());
PLeave_Date.DataType:=ftstring;
PLeave_Date.Direction:=pdinput;
PLeave_Date.Size:=10;
//------------------- room number
PRoom_ID:=adostored.Parameters.AddParameter;
PRoom_ID.Name:='Room_ID';
PRoom_ID.Value :=0;
PRoom_ID.DataType:=ftinteger;
PRoom_ID.Direction:=pdinput;
{PClient_Address.Size:=50;}
//------------------- bed number
{PBed_NO:=adostored.Parameters.AddParameter;
PBed_NO.Name:='Bed_NO';
PBed_NO.Value :=0;
PBed_NO.DataType:=ftinteger;
PBed_NO.Direction:=pdinput;
{PClient_Address.Size:=50;}
//------------------- bed status
{PBedsta_ID:=adostored.Parameters.AddParameter;
PBedsta_ID.Name:='Bedsta_ID';
PBedsta_ID.Value :=1;
PBedsta_ID.DataType:=ftinteger;
PBedsta_ID.Direction:=pdinput;
{PClient_Address.Size:=50;}
//------------------- additional information
{PMemo:=adostored.Parameters.AddParameter;
PMemo.Name:='Memo';
PMemo.Value :=edtmemo.text;
PMemo.DataType:=ftstring;
PMemo.Direction:=pdinput;
PMemo.Size:=30;
//-------------------Return Regist_ID
PReturn_id:=adostored.Parameters.AddParameter;
PReturn_id.Name:='Return_id';
//PClient_Address.Value :=edtaddress.text;
PReturn_id.DataType:=ftlargeint;
PReturn_id.Direction:=pdoutput;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -