mc_zxxxdj.pas

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

unit MC_ZXXXDJ;

interface

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

type
  TZXXXDJ = class(TForm)
    GroupBox1: TGroupBox;
    Table1: TTable;
    Table1BDEDesigner: TStringField;
    Table1BDEDesigner2: TStringField;
    Table1BDEDesigner3: TStringField;
    Table1BDEDesigner4: TStringField;
    Table1BDEDesigner5: TDateTimeField;
    Table1BDEDesigner6: TDateTimeField;
    Table1BDEDesigner7: TFloatField;
    Table1BDEDesigner8: TFloatField;
    Table1BDEDesigner9: TFloatField;
    Table1BDEDesigner10: TDateTimeField;
    Table1BDEDesigner11: TFloatField;
    Table1BDEDesigner12: TMemoField;
    Table1BDEDesigner13: TStringField;
    Table1BDEDesigner14: TStringField;
    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;
    DBEdit7: TDBEdit;
    Label8: TLabel;
    DBEdit8: TDBEdit;
    Label9: TLabel;
    DBEdit9: TDBEdit;
    Label10: TLabel;
    DBEdit10: TDBEdit;
    Label11: TLabel;
    DBEdit11: TDBEdit;
    Label12: TLabel;
    DBMemo1: TDBMemo;
    Label13: TLabel;
    Label14: TLabel;
    DBEdit12: TDBEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    DBNavigator1: TDBNavigator;
    DBLookupComboBox1: TDBLookupComboBox;
    Table2: TTable;
    DataSource2: TDataSource;
    Table2BDEDesigner: TStringField;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn4Click(Sender: TObject);
    procedure DBEdit1KeyPress(Sender: TObject; var Key: Char);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ZXXXDJ: TZXXXDJ;

implementation

uses MC_ZXXXLL, MC_MainForm;

{$R *.DFM}
procedure TZXXXDJ.FormShow(Sender: TObject);
begin
  if MainForm.Query1.Locate('使用选项','装修信息登记',[loCaseInsensitive]) then
    begin
    if MainForm.query1.FieldByName('读写').AsString='读' then
    begin
      Bitbtn1.Enabled:=False;
      BitBtn2.Enabled:=False;
      Bitbtn3.Enabled:=false;
    end;
  end;
end;
procedure TZXXXDJ.BitBtn1Click(Sender: TObject);   //添加或保存装修数据
begin
if BitBtn1.Caption='添加[&I]' then   //添加装修数据
begin
  table1.Append;  //添加一条新记录
  Table1.FieldbyName('编号').AsString:=IntToStr(Table1.RecordCount+1);  //自动生成装修编号
  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 TZXXXDJ.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 TZXXXDJ.BitBtn3Click(Sender: TObject);    //删除装修信息操作
begin
  If Table1.RecordCount <> 0 Then  //装修信息不为空
  if MessageDLg('是否删除['+Table1.FieldByName('编号').AsString+']的信息?'
     ,mtCustom,[mbYes,mbNo],0)=mryes then Table1.Delete;
end;

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

procedure TZXXXDJ.BitBtn4Click(Sender: TObject);   //装修信息浏览查询
begin
  If Not Assigned(ZXXXLL) Then
    begin
      ZXXXLL:=TZXXXLL.Create(Self);
      ZXXXLL.ShowModal;
    end;
end;

procedure TZXXXDJ.DBEdit1KeyPress(Sender: TObject; var Key: Char);   //回车跳转焦点
begin
  if key=#13 then PerForm(WM_NEXTDLGCTL,0,0);
end;

end.