editcomfm.pas.~4~

一款房产中介软件

Unit EditComFM;

Interface

Uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, StdCtrls, Mask, DBCtrls, DBCtrlsEh, ExtCtrls, DB, ADODB, LbButton;

Type
   TfrmEditCom = Class(TForm)
      AALabel1: TLabel;
      DBEdit1: TDBEdit;
      LbButton1: TButton;
      LbButton2: TButton;
      AALabel2: TLabel;
      DBEdit2: TDBEdit;
      AALabel3: TLabel;
      AALabel4: TLabel;
      AALabel5: TLabel;
      DBEdit3: TDBEdit;
      AALabel6: TLabel;
      AALabel7: TLabel;
      DBEdit4: TDBEdit;
      AALabel8: TLabel;
      AALabel9: TLabel;
      DBComboBox1: TDBComboBox;
      AALabel10: TLabel;
      DBComboBox2: TDBComboBox;
      AALabel11: TLabel;
      DBEdit5: TDBEdit;
      AALabel13: TLabel;
      AALabel14: TLabel;
      DBNumberEditEh1: TDBNumberEditEh;
      AALabel15: TLabel;
      AALabel16: TLabel;
      DBEdit7: TDBEdit;
      AALabel12: TLabel;
      AALabel17: TLabel;
      DBDateTimeEditEh1: TDBDateTimeEditEh;
      AALabel18: TLabel;
      AALabel19: TLabel;
      DBDateTimeEditEh2: TDBDateTimeEditEh;
      Bevel1: TBevel;
      AALabel20: TLabel;
      DBEdit6: TDBEdit;
      AALabel21: TLabel;
      AALabel22: TLabel;
      DBEdit8: TDBEdit;
      AALabel23: TLabel;
      AALabel24: TLabel;
      DBEdit9: TDBEdit;
      AALabel25: TLabel;
      AALabel26: TLabel;
      DBEdit10: TDBEdit;
      AALabel27: TLabel;
      AALabel28: TLabel;
      DBEdit11: TDBEdit;
      AALabel30: TLabel;
      DBEdit12: TDBEdit;
      AALabel29: TLabel;
      AALabel31: TLabel;
      AALabel32: TLabel;
      DBMemo1: TDBMemo;
      AALabel33: TLabel;
      AALabel34: TLabel;
      Procedure FormClose(Sender: TObject; Var Action: TCloseAction);
      Procedure LbButton1Click(Sender: TObject);
      Procedure LbButton2Click(Sender: TObject);
      Procedure DBDateTimeEditEh1Exit(Sender: TObject);
      Procedure DBDateTimeEditEh2Exit(Sender: TObject);
      Procedure FormCreate(Sender: TObject);
   Private
    { Private declarations }
   Public
     BADD: Boolean;
   End;

Var
   frmEditCom      : TfrmEditCom;
  
   strTempCoID      : String;
Implementation
Uses MainDM, ComVIEWFM, PUBFunction;
{$R *.dfm}

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

Procedure TfrmEditCom.LbButton1Click(Sender: TObject);
Begin
   frmComView.ADOQuery1.Cancel;
   Close;
End;

Procedure TfrmEditCom.LbButton2Click(Sender: TObject);

   Function IsInputNil: Boolean;
   Begin
      result := true;
      If (Trim(DBEdit1.Text) = '') Or (Trim(DBEdit2.Text) = '') Then Begin
         Application.MessageBox('记录添加失败！公司编号公司名称不能为空！请修改公司编号名称！',
            '出错信息', MB_ICONERROR);
         DBEdit1.SetFocus;
         result := false;
      End;
   End;

   Function ExtRec: Boolean;
   Var
      ADOQ          : TADOQuery;
   Begin
      ADOQ := TADOQuery.create(self);
      With ADOQ Do Begin
         connection := DMMain.ADOConnection1;
         sql.Text := 'SELECT 公司名称 FROM 公司信息表' +
            ' WHERE 公司编号=''' + DBEdit1.Text + '''';
         open;
         result := recordcount > 0;
         Free;
      End;
   End;

   Procedure ModifyRecAboutGD(sTablename: String);
   Var
      ADOX          : TADOQuery;
   Begin
      ADOX := TADOQuery.create(self);
      ADOX.connection := DMMain.ADOConnection1;
      ADOX.sql.Text := 'UPDATE ' + sTablename + ' SET 公司编号='''
         + DBEdit1.Text + ''' where 公司编号=''' + strTempCoID + '''';
      ADOX.ExecSQL;
      ADOX.Free;

   End;
Var

   i                : integer;
Begin
   If Not IsInputNil Then Exit;
   If BADD Then Begin
      If ExtRec Then Begin
         Application.MessageBox('记录添加失败，记录已存在！请修改公司编号',
            '出错信息', MB_ICONERROR);
         DBEdit1.SetFocus;
         Exit;
      End;
   End Else Begin
      If DBEdit1.Text <> strTempCoID Then Begin
         If ExtRec Then Begin
            Application.MessageBox('记录修改失败，记录已存在！请修改公司编号',
               '出错信息', MB_ICONERROR);
            DBEdit1.Text := '';
            DBEdit1.SetFocus;
            Exit;
         End;
      End;
   End;
   //修改其他相关表中编号
   For i := 0 To sTnames.Count - 1 Do
      If (ExtFieldInTable(sTnames[i], '公司编号')) Then
         If Not (sTnames[i] = '公司信息表') Then
            ModifyRecAboutGD(sTnames[i]);

   frmComView.ADOQuery1.post;
   Close;
End;

Procedure TfrmEditCom.DBDateTimeEditEh1Exit(Sender: TObject);
Begin

   FixEhDTBug(DBDateTimeEditEh1);
End;

Procedure TfrmEditCom.DBDateTimeEditEh2Exit(Sender: TObject);
Begin
   FixEhDTBug(DBDateTimeEditEh2);
End;

Procedure TfrmEditCom.FormCreate(Sender: TObject);
Begin
   strTempCoID := frmComView.ADOQuery1.fieldbyname('公司编号').Text;
End;

End.