【delphi开源代码栏目提醒】:本文主要为网学会员提供ParkUnit.pas,希望对需要ParkUnit.pas网友有所帮助,学习一下!
unit ParkUnit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, DBCtrls, ToolWin, ComCtrls, Mask, Grids,
DBGrids, ExtCtrls;
type
TParkForm = class(TForm)
Panel3: TPanel;
DBGrid1: TDBGrid;
Panel2: TPanel;
Label6: TLabel;
Label8: TLabel;
Label1: TLabel;
Label3: TLabel;
Label5: TLabel;
TS_ID: TDBEdit;
TS_User: TDBEdit;
User_ID: TDBEdit;
TS_date: TDBEdit;
Panel1: TPanel;
ToolBar1: TToolBar;
btadd: TBitBtn;
btok: TBitBtn;
Btdel: TBitBtn;
btno1: TBitBtn;
DBMemo1: TDBMemo;
SpeedButton2: TSpeedButton;
SpeedButton1: TSpeedButton;
SpeedButton3: TSpeedButton;
procedure FormCreate(Sender: TObject);
procedure btaddClick(Sender: TObject);
procedure btokClick(Sender: TObject);
procedure BtdelClick(Sender: TObject);
procedure btno1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure User_IDChange(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
ParkForm: TParkForm;
implementation
uses udm, dateUnit, selectDataUnit;
{$R *.dfm}
procedure TParkForm.FormCreate(Sender: TObject);
begin
ParkForm.Caption := '住户停车车位管理';
end;
procedure TParkForm.btaddClick(Sender: TObject);
begin
try
adodm.Part.Append;
except
showmessage('添加数据产生错误');
end;
end;
procedure TParkForm.btokClick(Sender: TObject);
begin
try
adodm.Part.Post;
close;
except
showmessage('添加数据产生错误');
end;
end;
procedure TParkForm.BtdelClick(Sender: TObject);
begin
if MessageDlg('您确定要删除录入的数据吗?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
begin
try
adodm.Part.Delete;
except
showmessage('删除数据产生错误');
end;
end;
end;
procedure TParkForm.btno1Click(Sender: TObject);
begin
try
adodm.Part.Cancel;
close;
except
showmessage('错误产生,请与
软件供应商联系');
end;
end;
procedure TParkForm.SpeedButton2Click(Sender: TObject);
begin
Application.CreateForm(TdateForm, dateForm);
if (dateForm.ShowModal = mrOk) then
begin
TS_Date.Text := '';
TS_Date.Text := DateTimeToStr(dateForm.date1.date);
end;
dateForm.Free;
end;
procedure TParkForm.User_IDChange(Sender: TObject);
begin
with adodm.search2 do
begin
Close;
CommandText := 'SELECT 住户名称 FROM ClientTable where 住户编号=:住户编号';
Parameters.ParamByName('住户编号').Value := User_ID.Text;
open;
end;
TS_User.DataSource := adodm.dssearch2;
TS_User.DataField := '住户名称';
end;
procedure TParkForm.SpeedButton1Click(Sender: TObject);
begin
Application.CreateForm(TSelectDataForm, SelectDataForm);
SelectDataForm.Caption := '请选择车位编号';
with SelectDataForm.DBLookupComboBox1 do
begin
with adodm.search1 do
begin
Close;
CommandText := 'SELECT 车位编号 FROM PartTable';
open;
end;
ListSource := adodm.dssearch1;
KeyField := '车位编号';
if adodm.search1.RecordCount > 0 then ListFieldIndex := 0;
end;
if SelectDataForm.ShowModal = mrOk then
TS_ID.Text := SelectDataForm.DBLookupComboBox1.Text;
end;
procedure TParkForm.SpeedButton3Click(Sender: TObject);
begin
Application.CreateForm(TSelectDataForm, SelectDataForm);
SelectDataForm.Caption := '请选择用户编号';
with SelectDataForm.DBLookupComboBox1 do
begin
with adodm.search3 do
begin
Close;
CommandText := 'SELECT 住户编号 FROM PartTable';
open;
end;
ListSource := adodm.dssearch3;
KeyField := '住户编号';
if adodm.search3.RecordCount > 0 then ListFieldIndex := 0;
end;
if SelectDataForm.ShowModal = mrOk then
TS_User.Text := SelectDataForm.DBLookupComboBox1.Text;
end;
end.