coviewunit.pas

短小而实用的房地产销售管理软件

Unit CoVIEWUnit;

Interface

Uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, ComCtrls, LbSpeedButton, ToolWin, DB, ADODB, Grids, DBGridEh,
   AAFont, AACtrls, ExtCtrls;

Type
   TComViewForm = Class(TForm)
      ADOQuery1: TADOQuery;
      DataSource1: TDataSource;
      ToolBar1: TToolBar;
      LbSpeedButton1: TLbSpeedButton;
      LbSpeedButton2: TLbSpeedButton;
      LbSpeedButton3: TLbSpeedButton;
      ToolButton1: TToolButton;
      LbSpeedButton4: TLbSpeedButton;
      LbSpeedButton5: TLbSpeedButton;
      DBGridEH1: TDBGridEh;
      Panel1: TPanel;
      AALabel1: TAALabel;
      Procedure SetBtnEnable(bEn: Boolean);
      Procedure FormClose(Sender: TObject; Var Action: TCloseAction);
      Procedure LbSpeedButton5Click(Sender: TObject);
      Procedure LbSpeedButton1Click(Sender: TObject);
      Procedure LbSpeedButton2Click(Sender: TObject);
      Procedure LbSpeedButton3Click(Sender: TObject);
      Procedure LbSpeedButton4Click(Sender: TObject);
      Procedure FormCreate(Sender: TObject);
      Procedure DBGridEh1DblClick(Sender: TObject);
   Private
    { Private declarations }
   Public
    { Public declarations }
   End;

Var
   ComViewForm      : TComViewForm;

Implementation
Uses DM, EditComUnit, PUBFunction;
{$R *.dfm}

Procedure TComViewForm.FormClose(Sender: TObject;
   Var Action: TCloseAction);
Begin
   Action := cafree;
   ComViewForm := Nil;
End;

Procedure TComViewForm.LbSpeedButton5Click(Sender: TObject);
Begin
   Close;
End;

Procedure TComViewForm.LbSpeedButton1Click(Sender: TObject);
Begin
   If ADOQuery1.Active Then Begin
      ADOQuery1.Append;
      EditComUnit.BADD := true;
      If Assigned(EditComForm) Then Begin
         SetWindowPos(EditComForm.Handle, 0, 0, 0, 0, 0, swp_nomove +
            swp_nosize);
         Exit;
      End;
      EditComForm := TEditComForm.create(self);
      EditComForm.ShowModal;
   End;
End;

Procedure TComViewForm.LbSpeedButton2Click(Sender: TObject);
Begin
   If ADOQuery1.Active Then Begin
      If ADOQuery1.recordcount > 0 Then Begin
         ADOQuery1.edit;
         EditComUnit.BADD := false;
         If Assigned(EditComForm) Then Begin
            SetWindowPos(EditComForm.Handle, 0, 0, 0, 0, 0, swp_nomove +
               swp_nosize);
            Exit;
         End;
         EditComForm := TEditComForm.create(self);
         EditComForm.ShowModal;
      End;
   End;
End;

Procedure TComViewForm.LbSpeedButton3Click(Sender: TObject);

   Procedure DelRecAboutGD(sTablename: String);
   Var
      ADOD          : TADOQuery;
   Begin
      ADOD := TADOQuery.create(self);
      With ADOD Do Begin
         connection := DM.DataModule2.ADOConnection1;
         sql.Text := 'DELETE * FROM ' + sTablename + ' where 公司编号=''' +
            ADOQuery1.fieldbyname('公司编号').Text + '''';
         ExecSQL;
         Free;
      End;

   End;

Var
   i                : integer;
Begin
   If ADOQuery1.Active Then Begin

      //删除其他相关表中编号
      For i := 0 To sTnames.Count - 1 Do
         If (ExtFieldInTable(sTnames[i], '公司编号')) Then
            If Not (sTnames[i] = '公司信息表') Then
               DelRecAboutGD(sTnames[i]);

      If ADOQuery1.recordcount > 0 Then
         ADOQuery1.Delete;
   End;

End;

Procedure TComViewForm.LbSpeedButton4Click(Sender: TObject);
Var
   crecno           : integer;
Begin
   crecno := ADOQuery1.RecNo;
   ADOQuery1.Close;
   ADOQuery1.sql.Text := 'select * from 公司信息表';
   ADOQuery1.open;
   If ADOQuery1.recordcount > crecno Then
      ADOQuery1.RecNo := crecno;

End;

Procedure TComViewForm.FormCreate(Sender: TObject);
Begin
   ADOQuery1.Active := true;
   SetBtnEnable(ADOQuery1.recordcount > 0);
End;

Procedure TComViewForm.DBGridEh1DblClick(Sender: TObject);
Begin
   LbSpeedButton2.click;                //修改显示
End;

Procedure TComViewForm.SetBtnEnable(bEn: Boolean);
Begin
 //  LbSpeedButton1.Enabled := bEn;
   LbSpeedButton2.Enabled := bEn;
   LbSpeedButton3.Enabled := bEn;
   LbSpeedButton4.Enabled := bEn;
End;

End.