unit UarrangeOrders;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DBGrids, Buttons;

type
  TfrmArrangeOrders = class(TForm)
    GroupBox1: TGroupBox;
    DBGrid1: TDBGrid;
    sbtnRight: TSpeedButton;
    GroupBox2: TGroupBox;
    sbtnLeft: TSpeedButton;
    DBGrid2: TDBGrid;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure sbtnRightClick(Sender: TObject);
    procedure sbtnLeftClick(Sender: TObject);
  private
    { Private declaratio }
  public
    { Public declarations }
  end;

var
  frmArrangeOrders: TfrmArrangeOrders;

implementation

uses Mydata;

{$R *.dfm}

procedure TfrmArrangeOrders.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action:=caFree;
end;

procedure TfrmArrangeOrders.sbtnRightClick(Sender: TObject);
var
 Chief,ProName:string;
begin
 if DBGrid1.DataSource.DataSet.IsEmpty then Exit;
 if DBGrid2.DataSource.DataSet.IsEmpty then Exit;
 if DBGrid2.Fields[4].AsString<>'' then
  begin
    Application.MessageBox('該項目已經(jīng)分配有負責人，請另選負責人！','系統(tǒng)警告',MB_ok+MB_Iconstop);
    Exit;
  end
 else
  begin
   Chief:=DBGrid1.Fields[1].AsString;
   with dm.AQMintech do
    begin
     close;
     sql.Clear;
     sql.Add('select * from ProjectItem where Chief='''+Chief+'''');
     open;
     if RecordCount>0 then
      begin
      ProName:=FieldValues['ProName'];
      if MessageBox(self.Handle,Pchar('該員工已經(jīng)負責了'+ProName+'項目，是否還讓其負責？'),'提示',MB_OKCANCEL+MB_ICONINFORMATION)=mrOk then
         with dm.AQProject do
           begin
             edit;
             fieldvalues['chief']:=Chief;
             post;
             close;
             open;
             showmessage(Pchar('該項目被'+chief+'負責開發(fā)！'));
           end;
      end
     else
       begin
          with dm.AQProject do
           begin
             edit;
             fieldvalues['chief']:=Chief;
             post;
             close;
             open;
             showmessage(Pchar('該項目被'+chief+'負責開發(fā)！'));
           end
       end;
     end;
  end;
end;

procedure TfrmArrangeOrders.sbtnLeftClick(Sender: TObject);
var
 ProNO:string;
begin
 if DBGrid1.DataSource.DataSet.IsEmpty then Exit;
 if DBGrid2.DataSource.DataSet.IsEmpty then Exit;
 if DBGrid2.Fields[4].AsString<>'' then
  begin
    ProNO:=DBGrid2.Fields[0].AsString;
    with dm.AQMintech do
      begin
        close;
        sql.Clear;
        sql.Add('update ProjectItem  set chief = null  where ProNO='''+ProNO+'''');
        execsql;
        dm.AQProject.Close;
        dm.AQProject.Open;
      end;
  end
 else
  begin
    Application.MessageBox('該項目沒有技術(shù)負責人！','系統(tǒng)警告',mb_ok+mb_iconstop);
    Exit;
  end;
end;

end.