uout.pas

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

unit uOut;               

interface

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

type
  TfmOut = class(Tfmpub2)
    GridMasOutNo: TdxDBGridMaskColumn;
    GridMasOutDate: TdxDBGridDateColumn;
    GridMasVendorName: TdxDBGridLookupColumn;
    GridMasRemark: TdxDBGridMaskColumn;
    GridMasCreater: TdxDBGridMaskColumn;
    GridMasCreateDate: TdxDBGridDateColumn;
    GridMasUpdater: TdxDBGridMaskColumn;
    GridMasUpdateDate: TdxDBGridDateColumn;
    GridMasApprover: TdxDBGridMaskColumn;
    GridMasApproveDate: TdxDBGridDateColumn;
    GridMasConfirmer: TdxDBGridMaskColumn;
    GridMasConfirmDate: TdxDBGridDateColumn;
    GridSubOrderNo: TdxDBGridMaskColumn;
    GridSubProjectId: TdxDBGridMaskColumn;
    GridSubProjectName: TdxDBGridLookupColumn;
    GridSubUnitName: TdxDBGridLookupColumn;
    GridSubRemark: TdxDBGridMaskColumn;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    DBEdit3: TDBEdit;
    wwDBDateTimePicker1: TwwDBDateTimePicker;
    dxDBButtonEdit1: TdxDBButtonEdit;
    GridEnterUnitName: TdxDBGridLookupColumn;
    GridEnterRemark: TdxDBGridMaskColumn;
    GridEnterOrderNo: TdxDBGridButtonColumn;
    GridEnterQty: TdxDBGridCalcColumn;
    GridEnterPrice: TdxDBGridCalcColumn;
    GridEnterProjectId: TdxDBGridButtonColumn;
    GridEnterProjectName: TdxDBGridMaskColumn;
    GridSubQty: TdxDBGridMaskColumn;
    GridSubPrice: TdxDBGridMaskColumn;
    Label5: TLabel;
    DBLookupComboBox1: TDBLookupComboBox;
    Label6: TLabel;
    DBEdit2: TDBEdit;
    Label7: TLabel;
    DBEdit4: TDBEdit;
    Label8: TLabel;
    DBEdit5: TDBEdit;
    Label9: TLabel;
    DBEdit6: TDBEdit;
    Label10: TLabel;
    DBEdit7: TDBEdit;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmOut: TfmOut;

implementation

uses uWIPDM, SherryLib;

{$R *.dfm}

procedure TfmOut.FormCreate(Sender: TObject);
begin
  inherited;
  DBEdit1.ReadOnly:=Exists(Format('select 1 from SysConfig where Note%dAutoNo=1 and ID=1',[10]));
end;

end.