【delphi开源代码栏目提醒】:网学会员,鉴于大家对delphi开源代码十分关注,论文会员在此为大家搜集整理了“FormCustMain.pas”一文,供大家参考学习!
unit FormCustMain;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, Grids, DBGrids, StdCtrls, DB, ADODB, FormCustSub;
type
TFrmCustMain = class(TForm)
Panel1: TPanel;
DBGrid1: TDBGrid;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
ADOPublics: TADODataSet;
ds1: TDataSource;
procedure Button4Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
procedure CreateForm(State: TOperState);
public
{ Public declarations }
end;
var
FrmCustMain: TFrmCustMain;
implementation
uses DataModule;
{$R *.dfm}
procedure TFrmCustMain.Button4Click(Sender: TObject);
begin
close;
end;
procedure TFrmCustMain.CreateForm(State: TOperState);
begin
FrmCustSub := TFrmCustSub.Create(nil);
FrmCustSub.OperState := State;
FrmCustSub.ShowModal;
FrmCustSub.Free;
ADOPublics.Requery();
end;
procedure TFrmCustMain.Button1Click(Sender: TObject);
begin
createform(osAppend);
end;
procedure TFrmCustMain.Button2Click(Sender: TObject);
begin
createform(osEdit);
end;
procedure TFrmCustMain.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
Action := caFree;
end;
procedure TFrmCustMain.Button3Click(Sender: TObject);
begin
if not ADOPublics.IsEmpty then
if Application.MessageBox('确实要删除此条记录吗?', '', MB_YESNO +
MB_ICONQUESTION) = IDYES then
ADOPublics.Delete;
end;
end.