【delphi开源代码栏目提醒】:以下是网学会员为您推荐的delphi开源代码-clientUnit.pas,希望本篇文章对您学习有所帮助。
unit clientUnit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, StdCtrls, DBCtrls, Mask, Buttons, ToolWin,
ComCtrls, ExtCtrls, DB, DBTables;
type
TClientForm = class(TForm)
Panel1: TPanel;
ToolBar1: TToolBar;
btadd: TBitBtn;
btok: TBitBtn;
Btdel: TBitBtn;
btno1: TBitBtn;
Panel2: TPanel;
Label6: TLabel;
Label8: TLabel;
Label4: TLabel;
Label7: TLabel;
Label1: TLabel;
Label3: TLabel;
Label5: TLabel;
TS_ID: TDBEdit;
TS_User: TDBEdit;
UserTel: TDBEdit;
AddRess: TDBEdit;
chargeItemNum: TDBEdit;
Com_Person: TDBEdit;
TS_Memo: TDBMemo;
Panel3: TPanel;
DBGrid1: TDBGrid;
Page1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
TabSheet3: TTabSheet;
TabSheet4: TTabSheet;
Panel4: TPanel;
Panel5: TPanel;
Label2: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
Label16: TLabel;
Label17: TLabel;
Label18: TLabel;
DBGrid2: TDBGrid;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
DBEdit5: TDBEdit;
DBEdit6: TDBEdit;
DBEdit7: TDBEdit;
DBEdit8: TDBEdit;
DBMemo1: TDBMemo;
Label19: TLabel;
DBEdit9: TDBEdit;
Label20: TLabel;
DBEdit10: TDBEdit;
DBEdit11: TDBEdit;
Label21: TLabel;
DBEdit12: TDBEdit;
Label22: TLabel;
DBEdit13: TDBEdit;
Label23: TLabel;
DBEdit14: TDBEdit;
Label24: TLabel;
DBEdit15: TDBEdit;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
SpeedButton3: TSpeedButton;
Label25: TLabel;
DBEdit16: TDBEdit;
Label26: TLabel;
DBEdit17: TDBEdit;
Label27: TLabel;
DBEdit18: TDBEdit;
Label28: TLabel;
DBEdit19: TDBEdit;
Label29: TLabel;
DBMemo2: TDBMemo;
Panel6: TPanel;
DBGrid3: TDBGrid;
SpeedButton4: TSpeedButton;
Panel7: TPanel;
DBGrid4: TDBGrid;
Label30: TLabel;
Label31: TLabel;
Label32: TLabel;
Label33: TLabel;
Label34: TLabel;
Label35: TLabel;
Label36: TLabel;
Label39: TLabel;
DBEdit20: TDBEdit;
DBEdit21: TDBEdit;
DBEdit22: TDBEdit;
DBEdit23: TDBEdit;
DBEdit24: TDBEdit;
DBEdit25: TDBEdit;
DBEdit26: TDBEdit;
DBMemo3: TDBMemo;
SpeedButton5: TSpeedButton;
SpeedButton6: TSpeedButton;
procedure CheckStr(Sender: TObject; Name: string);
procedure FormCreate(Sender: TObject);
procedure btaddClick(Sender: TObject);
procedure btokClick(Sender: TObject);
procedure BtdelClick(Sender: TObject);
procedure btno1Click(Sender: TObject);
procedure Page1Change(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject);
procedure SpeedButton4Click(Sender: TObject);
procedure SpeedButton6Click(Sender: TObject);
procedure SpeedButton5Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
ClientForm: TClientForm;
implementation
uses udm, dateUnit, selectTextUnit, SelectDataUnit;
{$R *.dfm}
procedure TClientForm.CheckStr(Sender: TObject; Name: string);
begin
if Trim((sender as Tdbedit).Text) = '' then
begin
ShowMessage(Name + ': 此栏必须填写信息!');
(Sender as TDBEdit).SetFocus;
end;
end;
procedure TClientForm.FormCreate(Sender: TObject);
begin
caption := '住户资料录入';
page1.TabIndex := 0; // 初始化,选项卡显示第一个
end;
procedure TClientForm.btaddClick(Sender: TObject);
var
NewID: string;
begin
try
case page1.ActivePageIndex of
0:
begin
adodm.client.Last; //返到记录的最后一个
NewID := IntToStr(adodm.client.FieldByName('住户编号').AsInteger + 1);
//新记录的编号
adodm.client.Append; //增加新记录
TS_ID.Text := NewID; //把新记录的编号
end;
1:
begin
adodm.ttemp.Append;
//当追加新记录的时候,把当前记录的编号和名称自动输入
DBedit9.Text := adodm.client.FieldByName('住户编号').AsString;
DBedit10.Text := adodm.client.FieldByName('住户名称').AsString;
end;
2:
begin
adodm.search1.Append;
//当追加新记录的时候,把当前记录的编号和名称自动输入
DBedit12.Text := adodm.client.FieldByName('住户编号').AsString;
DBedit11.Text := adodm.client.FieldByName('住户名称').AsString;
end;
3:
begin
adodm.ClientFamily.Append;
//当追加新记录的时候,把当前记录的编号和名称自动输入
DBedit14.Text := adodm.client.FieldByName('住户编号').AsString;
DBedit13.Text := adodm.client.FieldByName('住户名称').AsString;
end;
end;
except
showmessage('产生例外错误,请联系开发人员或者程序供应商');
end;
end;
procedure TClientForm.btokClick(Sender: TObject);
begin
try
case page1.ActivePageIndex of
0:
begin
CheckStr(TS_ID, '住户编号'); //检查不能够为空的项目
CheckStr(TS_user, '住户名称');
CheckStr(UserTel, '联系电话');
CheckStr(Address, '联系电话'); //检查不能够为空的项目
adodm.client.Post; //提交新记录
end;
1:
begin
CheckStr(DBEdit9, '住户编号'); //检查不能够为空的项目
CheckStr(DBEdit10, '住户名称');
CheckStr(DBEdit15, '使用状况');
CheckStr(DBEdit1, '小区名称'); //检查不能够为空的项目
CheckStr(DBEdit2, '楼宇名称');
CheckStr(DBEdit3, '楼层');
CheckStr(DBEdit4, '房屋号'); //检查不能够为空的项目
CheckStr(DBEdit5, '单元');
CheckStr(DBEdit6, '迁入日期');
CheckStr(DBEdit8, '房型'); //检查不能够为空的项目
adodm.ttemp.Post;
end;
2:
begin
CheckStr(DBEdit12, '住户编号'); //检查不能够为空的项目
CheckStr(DBEdit11, '住户名称');
CheckStr(DBEdit20, '收费名称');
CheckStr(DBEdit23, '定额用量');
CheckStr(DBEdit24, '定额内价格');
CheckStr(DBEdit25, '超定额价格'); //检查不能够为空的项目
adodm.search1.Post;
end;
3:
begin
CheckStr(DBEdit14, '住户编号'); //检查不能够为空的项目
CheckStr(DBEdit13, '住户名称');
CheckStr(DBEdit16, '');
CheckStr(DBEdit17, '性别');
CheckStr(DBEdit18, '生日');
CheckStr(DBEdit19, '称谓'); //检查不能够为空的项目
adodm.ClientFamily.Post;
end;
end;
except
showmessage('产生例外错误,请联系开发人员或者程序供应商');
end;
end;
procedure TClientForm.BtdelClick(Sender: TObject);
begin
if MessageDlg('您确定要删除录入的数据吗?', mtConfirmation, [mbYes, mbNo], 0)
= mrYes then
begin
try
case page1.ActivePageIndex of
0: adodm.client.Delete; //删除当前记录
1: adodm.Ttemp.Delete;
2: adodm.search1.Delete;
3: adodm.ClientFamily.Delete;
end;
except
showmessage('产生例外错误,请联系开发人员或者程序供应商');
end;
end;
end;
procedure TClientForm.btno1Click(Sender: TObject);
begin
try
case page1.ActivePageIndex of
0: adodm.client.Cancel; //取消加入新记录
1: adodm.ttemp.Cancel;
2: adodm.search1.Cancel;
3: adodm.ClientFamily.Cancel;
end;
except
showmessage('产生例外错误,请联系开发人员或者程序供应商');
end;
close;
end;
procedure TClientForm.Page1Change(Sender: TObject);
begin
case page1.TabIndex of
1:
begin
with adodm.ttemp do
begin
Close;
CommandText := '';
CommandText :=
'SELECT * FROM ClientRoomTa
上一篇:
FrmCOQury.frm
下一篇:
经济酒店发展:China''s economy hotel market development strategies