ufinish.pas

来自「成本系统三层结构源码 开发工具：Delphi 7.0+SQLServer 20」· PAS 代码 · 共 83 行

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.