uarrangeorders.pas

是个办公系统,可以实现财务上的管理和人员的流动

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('该项目已经分配有负责人，请另选负责人！','系统警告',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('该员工已经负责了'+ProName+'项目，是否还让其负责？'),'提示',MB_OKCANCEL+MB_ICONINFORMATION)=mrOk then
         with dm.AQProject do
           begin
             edit;
             fieldvalues['chief']:=Chief;
             post;
             close;
             open;
             showmessage(Pchar('该项目被'+chief+'负责开发！'));
           end;
      end
     else
       begin
          with dm.AQProject do
           begin
             edit;
             fieldvalues['chief']:=Chief;
             post;
             close;
             open;
             showmessage(Pchar('该项目被'+chief+'负责开发！'));
           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('该项目没有技术负责人！','系统警告',mb_ok+mb_iconstop);
    Exit;
  end;
end;

end.