comviewfm.pas.~8~

一款房产中介软件

Unit ComVIEWFM;

Interface

Uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, ComCtrls, ToolWin, DB, ADODB, Grids, DBGridEh, ExtCtrls, StdCtrls,
  GridsEh, Buttons;

Type
   TfrmComView = Class(TForm)
      ADOQuery1: TADOQuery;
      DataSource1: TDataSource;
      ToolBar1: TToolBar;
      LbSpeedButton1: TSpeedButton;
      LbSpeedButton2: TSpeedButton;
      LbSpeedButton3: TSpeedButton;
      LbSpeedButton4: TSpeedButton;
      LbSpeedButton5: TSpeedButton;
      DBGridEH1: TDBGridEh;
      Panel1: TPanel;
      AALabel1: TLabel;
    ADOQuery1Code: TWideStringField;
    ADOQuery1CName: TWideStringField;
    ADOQuery1LegalRep: TWideStringField;
    ADOQuery1Attrib: TWideStringField;
    ADOQuery1CompGrade: TWideStringField;
    ADOQuery1Bankroll: TFloatField;
    ADOQuery1CompCertNO: TWideStringField;
    ADOQuery1PassDate: TDateTimeField;
    ADOQuery1BusLicenNO: TWideStringField;
    ADOQuery1FoundDate: TDateTimeField;
    ADOQuery1Bank: TWideStringField;
    ADOQuery1BankAccounts: TWideStringField;
    ADOQuery1Tel: TWideStringField;
    ADOQuery1Address: TWideStringField;
    ADOQuery1Contactor: TWideStringField;
    ADOQuery1ConPhone: TWideStringField;
    ADOQuery1Remark: TWideStringField;
    ADOQuery1CType: TWideStringField;
    ADOQuery1ID: TIntegerField;
      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);
    procedure ADOQuery1NewRecord(DataSet: TDataSet);
   Private
    { Private declarations }
   Public
    { Public declarations }
   End;

Var
   frmComView      : TfrmComView;

Implementation
Uses MainDM, EditComFM, PUBFunction, Globe;
{$R *.dfm}

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

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

Procedure TfrmComView.LbSpeedButton1Click(Sender: TObject);
Begin
   If ADOQuery1.Active Then Begin
      ADOQuery1.Append;
      
      if frmEditCom = nil then
        frmEditCom := TfrmEditCom.create(self);
      frmEditCom.Show;
      frmEditCom.BADD := true;
   End;
End;

Procedure TfrmComView.LbSpeedButton2Click(Sender: TObject);
Begin
   If ADOQuery1.Active Then Begin
      If ADOQuery1.recordcount > 0 Then Begin
         ADOQuery1.edit;

         if frmEditCom = nil then
          frmEditCom := TfrmEditCom.create(self);
         frmEditCom.Show;
         frmEditCom.BADD := false;
      End;
   End;
End;

Procedure TfrmComView.LbSpeedButton3Click(Sender: TObject);

   Procedure DelRecAboutGD(sTablename: String);
   Var
      ADOD          : TADOQuery;
   Begin
      ADOD := TADOQuery.create(self);
      With ADOD Do Begin
         connection := DMMain.ADOConnection1;
         sql.Text := 'DELETE * FROM ' + sTablename + ' where code=''' +
            ADOQuery1.fieldbyname('code').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], 'code')) Then
            If Not (sTnames[i] = 'company') Then
               DelRecAboutGD(sTnames[i]);

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

End;

Procedure TfrmComView.LbSpeedButton4Click(Sender: TObject);
Var
   crecno           : integer;
Begin
   crecno := ADOQuery1.RecNo;
   ADOQuery1.Close;
   ADOQuery1.sql.Text := 'select * from company';
   ADOQuery1.open;
   If ADOQuery1.recordcount > crecno Then
      ADOQuery1.RecNo := crecno;

End;

Procedure TfrmComView.FormCreate(Sender: TObject);
Begin
   ADOQuery1.sql.Text := 'select * from company';
   ADOQuery1.open;
   SetBtnEnable(ADOQuery1.recordcount > 0);
End;

procedure TfrmComView.ADOQuery1NewRecord(DataSet: TDataSet);
begin
  DataSet.FieldByName('ID').Value := GetMaxID('Company');
end;

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

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

End.