infoimport.pas

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

unit InfoImport;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Base, ActnList, ComCtrls, ToolWin, cxStyles, cxCustomData,
  cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData,
  cxBlobEdit, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
  cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGrid, ADODB,
  ExtCtrls, cxButtonEdit, cxMemo;

type
  TfrmInfoImport = class(TfrmBase)
    ToolBar: TToolBar;
    tbtFirst: TToolButton;
    tbtPrior: TToolButton;
    tbtNext: TToolButton;
    tbtLast: TToolButton;
    tbtDivider: TToolButton;
    tbtOK: TToolButton;
    tbtCancel: TToolButton;
    dsBaseInfo: TDataSource;
    QBaseInfo: TADOQuery;
    DSCC: TDataSource;
    QCC: TADOQuery;
    QGY: TADOQuery;
    DSGY: TDataSource;
    cxGrid1DBTableView1: TcxGridDBTableView;
    cxGrid1Level1: TcxGridLevel;
    cxGrid1: TcxGrid;
    cxGrid1DBTableView1Xh: TcxGridDBColumn;
    cxGrid1DBTableView1Remark: TcxGridDBColumn;
    cxGrid1DBTableView1Sizes: TcxGridDBColumn;
    cxGrid1DBTableView1Plate: TcxGridDBColumn;
    cxGrid1DBTableView1GrainCount: TcxGridDBColumn;
    cxGrid1DBTableView1Material: TcxGridDBColumn;
    cxGrid1DBTableView1Area_plate: TcxGridDBColumn;
    cxGrid1DBTableView1Price_plate: TcxGridDBColumn;
    cxGrid1DBTableView1Price_material: TcxGridDBColumn;
    cxGrid1DBTableView1Price_spray: TcxGridDBColumn;
    cxGrid1DBTableView2: TcxGridDBTableView;
    QCCCc_ID: TBCDField;
    QCCfID: TBCDField;
    QCCXh: TStringField;
    QCCSizes: TStringField;
    QCCPlate: TStringField;
    QCCNames: TStringField;
    QCCDatas: TBCDField;
    QCCInputer: TStringField;
    QCCTime_Input: TDateTimeField;
    QCCPerfecter: TStringField;
    QCCTime_Perfect: TDateTimeField;
    QCCSave_Time: TDateTimeField;
    QCCSort: TIntegerField;
    QCCRemark: TStringField;
    QCCMaterial: TStringField;
    QCCColor: TStringField;
    QCCUpperLimit: TBCDField;
    QCCLowerLimit: TBCDField;
    cxGrid1DBTableView2Cc_ID: TcxGridDBColumn;
    cxGrid1DBTableView2fID: TcxGridDBColumn;
    cxGrid1DBTableView2Xh: TcxGridDBColumn;
    cxGrid1DBTableView2Sizes: TcxGridDBColumn;
    cxGrid1DBTableView2Plate: TcxGridDBColumn;
    cxGrid1DBTableView2Names: TcxGridDBColumn;
    cxGrid1DBTableView2Datas: TcxGridDBColumn;
    cxGrid1DBTableView2Inputer: TcxGridDBColumn;
    cxGrid1DBTableView2Time_Input: TcxGridDBColumn;
    cxGrid1DBTableView2Perfecter: TcxGridDBColumn;
    cxGrid1DBTableView2Time_Perfect: TcxGridDBColumn;
    cxGrid1DBTableView2Save_Time: TcxGridDBColumn;
    cxGrid1DBTableView2Sort: TcxGridDBColumn;
    cxGrid1DBTableView2Remark: TcxGridDBColumn;
    cxGrid1DBTableView2Material: TcxGridDBColumn;
    cxGrid1DBTableView2Color: TcxGridDBColumn;
    cxGrid1DBTableView2UpperLimit: TcxGridDBColumn;
    cxGrid1DBTableView2LowerLimit: TcxGridDBColumn;
    Splitter1: TSplitter;
    cxGrid2DBTableView1: TcxGridDBTableView;
    cxGrid2Level1: TcxGridLevel;
    cxGrid2: TcxGrid;
    cxGrid3DBTableView1: TcxGridDBTableView;
    cxGrid3Level1: TcxGridLevel;
    cxGrid3: TcxGrid;
    Splitter2: TSplitter;
    cxGrid2DBTableView1Names: TcxGridDBColumn;
    cxGrid2DBTableView1Datas: TcxGridDBColumn;
    cxGrid2DBTableView1Sort: TcxGridDBColumn;
    cxGrid2DBTableView1Remark: TcxGridDBColumn;
    cxGrid2DBTableView1UpperLimit: TcxGridDBColumn;
    cxGrid2DBTableView1LowerLimit: TcxGridDBColumn;
    cxGrid3DBTableView1plant: TcxGridDBColumn;
    cxGrid3DBTableView1art: TcxGridDBColumn;
    cxGrid3DBTableView1notice: TcxGridDBColumn;
    cxGrid3DBTableView1sort: TcxGridDBColumn;
    QGYGy_ID: TBCDField;
    QGYfid: TBCDField;
    QGYxh: TStringField;
    QGYsizes: TStringField;
    QGYplate: TStringField;
    QGYplant: TStringField;
    QGYart: TStringField;
    QGYnotice: TStringField;
    QGYsave_time: TDateTimeField;
    QGYinputer: TStringField;
    QGYtime_input: TDateTimeField;
    QGYperfecter: TStringField;
    QGYtime_perfect: TDateTimeField;
    QGYsort: TIntegerField;
    QCCplant: TStringField;
    cxGrid2DBTableView1plant: TcxGridDBColumn;
    QGYtechnics: TStringField;
    cxGrid3DBTableView1technics: TcxGridDBColumn;
    QBaseInfoid: TBCDField;
    QBaseInfoxh: TStringField;
    QBaseInfosizes: TStringField;
    QBaseInfoplate: TStringField;
    QBaseInfoGrainCount: TBCDField;
    QBaseInfoMaterial: TStringField;
    QBaseInfoArea_plate: TBCDField;
    QBaseInfoPrice_material: TBCDField;
    QBaseInfoPrice_plate: TBCDField;
    QBaseInfoPrice_spray: TBCDField;
    QBaseInforemark: TStringField;
    QBaseInfoplate_no: TStringField;
    QCCPlate_no: TStringField;
    QGYPlate_no: TStringField;
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure QBaseInfoAfterOpen(DataSet: TDataSet);
    procedure tbtFirstClick(Sender: TObject);
    procedure tbtNextClick(Sender: TObject);
    procedure tbtPriorClick(Sender: TObject);
    procedure tbtLastClick(Sender: TObject);
    procedure tbtCancelClick(Sender: TObject);
    procedure tbtOKClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmInfoImport: TfrmInfoImport;

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

