viewworkerunit.pas

安邦售楼系统单机版 (DELPHI格式源码),比较实用

Unit ViewWorkerUnit;

Interface

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

Type
   TWorkerViewForm = Class(TForm)
      ToolBar1: TToolBar;
      LbSpeedButton1: TLbSpeedButton;
      LbSpeedButton2: TLbSpeedButton;
      LbSpeedButton3: TLbSpeedButton;
      ToolButton1: TToolButton;
      LbSpeedButton4: TLbSpeedButton;
      LbSpeedButton5: TLbSpeedButton;
      DBGridEH1: TDBGridEh;
      Panel1: TPanel;
      AALabel1: TAALabel;
      ADOQuery2: TADOQuery;
      DataSource2: TDataSource;
      Splitter1: TSplitter;
      DBGridEh2: TDBGridEh;
      DataSource1: TDataSource;
      ADOQuery1: TADOQuery;
      Procedure SetBtnEnable(bEn: Boolean);
      Procedure LbSpeedButton5Click(Sender: TObject);
      Procedure FormClose(Sender: TObject; Var Action: TCloseAction);
      Procedure FormCreate(Sender: TObject);
      Procedure LbSpeedButton4Click(Sender: TObject);
      Procedure LbSpeedButton1Click(Sender: TObject);
      Procedure LbSpeedButton2Click(Sender: TObject);
      Procedure DBGridEh1CellClick(Column: TColumnEh);
      Procedure LbSpeedButton3Click(Sender: TObject);
      Procedure DBGridEh2DblClick(Sender: TObject);
      Procedure ADOQuery1AfterScroll(DataSet: TDataSet);
   Private
    { Private declarations }
   Public
    { Public declarations }
   End;

Var
   WorkerViewForm   : TWorkerViewForm;

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

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

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

Procedure TWorkerViewForm.FormCreate(Sender: TObject);
Begin
   ADOQuery1.Active := true;
   SetBtnEnable(ADOQuery1.recordcount > 0);
   If ADOQuery1.recordcount > 0 Then
      DBGridEh1CellClick(DBGridEH1.Columns.Items[0]);

End;

Procedure TWorkerViewForm.LbSpeedButton4Click(Sender: TObject);

Begin

   ADOQuery1.Close;
   ADOQuery1.sql.Text := 'SELECT 公司名称,公司编号 from 公司信息表';
   ADOQuery1.open;

   DBGridEh1CellClick(DBGridEH1.Columns.Items[0]);
End;

Procedure TWorkerViewForm.LbSpeedButton1Click(Sender: TObject);
Begin
   If ADOQuery2.Active Then Begin
      ADOQuery2.Append;
      EditWorkerUnit.BADD := true;
      If Assigned(EditWorkerForm) Then Begin
         SetWindowPos(EditWorkerForm.Handle, 0, 0, 0, 0, 0, swp_nomove +
            swp_nosize);
         Exit;
      End;
      EditWorkerForm := TEditWorkerForm.create(self);
      EditWorkerForm.ShowModal;
   End;
End;

Procedure TWorkerViewForm.LbSpeedButton2Click(Sender: TObject);
Begin
   If ADOQuery2.Active Then Begin
      If ADOQuery2.recordcount = 0 Then Exit;
      ADOQuery2.edit;
      EditWorkerUnit.BADD := false;
      If Assigned(EditWorkerForm) Then Begin
         SetWindowPos(EditWorkerForm.Handle, 0, 0, 0, 0, 0, swp_nomove +
            swp_nosize);
         Exit;
      End;
      EditWorkerForm := TEditWorkerForm.create(self);
      EditWorkerForm.ShowModal;
   End;
End;

Procedure TWorkerViewForm.DBGridEh1CellClick(Column: TColumnEh);
Begin
   If ADOQuery1.recordcount = 0 Then Exit;
   ADOQuery2.sql.Text := 'select * from 业务员信息表 where 公司编号=''' +
      ADOQuery1.fieldbyname('公司编号').Text + '''';
   ADOQuery2.open;
End;

Procedure TWorkerViewForm.LbSpeedButton3Click(Sender: TObject);
Begin
   If ADOQuery2.Active Then
      If ADOQuery2.recordcount > 0 Then
         ADOQuery2.Delete;
End;

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

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

Procedure TWorkerViewForm.ADOQuery1AfterScroll(DataSet: TDataSet);
Begin
   DBGridEh1CellClick(DBGridEH1.Columns.Items[0]);
End;

End.