【delphi开源代码栏目提醒】:网学会员鉴于大家对delphi开源代码十分关注,论文会员在此为大家搜集整理了“complain.pas”一文,供大家参考学习
unit complain;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, StdCtrls, Buttons, Grids, DBGrids, ExtCtrls;
type
TComplainForm = class(TForm)
Panel1: TPanel;
GroupBox1: TGroupBox;
Label1: TLabel;
edCustomerName: TEdit;
Label2: TLabel;
edTelNo: TEdit;
Label3: TLabel;
edAddress: TEdit;
GroupBox2: TGroupBox;
memReason: TMemo;
GroupBox3: TGroupBox;
memResult: TMemo;
Panel2: TPanel;
Panel3: TPanel;
GroupBox4: TGroupBox;
dbgridCurrentRecs: TDBGrid;
btOK: TBitBtn;
btUpdate: TBitBtn;
btSearch: TBitBtn;
cbStartDate: TDateTimePicker;
cbEndDate: TDateTimePicker;
Label4: TLabel;
Label5: TLabel;
chkSearch: TCheckBox;
btDel: TButton;
procedure chkSearchClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure btOKClick(Sender: TObject);
procedure btUpdateClick(Sender: TObject);
procedure btDelClick(Sender: TObject);
procedure dbgridCurrentRecsCellClick(Column: TColumn);
procedure btSearchClick(Sender: TObject);
private
{ Private declarations }
public
procedure ZeroInput;
end;
var
ComplainForm: TComplainForm;
implementation
uses HotelDataModule,HotelClasses,hotelmain;
{$R *.dfm}
procedure TComplainForm.chkSearchClick(Sender: TObject);
begin
if chkSearch.State = cbChecked then
begin
cbStartDate.Enabled :=true;
cbEndDAte.Enabled :=true;
end
else
begin
cbStartDate.Enabled :=false;
cbEndDAte.Enabled :=false;
end;
end;
procedure TComplainForm.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
HotelManagerForm.mnCustomComplain.Enabled :=true;
ComplainForm.Destroy;
end;
procedure TComplainForm.btOKClick(Sender: TObject);
var
Complain :ComplainInfo;
ComPlainManager :ComplainDBM;
begin
Complain :=Complaininfo.Create;
ComplainManager :=complainDBM.Create;
if not Complain.SetComplainInfoTo then
exit;
ComplainManager.AddComplain(Complain);
zeroInput;
Complain.Free;
ComplainManager.Free;
end;
procedure TComplainForm.ZeroInput;
begin
edCustomerName.Text :='';
edTelNo.Text :='';
edAddress.Text :='';
memReason.Text :='';
memResult.Text :='';
btUpdate.Enabled :=false;
btDel.Enabled :=false;
end;
procedure TComplainForm.btUpdateClick(Sender: TObject);
var
Complain :ComplainInfo;
ComPlainManager :ComplainDBM;
begin
Complain :=Complaininfo.Create;
ComplainManager :=complainDBM.Create;
if not Complain.SetComplainInfoTo then
ComplainManager.ModiyTheComplain(Complain);
zeroInput;
Complain.Free;
ComplainManager.Free;
end;
procedure TComplainForm.btDelClick(Sender: TObject);
var
ComplainManager :ComplainDBM;
begin
ComplainManager :=ComplainDBM.Create;
ComplainManager.DelComplainRecord;
ComplainManager.Free;
end;
procedure TComplainForm.dbgridCurrentRecsCellClick(Column: TColumn);
var
ComplainManager :ComplainDBM;
begin
btUpdate.Enabled :=true;
btDel.Enabled :=true;
ComplainManager :=ComplainDBM.Create;
ComplainManager.LoadFromTable;
end;
procedure TComplainForm.btSearchClick(Sender: TObject);
var
Complain :ComplainInfo;
ComPlainManager :ComplainDBM;
begin
Complain :=Complaininfo.Create;
ComplainManager :=complainDBM.Create;
Complain.searchid :=true;
Complain.SetComplainInfoTo;
MainDataModule.ComplainTable.Filtered :=false;
MainDataModule.ComplainTable.Filter :=ComplainManager.SearchTheComplain(Complain);
MainDataModule.ComplainTable.Filtered :=true;
zeroInput;
Complain.Free;
ComplainManager.Free;
end;
end.
上一篇:
DragTreeItem.cpp
下一篇:
“台独”的渊源与实质(中)——兼论台湾问题的基本估计与中国统一的可能前景