【delphi开源代码栏目提醒】:网学会员为广大网友收集整理了,MC_TSZT.pas,希望对大家有所帮助!
unit MC_TSZT;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Db, DBTables, Grids, DBGrids, StdCtrls, Mask, DBCtrls, Buttons;
type
TTSZT = class(TForm)
Table1: TTable;
Table1BDEDesigner: TIntegerField;
Table1BDEDesigner2: TStringField;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
GroupBox1: TGroupBox;
Label1: TLabel;
DBEdit1: TDBEdit;
Label2: TLabel;
DBEdit2: TDBEdit;
Query1: TQuery;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
TSZT: TTSZT;
implementation
{$R *.DFM}
procedure TTSZT.FormClose(Sender: TObject; var Action: TCloseAction);
begin
TSZT.Release;
TSZT:=Nil;
end;
procedure TTSZT.BitBtn1Click(Sender: TObject);
begin
if bitBtn1.Caption='添加[&I]' then
begin
BitBtn1.Caption:='保存[&S]';
BitBtn2.Caption:='放弃[&U]';
BitBtn3.Enabled:=False;
GroupBox1.Enabled:=True;
Query1.Close;
Query1.Open;
Table1.Append;
Table1.FieldByName('编号').AsInteger:=Query1.Fields[0].AsInteger+1;
DBEdit2.SEtFocus;
end
else
begin
if (Length(Table1.FieldByName('编号').AsString)=0) or
(Length(Table1.FieldByName('投诉状态').AsString)=0) Then
begin
ShowMessage('请将信息添全');
DBEdit2.SEtFocus;
end
else
begin
BitBtn1.Caption:='添加[&I]';
BitBtn2.Caption:='修改[&E]';
BitBtn3.Enabled:=True;
GroupBox1.Enabled:=False;
Table1.Post;
end;
end;
end;
procedure TTSZT.BitBtn2Click(Sender: TObject);
begin
if BitBtn2.Caption='修改[&E]' then
begin
Table1.Edit;
BitBtn1.Caption:='保存[&S]';
BitBtn2.Caption:='放弃[&U]';
GroupBox1.Enabled:=True;
Bitbtn3.Enabled:=False;
DBEdit2.SetFocus;
End
else
begin
Bitbtn1.Caption:='添加[&I]';
BitBtn2.Caption:='修改[&E]';
GroupBox1.Enabled:=False;
BitBtn3.Enabled:=True;
table1.Cancel;
end;
end;
procedure TTSZT.BitBtn3Click(Sender: TObject);
begin
if Table1.RecordCount<>0 then
Table1.Delete;
end;
end.