mc_tsxz.pas

1、系统环境要求：所有程序均在Windows98/XP操作系统下测试运行。 2、建议用户在系统上安装DELPHI7.0企业版。 3、如果数据库为SQL Server数据库

unit MC_TSXZ;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, DBTables, StdCtrls, Mask, DBCtrls, Grids, DBGrids, Buttons;

type
  TTSXZ = class(TForm)
    Table1: TTable;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    Query1: TQuery;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  TSXZ: TTSXZ;

implementation

{$R *.DFM}

procedure TTSXZ.FormClose(Sender: TObject; var Action: TCloseAction);
begin
     TSXZ.Release;
     TSXZ:=Nil;
end;

procedure TTSXZ.BitBtn3Click(Sender: TObject);
begin
     if Table1.RecordCount<>0 then
     Table1.Delete;
end;

procedure TTSXZ.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) 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 TTSXZ.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;

end.