import.pas

来自「产品信息系统!关于产品基础信息的系统!功能强大!」· PAS 代码 · 共 75 行

unit import;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, InfoBase, ExtCtrls, Grids, DBGridEh, wwDialog, wwidlg, DB,
  ADODB, ActnList, ComCtrls, ToolWin;

type
  Tfrmimport = class(TfrmInfoBase)
    wwDGDetail: TDBGridEh;
    Splitter1: TSplitter;
    DBGridEh1: TDBGridEh;
    Action1: TAction;
    QBaseInfoId: TBCDField;
    QBaseInfoXh: TStringField;
    QBaseInfoRemark: TStringField;
    QBaseInfoInputer: TStringField;
    QBaseInfoTime_Input: TDateTimeField;
    QBaseInfoPerfecter: TStringField;
    QBaseInfoTime_Perfect: TDateTimeField;
    QBaseInfoSave_Time: TDateTimeField;
    QBaseInfoSizes: TStringField;
    QBaseInfoPlate: TStringField;
    QBaseInfoTechnicsPic: TBlobField;
    QBaseInfoGrainCount: TBCDField;
    QBaseInfoMaterial: TStringField;
    QBaseInfoArea_plate: TBCDField;
    QBaseInfoPrice_material: TBCDField;
    QBaseInfoPrice_plate: TBCDField;
    QBaseInfoPrice_spray: TBCDField;
    QBaseInfoStandOneSortNo: TStringField;
    QBaseInfoStandOneSortName: TStringField;
    QBaseInfoPhoto: TBlobField;
    QBaseInfoAuditer: TStringField;
    QBaseInfoTime_Audit: TDateTimeField;
    QBaseInfosign_Audit: TBooleanField;
    QBaseInfosign_Artdept: TBooleanField;
    QBaseInfosign_Design: TBooleanField;
    QBaseInfoNumber: TStringField;
    QBaseInfoArtdepter: TStringField;
    QBaseInfoTime_Artdept: TDateTimeField;
    Splitter2: TSplitter;
    DBGridEh2: TDBGridEh;
    QCC: TADOQuery;
    QGY: TADOQuery;
    DSCC: TDataSource;
    DSGY: TDataSource;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmimport: Tfrmimport;

implementation
uses DataModule,Global,ProductInfo;
{$R *.dfm}

procedure Tfrmimport.FormCreate(Sender: TObject);
begin
  inherited;
  if Qcc.Active=False then
    Qcc.Active:=True;
  if QGY.Active=False then
    QGY.Active:=True;
  Action1.Enabled :=(frmProductInfo.QBaseInfo.State in [dsInsert]) and (QBaseInfo.RecordCount>0);
end;

end.