procedure TfrmInfoImport.FormDestroy(Sender: TObject);
begin
  inherited;
  frmInfoImport:=nil;
end;

procedure TfrmInfoImport.FormCreate(Sender: TObject);
begin
  inherited;
  with QBaseInfo do
  begin
    Close;
    SQL.Clear;
    if G_sDepName='合金品管' then
      SQL.Add('select id,xh,sizes,plate,plate_no,GrainCount,Material,Area_plate,Price_material,Price_plate,Price_spray,remark from CcModel_Remark where sizes<>''***'' and number like ''hj%''')
    else
    if G_sDepName='五金品管' then
      SQL.Add('select id,xh,sizes,plate,plate_no,GrainCount,Material,Area_plate,Price_material,Price_plate,Price_spray,remark from CcModel_Remark where sizes<>''***'' and number not like ''hj%''')
    else
      SQL.Add('select id,xh,sizes,plate,plate_no,GrainCount,Material,Area_plate,Price_material,Price_plate,Price_spray,remark from CcModel_Remark where sizes<>''***'' ');
    Open;
  end;  
  tbtOK.Enabled := frmProductInfo.tbtSave.Enabled;
end;

procedure TfrmInfoImport.QBaseInfoAfterOpen(DataSet: TDataSet);
begin
  inherited;
  if QCc.Active=False then
    QCc.Active:=True;
  if QGy.Active=False then
    QGy.Active:=True;
end;

procedure TfrmInfoImport.tbtFirstClick(Sender: TObject);
begin
  inherited;
   QBaseInfo.First;
end;

procedure TfrmInfoImport.tbtNextClick(Sender: TObject);
begin
  inherited;
   QBaseInfo.Prior;
end;

procedure TfrmInfoImport.tbtPriorClick(Sender: TObject);
begin
  inherited;
   QBaseInfo.Next;
end;

procedure TfrmInfoImport.tbtLastClick(Sender: TObject);
begin
  inherited;
   QBaseInfo.Last;
end;

