mc_zxddj.~pas

物业管理 1.建立一个WYGL数据库

unit MC_ZXDDJ;

interface

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

type
  TZXDDJ = class(TForm)
    GroupBox1: TGroupBox;
    Table1: TTable;
    Table1BDEDesigner: TStringField;
    Table1BDEDesigner2: TStringField;
    Table1BDEDesigner3: TStringField;
    Table1BDEDesigner4: TStringField;
    Table1BDEDesigner5: TStringField;
    Table1BDEDesigner6: TStringField;
    Table1BDEDesigner7: TMemoField;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    DataSource1: TDataSource;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    Label4: TLabel;
    DBEdit4: TDBEdit;
    Label5: TLabel;
    DBEdit5: TDBEdit;
    Label6: TLabel;
    DBEdit6: TDBEdit;
    Label7: TLabel;
    DBMemo1: TDBMemo;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    DBNavigator1: TDBNavigator;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure DBEdit1KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit1Enter(Sender: TObject);
    procedure DBEdit1Exit(Sender: TObject);
    procedure DBMemo1Enter(Sender: TObject);
    procedure DBMemo1Exit(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ZXDDJ: TZXDDJ;

implementation

uses MC_ZXDLL;

{$R *.DFM}

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

procedure TZXDDJ.BitBtn3Click(Sender: TObject);
begin
     if Table1.RecordCount<>0 then
     if MessageDLg('是否删除['+Table1.FieldByName('装修队名').AsString+']的信息?'
        ,mtCustom,[mbYes,mbNo],0)=mryes then Table1.Delete;
end;

procedure TZXDDJ.BitBtn1Click(Sender: TObject);
begin
     if BitBtn1.Caption='添加[&I]' then
        begin
             table1.Append;
             BitBtn1.caption:='保存[&S]';
             Bitbtn2.Caption:='取消[&U]';
             BitBtn3.Enabled:=False;
             BitBtn4.enabled:=False;
             DBNavigator1.Enabled:=False;
             GroupBox1.Enabled:=True;
             DBEdit1.SetFocus;
        end
     else
        begin
             if Length(Table1.FieldbyName('装修队名').AsString)=0 then
                ShowMessage('请输入装修队名称')
             else
                begin
                     table1.Post;
                     BitBtn1.Caption:='添加[&I]';
                     BitBtn2.Caption:='修改[&E]';
                     BitBtn3.Enabled:=True;
                     BitBtn4.Enabled:=True;
                     DBNavigator1.Enabled:=True;
                     GroupBox1.Enabled:=False;
                end;
        end;
end;

procedure TZXDDJ.BitBtn2Click(Sender: TObject);
begin
     if BitBtn2.Caption='修改[&E]' then
        begin
             Table1.Edit;
             BitBtn1.caption:='保存[&S]';
             Bitbtn2.Caption:='取消[&U]';
             BitBtn3.Enabled:=False;
             BitBtn4.enabled:=False;
             DBNavigator1.Enabled:=False;
             GroupBox1.Enabled:=True;
             DBEdit1.SetFocus;
        end
     else
        begin
             BitBtn1.Caption:='添加[&I]';
             BitBtn2.Caption:='修改[&E]';
             BitBtn3.Enabled:=True;
             BitBtn4.Enabled:=True;
             DBNavigator1.Enabled:=True;
             GroupBox1.Enabled:=False;
             Table1.Cancel;
        end;
end;

procedure TZXDDJ.BitBtn4Click(Sender: TObject);
begin
     if not Assigned(ZXDLL) then
        begin
             ZXDLL:=TZXDLL.Create(Self);
             ZXDLL.ShowModal;
        end;
end;

procedure TZXDDJ.DBEdit1KeyPress(Sender: TObject; var Key: Char);
begin
     if key=#13 then PerForm(WM_NEXTDLGCTL,0,0);
end;

procedure TZXDDJ.DBEdit1Enter(Sender: TObject);
begin
     TDBEdit(Sender).Color:=ClAQua;
end;

procedure TZXDDJ.DBEdit1Exit(Sender: TObject);
begin
     TDBEdit(Sender).Color:=ClWindow;
end;

procedure TZXDDJ.DBMemo1Enter(Sender: TObject);
begin
     DBMemo1.Color:=CLAQua;
end;

procedure TZXDDJ.DBMemo1Exit(Sender: TObject);
begin
     DBMemo1.Color:=CLWindow;
end;

procedure TZXDDJ.FormShow(Sender: TObject);
begin
     if MainFrom.Query1.Locate('使用选项','装修队登记',[loCaseInsensitive]) then
        begin
             if MainFrom.query1.FieldbyName('读写').AsString='读' then
                begin
                     bitbtn1.Enabled:=False;
                     BitBtn2.Enabled:=False;
                     BitBtn3.Enabled:=False;
                end;
        end;

end;

end.