ufinish.pas

成本系统三层结构源码 开发工具：Delphi 7.0+SQLServer 2005 主要技术：Midas、COM+ 所用第三方控件： FastReport V2.47 D7 Inforp

unit uFinish;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, upub3, dxExEdtr, ImgList, ActnList, Menus, DB, ComCtrls,
  ToolWin, dxCntner, dxTL, dxDBCtrl, dxDBGrid, ExtCtrls, dxEditor, dxEdLib,
  StdCtrls, wwdbdatetimepicker, dxDBTLCl, dxGrClms, Tabs;

type
  TfmFinish = class(Tfmpub3)
    TypeTabSet: TTabSet;
    DBGrid1OrderNo: TdxDBGridMaskColumn;
    DBGrid1ShortName: TdxDBGridMaskColumn;
    DBGrid1FullName: TdxDBGridMaskColumn;
    DBGrid1OrderDate: TdxDBGridDateColumn;
    DBGrid1PoNo: TdxDBGridMaskColumn;
    DBGrid1Status1: TdxDBGridMaskColumn;
    DBGrid1ShipDate: TdxDBGridDateColumn;
    DBGrid1ShipedDate: TdxDBGridDateColumn;
    procedure TypeTabSetChange(Sender: TObject; NewTab: Integer;
      var AllowChange: Boolean);
    procedure FormCreate(Sender: TObject);
    procedure AConfirmExecute(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmFinish: TfmFinish;

implementation

uses udmcost, SherryLib;

{$R *.dfm}

procedure TfmFinish.TypeTabSetChange(Sender: TObject; NewTab: Integer;
  var AllowChange: Boolean);
begin
  AllowChange := True;
  case NewTab of
    0,1,2:
       begin
         DataSource1.DataSet.Filter := Format('Status=''%d''',[NewTab]);
         DataSource1.DataSet.Filtered := True;
       End;
    3: DataSource1.DataSet.Filtered := False;
  end;
end;

procedure TfmFinish.FormCreate(Sender: TObject);
begin
  TypeTabSet.TabIndex:=3;
  CmbProject.ItemIndex:=1;
  OpenData(DataSource1);
  TypeTabSet.TabIndex:=0;
  inherited;
end;

procedure TfmFinish.AConfirmExecute(Sender: TObject);
begin
  if DMCost.COrderFinish.ChangeCount>0 then
  DMCost.COrderFinish.ApplyUpdates(0)
end;

procedure TfmFinish.DBGrid1DblClick(Sender: TObject);
begin
  if DMCost.COrderFinish.IsEmpty then exit;
  DMCost.COrderFinish.Edit;
  DMCost.COrderFinish['Status']:=IntToStr(CmbProject.ItemIndex);
  if CmbProject.ItemIndex=1 then
  DMCost.COrderFinish['ShipedDate']:=DTPMonth.Date
  else DMCost.COrderFinish.FieldByName('ShipedDate').Clear;
  DMCost.COrderFinish.Post;
end;

end.