pjobnew.pas

BarCodePrint条码打印机打印管理

unit PJobNew;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, ToolWin, ImgList, ExtCtrls, StdCtrls,  ADOdb,Db;

type
  TFormJobNew = class(TForm)
    ImageListSmall: TImageList;
    ToolBarMain: TToolBar;
    ToolButtonNew: TToolButton;
    ToolButton4: TToolButton;
    ToolButton2: TToolButton;
    ToolButtonHand: TToolButton;
    ToolButton6: TToolButton;
    ToolButton1: TToolButton;
    ToolButton3: TToolButton;
    ToolButton8: TToolButton;
    ToolButton5: TToolButton;
    ToolButton7: TToolButton;
    Panel1: TPanel;
    Label1: TLabel;
    Label5: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Shape1: TShape;
    Shape2: TShape;
    EditMCode: TEdit;
    Edit1: TEdit;
    EditMName: TEdit;
    Edit3: TEdit;
    EditMUnit: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    EditFCode: TEdit;
    Edit8: TEdit;
    EditFName: TEdit;
    Edit10: TEdit;
    EditMCount: TEdit;
    EditOperator: TEdit;
    EditFICode: TEdit;
    EditApplicationDate: TEdit;
    EditDepartName: TEdit;
    EditAuditor: TEdit;
    EditRatifier: TEdit;
    ButtonHandin: TButton;
    ButtonSave: TButton;
    ButtonCancel: TButton;
    ButtonErase: TButton;
    StatusBarApplicationNew: TStatusBar;
    procedure EditMCodeExit(Sender: TObject);
    procedure EditFCodeExit(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure ButtonSaveClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure EditMCodeChange(Sender: TObject);
    procedure ButtonCancelClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    bInNew:Boolean;
    ADODataSetMaterial: TADODataSet;
    ADOCommandHandIn: TADOCommand;
  end;

var
  FormJobNew: TFormJobNew;

implementation

uses PDataModuleMain, PPublic;

{$R *.DFM}

procedure TFormJobNew.EditMCodeExit(Sender: TObject);
begin
    AdoDatasetMaterial.CommandType:=cmdText;
    AdoDatasetMaterial.CommandText:='select MName,StoreMonad from MMF where MCode=''' +EditMCode.Text+'''';
    AdoDatasetMaterial.Connection:=DataModuleMain.ADOConnectionBarCode;
    AdoDatasetMaterial.Open;
    if not  AdoDatasetMaterial.Eof then
    begin
        EditMName.Text:=Trim(AdoDataSetMaterial.FieldByName('MName').Value);
        EditMUnit.Text:=Trim(AdoDataSetMaterial.FieldByName('StoreMonad').Value);
    end;
    AdoDatasetMaterial.Close;
    UserName:='sa';
end;

procedure TFormJobNew.EditFCodeExit(Sender: TObject);
begin

    AdoDatasetMaterial.CommandType:=cmdText;
    AdoDatasetMaterial.CommandText:='select Name from GFDA where Code=''' +EditFCode.Text+'''';
    AdoDatasetMaterial.Connection:=DataModuleMain.ADOConnectionBarCode;
    AdoDatasetMaterial.Open;
    if not  AdoDatasetMaterial.Eof then
    begin
        EditFName.Text:=Trim(AdoDataSetMaterial.FieldByName('Name').Value);
    end;
    AdoDatasetMaterial.Close;
end;

procedure TFormJobNew.FormDestroy(Sender: TObject);
begin
    ADODataSetMaterial.Free;
    ADOCommandHandIn.Free;
end;

procedure TFormJobNew.FormShow(Sender: TObject);
begin


    EditDepartName.Text:=DepartName;
    EditOperator.Text:=UserName;
    EditFICode.Text:=FormatDateTime('yyyy-mm-dd hh:mm:ss',Now)+'-'+UserCode;



end;

procedure TFormJobNew.ButtonSaveClick(Sender: TObject);
var
    Amount:Integer;
    sSQl:String;
begin

    Amount:=strtointdef(EditMCount.Text,-1);
    if Amount =-1  then
    begin
        MessageBox(hWnd(Nil),'数量输入错误!','提示窗口',MB_OK+MB_ICONERROR);
        Exit;
    end;
    if EditMName.Text='' then
    begin
        MessageBox(hWnd(Nil),'未输入物料编码!','提示窗口',MB_OK+MB_ICONERROR);
        Exit;
    end;
    if EditMName.Text='' then
    begin
        MessageBox(hWnd(Nil),'未输入厂商编码!','提示窗口',MB_OK+MB_ICONERROR);
        Exit;
    end;
    if Self.bInNew then begin
        sSQL:='insert into InspectionFI (FICode,MCode,MName,FCode,FName,MUnit,MCount,UserCode)';
        sSQL:=sSQL+' Values(''' +EditFICode.Text+'''';
        sSQL:=sSQL+' ,''' +EditMCode.Text+'''';
        sSQL:=sSQL+' ,''' +EditMName.Text+'''';
        sSQL:=sSQL+' ,''' +EditFCode.Text+'''';
        sSQL:=sSQL+' ,''' +EditFName.Text+'''';
        sSQL:=sSQL+' ,''' +EditMUnit.Text+'''';
        sSQL:=sSQL+' ,' +EditMCount.Text;
        sSQL:=sSQL+' ,''' +UserCode+''')';
     end
     else begin
        sSQL:='update InspectionFI set ';
        sSQL:=sSQL+' MCode=''' +EditMCode.Text+'''';
        sSQL:=sSQL+' ,MName=''' +EditMName.Text+'''';
        sSQL:=sSQL+' ,FCode=''' +EditFCode.Text+'''';
        sSQL:=sSQL+' ,FName=''' +EditFName.Text+'''';
        sSQL:=sSQL+' ,MUnit=''' +EditMUnit.Text+'''';
        sSQL:=sSQL+' ,MCount=' +EditMCount.Text;
        sSQL:=sSQL+' ,UserCode=''' +UserCode+'''';
        sSQL:=sSQL+'  where FICode=''' +EditFICode.Text+'''';
     end;


    ADOCommandHandIn.CommandType:=cmdText;
    ADOCommandHandIn.CommandText:=sSQL;
    ADOCommandHandIn.Connection:=DataModuleMain.ADOConnectionBarCode;
    ADOCommandHandIn.Execute;

    EditMCode.Text:='';
    StatusBarApplicationNew.SimpleText:=EditMName.Text+'::'+EditMCount.Text+'::保存成功';

    EditMName.Text:='';
    EditFCode.Text:='';
    EditFName.Text:='';
    EditMUnit.Text:='';
    EditMCount.Text:='';
    FormShow(FormJobNew);
    EditMCode.SetFocus;
end;

procedure TFormJobNew.FormCreate(Sender: TObject);
begin
    ADOCommandHandIn:=TADOCommand.Create(Self);
    ADODataSetMaterial:=TADODataSet.Create(Self);
end;

procedure TFormJobNew.EditMCodeChange(Sender: TObject);
begin
    StatusBarApplicationNew.SimpleText:='';
end;

procedure TFormJobNew.ButtonCancelClick(Sender: TObject);
begin
    FormJobNew.Free;
end;

procedure TFormJobNew.FormKeyPress(Sender: TObject; var Key: Char);
begin
    if Key=#13 then
    begin
        Key:=#0;
        Perform(WM_NEXTDLGCTL,0,0);
    end;
end;

end.