frmrequestordermanage.pas

物流供应链管理系统

unit frmRequestOrderManage;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, LCDBOperatTool, DBCtrls, DB, ADODB,
  DBSelectDlgEdit, ComCtrls, DBDateTimePicker, Mask, Grids, DBGrids;

type
  TFormRequestOrderManage = class(TForm)
    LCDBOperatTool1: TLCDBOperatTool;
    ADOCon: TADOConnection;
    ADOTRequestOrderListMaster: TADOTable;
    ADOTRequestOrderListSlave: TADOTable;
    ADOTEmployee: TADOTable;
    DSRequestOrderListMaster: TDataSource;
    DSRequestOrderListSlave: TDataSource;
    DSEmployee: TDataSource;
    DSDepartment: TDataSource;
    ADOTDepartment: TADOTable;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    DBCheckBox1: TDBCheckBox;
    DBCheckBox2: TDBCheckBox;
    DBEdit1: TDBEdit;
    DBDateTimePicker1: TDBDateTimePicker;
    DBSelectDlgEdit1: TDBSelectDlgEdit;
    DBSelectDlgEdit2: TDBSelectDlgEdit;
    DBGrid1: TDBGrid;
    GroupBox1: TGroupBox;
    Button1: TButton;
    LCDBOperatTool2: TLCDBOperatTool;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBDateTimePicker2: TDBDateTimePicker;
    DBGrid2: TDBGrid;
    ADOTRequestOrderListSlaveBarCode: TWideStringField;
    ADOTRequestOrderListSlaveAmount: TLargeintField;
    ADOTRequestOrderListSlaveReceivableDate: TDateTimeField;
    ADOTRequestOrderListSlaveMasterId: TWideStringField;
    ADOTRequestOrderListMasterId: TWideStringField;
    ADOTRequestOrderListMasterRequestDate: TDateTimeField;
    ADOTRequestOrderListMasterRequestDepartId: TWideStringField;
    ADOTRequestOrderListMasterRequestOperatorId: TWideStringField;
    ADOTRequestOrderListMasterIsChecked: TBooleanField;
    ADOTRequestOrderListMasterIsProcessed: TBooleanField;
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormCreate(Sender: TObject);
    procedure LCDBOperatTool1Click(Btn: TToolButton;
      var Continued: Boolean);
    procedure LCDBOperatTool2Click(Btn: TToolButton;
      var Continued: Boolean);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormRequestOrderManage: TFormRequestOrderManage;

implementation
uses untConfig, CommonFunc;
{$R *.dfm}

procedure TFormRequestOrderManage.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
  Perform(WM_NEXTDLGCTL,0,0);
end;

procedure TFormRequestOrderManage.FormCreate(Sender: TObject);
begin
  ADOCon.Close;
  ADOCon.ConnectionString := GetConnectionString;
  try
    ADOCon.Open;
  except
    LCShowMessage('数据库连接错误！');
  end;
end;

procedure TFormRequestOrderManage.LCDBOperatTool1Click(Btn: TToolButton;
  var Continued: Boolean);
begin
  if ADOTRequestOrderListMaster.FieldByName('IsChecked').AsBoolean or
     ADOTRequestOrderListMaster.FieldByName('IsProcessed').AsBoolean then
  begin
    LCShowMessage('此单已经审核或者已经处理，不能更改！');
    Continued := false;
  end;
end;

procedure TFormRequestOrderManage.LCDBOperatTool2Click(Btn: TToolButton;
  var Continued: Boolean);
begin
  if ADOTRequestOrderListMaster.FieldByName('IsChecked').AsBoolean or
     ADOTRequestOrderListMaster.FieldByName('IsProcessed').AsBoolean then
  begin
    LCShowMessage('此单已经审核或者已经处理，不能更改！');
    Continued := false;
  end;
end;

procedure TFormRequestOrderManage.Button1Click(Sender: TObject);
begin
  if ADOTRequestOrderListMaster.FieldByName('IsChecked').AsBoolean then
    LCShowMessage('此单已经审核!不用再次审核！')
  else
  begin
    ADOTRequestOrderListMaster.FieldByName('IsChecked').AsBoolean := true;
    ADOTRequestOrderListMaster.Post;
    LCShowMessage('审核成功!');
  end;
end;

end.