procedure TfrmInfoImport.tbtCancelClick(Sender: TObject);
begin
  inherited;
   close;
end;

procedure TfrmInfoImport.tbtOKClick(Sender: TObject);
begin
  inherited;
  if frmProductInfo.tbtSave.Enabled then
  begin
    frmProductInfo.QBaseInfo.FieldValues['xh']:=QBaseInfo.FieldValues['xh'] ;
    frmProductInfo.QBaseInfo.FieldValues['sizes']:=QBaseInfo.FieldValues['sizes'];
    frmProductInfo.QBaseInfo.FieldValues['plate']:=QBaseInfo.FieldValues['plate'];
    frmProductInfo.QBaseInfo.FieldValues['plate_no']:=QBaseInfo.FieldValues['plate_no'];
    frmProductInfo.QBaseInfo.FieldValues['Material']:= QBaseInfo.FieldValues['Material'];
    frmProductInfo.QBaseInfo.FieldValues['remark']:= QBaseInfo.FieldValues['remark'];
    frmProductInfo.QBaseInfo.FieldValues['graincount']:= QBaseInfo.FieldValues['graincount'];
    frmProductInfo.QBaseInfo.FieldValues['area_plate']:=QBaseInfo.FieldValues['area_plate'] ;
    frmProductInfo.QCC.Close;
    with frmProductInfo.QPublic do
    begin
      Close;
      SQL.Clear;
      SQL.Add('delete from CcInput where fid=convert(decimal,'''+inttostr(frmProductInfo.QBaseInfo.FieldValues['id'])+''') ');
      ExecSQL;
    end;
    frmProductInfo.QCC.Open;
    QCC.First;
    While not QCC.Eof do
    begin
      frmProductInfo.QCC.Append;
      frmProductInfo.QCC.Edit;
      frmProductInfo.QCC.FieldValues['xh']:=QCC.FieldValues['xh'] ;
      frmProductInfo.QCC.FieldValues['sizes']:=QCC.FieldValues['sizes'];
      frmProductInfo.QCC.FieldValues['plate']:=QCC.FieldValues['plate'];
      frmProductInfo.QCC.FieldValues['plate_no']:=QCC.FieldValues['plate_no'];
      frmProductInfo.QCC.FieldValues['names']:=QCC.FieldValues['names'];
      frmProductInfo.QCC.FieldValues['datas']:=QCC.FieldValues['datas'];
      frmProductInfo.QCC.FieldValues['UpperLimit']:=QCC.FieldValues['UpperLimit'];
      frmProductInfo.QCC.FieldValues['LowerLimit']:=QCC.FieldValues['LowerLimit'];
      frmProductInfo.QCC.FieldValues['sort']:=QCC.FieldValues['sort'];
      frmProductInfo.QCC.FieldValues['remark']:=QCC.FieldValues['remark'];
      frmProductInfo.QCC.FieldValues['plant']:=QCC.FieldValues['plant'];
      QCC.Next;
    end;
    frmProductInfo.QGY.Close;
    with frmProductInfo.QPublic do
    begin
      Close;
      SQL.Clear;
      SQL.Add('delete from CcPlantArt where fid=convert(decimal,'''+inttostr(frmProductInfo.QBaseInfo.FieldValues['id'])+''') ');
      ExecSQL;
    end;
    frmProductInfo.QGY.Open;
    QGY.First;
    While not QGY.Eof do
    begin
      frmProductInfo.QGY.Append;
      frmProductInfo.QGY.Edit;
      frmProductInfo.QGY.FieldValues['xh']:=QGY.FieldValues['xh'] ;
      frmProductInfo.QGY.FieldValues['sizes']:=QGY.FieldValues['sizes'];
      frmProductInfo.QGY.FieldValues['plate']:=QGY.FieldValues['plate'];
      frmProductInfo.QGY.FieldValues['plate_no']:=QGY.FieldValues['plate_no'];
      frmProductInfo.QGY.FieldValues['plant']:=QGY.FieldValues['plant'];
      frmProductInfo.QGY.FieldValues['art']:=QGY.FieldValues['art'];
      frmProductInfo.QGY.FieldValues['sort']:=QGY.FieldValues['sort'];
      frmProductInfo.QGY.FieldValues['notice']:=QGY.FieldValues['notice'];
      frmProductInfo.QGY.FieldValues['technics']:=QGY.FieldValues['technics'];
      QGY.Next;
    end;
  end;
  Close;
end;

end.