technicsflow.pas

产品信息系统!关于产品基础信息的系统!功能强大!

unit TechnicsFlow;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BaseDefine, wwDialog, wwidlg, DB, ADODB, ActnList, ComCtrls,
  ToolWin, Grids, DBGridEh, ExtCtrls, StdCtrls, PrnDbgeh, Mask, DBCtrlsEh,
  DBLookupEh,DBGrids;

type
  TfrmTechnicsFlow = class(TfrmBaseDefine)
    ds1: TDataSource;
    qry1: TADOQuery;
    PrintDBGridEh1: TPrintDBGridEh;
    QBaseInfoid: TAutoIncField;
    QBaseInfoplate_no: TStringField;
    QBaseInfoplate: TStringField;
    QBaseInfoTechnicsFlow: TStringField;
    QBaseInforemark: TStringField;
    qry1plate_no: TStringField;
    qry1plate_name: TStringField;
    QBaseInfosplate_no: TStringField;
    QBaseInfoProperty: TStringField;
    Qpublic: TADOQuery;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure acPrintExecute(Sender: TObject);
    procedure QBaseInfoNewRecord(DataSet: TDataSet);
    procedure FormCreate(Sender: TObject);
    procedure DBGridEh1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmTechnicsFlow: TfrmTechnicsFlow;

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

procedure TfrmTechnicsFlow.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  frmTechnicsFlow:=nil;
end;

procedure TfrmTechnicsFlow.acPrintExecute(Sender: TObject);
begin
  inherited;
  PrintDBGridEh1.BeforeGridText.Strings[0]:='电镀工艺流程';
  printdbgrideh1.Preview;
end;

procedure TfrmTechnicsFlow.QBaseInfoNewRecord(DataSet: TDataSet);
begin
  inherited;
  with  QBaseInfo do
  begin
    FieldValues['Property']:='';
    FieldValues['plate_no']:='';
    FieldValues['plate']:='';
    FieldValues['TechnicsFlow']:='';
    FieldValues['remark']:='';
  end;
end;

procedure TfrmTechnicsFlow.FormCreate(Sender: TObject);
begin
  inherited;
  DBGridEh1.FieldColumns['Property'].PickList.Clear;
  with Qpublic do
  begin
    Close;
    sql.Add('select name from ccbase where type=''属性'' order by sort');
    Open;
    First;
    while not Eof do
    begin
      DBGridEh1.FieldColumns['Property'].PickList.Add(fieldvalues['name']);
      next;
    end;  
  end;
end;

procedure TfrmTechnicsFlow.DBGridEh1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  inherited;
  if Shift>=[ssctrl] then
    DBGridEh1.Options:=DBGridEh1.Options+[dgRowSelect]
  else
  begin
    DBGridEh1.Options:=DBGridEh1.Options-[dgRowSelect];
    DBGridEh1.Options:=DBGridEh1.Options+[dgEditing];
  end;  
end;

end.