mc_tsfs.~pas

这是用Delphi编写的小区物业管理系统

unit MC_TSFS;

interface

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

type
  TTSFS = class(TForm)
    Table1: TTable;
    Table1BDEDesigner: TIntegerField;
    Table1BDEDesigner2: TStringField;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    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
  TSFS: TTSFS;

implementation

{$R *.DFM}

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

procedure TTSFS.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 TTSFS.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 TTSFS.BitBtn3Click(Sender: TObject);
begin
    if Table1.RecordCount<>0 then
     Table1.Delete;
end;

end.