unit pNewJobC;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, ExtCtrls, Mask, Db, ADODB,comctrls;

type
  TFormNewJobC = class(TForm)
    StaticText2: TStaticText;
    StaticText3: TStaticText;
    StaticText4: TStaticText;
    StaticText5: TStaticText;
    StaticText6: TStaticText;
    StaticText7: TStaticText;
    StaticText8: TStaticText;
    StaticText9: TStaticText;
    StaticText10: TStaticText;
    ButtonCancle: TButton;
    ButtonOK: TButton;
    EditCode: TEdit;
    EditProductCode: TEdit;
    EditProcessCode: TEdit;
    EditCheckCode: TEdit;
    EditPartCode: TEdit;
    EditHeNo: TEdit;
    Button4: TButton;
    Button7: TButton;
    StaticText11: TStaticText;
    EditAmount: TMaskEdit;
    EditUnit: TMaskEdit;
    ADODataSetLot: TADODataSet;
    EditStart: TMaskEdit;
    EditEnd: TMaskEdit;
    CheckBoxUsa: TCheckBox;
    procedure Button4Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure ButtonOKClick(Sender: TObject);
    procedure ButtonCancleClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure EditCodeChange(Sender: TObject);
    procedure EditAmountChange(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure EditCodeExit(Sender: TObject);
  private
    { Private declarations }
  public
    procedure GetString2(sT,sF,sC:String;sAdoC:String);
  end;

var
  FormNewJobC: TFormNewJobC;

implementation

uses pSelect, PDataModuleMain, PRelation, PBarCodePrinter, PPublic;

{$R *.DFM}
procedure TFormNewJobC.GetString2(sT,sF,sC:String;sAdoC:String);
begin
    if not assigned(FormSelect) then FormSelect:=TFormSelect.Create(Self);
    FormSelect.sTableName:=sT;
    FormSelect.sFieldName:=sF;
    FormSelect.sCaption:=sC;
    FormSelect.sADOConnectionM:=SAdoC;
    FormSelect.ShowModal;
end;
procedure TFormNewJobC.Button4Click(Sender: TObject);
begin
    GetString2('Relation','Code','品名代碼',DataModuleMain.ADOConnectionBarCode.ConnectionString);
    if FormSelect.sResult<>'' then
    EditCode.Text:=FormSelect.sResult;
end;

procedure TFormNewJobC.Button7Click(Sender: TObject);
begin
    GetString2('PartsCode','PartsCode','部件代碼',DataModuleMain.ADOConnectionBarCode.ConnectionString);
    if FormSelect.sResult<>'' then
    EditPartCode.Text:=FormSelect.sResult;
end;

procedure TFormNewJobC.ButtonOKClick(Sender: TObject);
var
    ListItem:TListItem;
begin
    if EditCode.Text='' then
    begin
        Application.MessageBox('綜合代碼不能為空!','提示',MB_OK);
        exit;
    end;

    if (trim(EditUnit.Text)='') or (StrToInt(trim(EditUnit.Text))<=0) then
    begin
        Application.MessageBox('包裝單位錯誤!','提示',MB_OK);
        exit;
    end;


    if (trim(EditAmount.Text)='') or (StrToInt(trim(EditAmount.Text))<=0) then
    begin
        Application.MessageBox('打印數(shù)量錯誤!','提示',MB_OK);
        exit;
    end;

    if (trim(EditStart.Text)='') or (StrToInt(trim(EditStart.Text))<=0) then
    begin
        Application.MessageBox('起始標(biāo)簽號錯誤!','提示',MB_OK);
        exit;
    end;
    if (trim(EditEnd.Text)='') or (StrToInt(trim(EditEnd.Text))<=0) or(StrToInt(trim(EditEnd.Text))>99) then
    begin
        Application.MessageBox('結(jié)束標(biāo)簽號錯誤!','提示',MB_OK);
        exit;
    end;


    ADODataSetLot.Close;

    ListItem:=BarCodePrinter.lvwPrintQueue.Items.Add;
    ListItem.ImageIndex:=-1;
    ListItem.Caption:='';
    ListItem.SubItems.Add(UpperCase(EditHeNo.Text));
    ListItem.SubItems.Add(UpperCase(EditProductCode.Text));
    ListItem.SubItems.Add(UpperCase(EditProcessCode.Text));
    ListItem.SubItems.Add(UpperCase(EditCheckCode.Text));
    ListItem.SubItems.Add(trim(EditAmount.Text));
    ListItem.SubItems.Add(trim(EditUnit.Text));
    ListItem.SubItems.Add(trim(EditStart.Text));
    ListItem.SubItems.Add(trim(EditEnd.Text));
    if CheckBoxUsa.Checked then
      ListItem.SubItems.Add(UpperCase(EditPartCode.Text))
    else
      ListItem.SubItems.Add('');

    //Close;
    FormShow(Nil);
end;

procedure TFormNewJobC.ButtonCancleClick(Sender: TObject);
begin
    Close;
end;

procedure TFormNewJobC.FormCreate(Sender: TObject);
begin
    ADODataSetLot.Connection:=DataModuleMain.ADOConnectionBarCode;
end;

procedure TFormNewJobC.FormShow(Sender: TObject);
begin
    EditCode.Text:='';
    EditProductCode.Text:='';
    EditProcessCode.Text:='';
    EditUnit.Text:='';
    EditCheckCode.Text:='';
    EditPartCode.Text:='';

    EditAmount.Text:='';
    EditHeNo.Text:='QQQQQQQ';

    EditStart.Text:='';
    EditEnd.Text:='';
    CheckBoxUsa.Checked:=False;
    EditCode.SetFocus;
end;

procedure TFormNewJobC.EditCodeChange(Sender: TObject);
begin
    if EditCode.Text='' then begin
        EditProductCode.Text:='';
        EditProcessCode.Text:='';
        EditCheckCode.Text:='';
        EditUnit.Text:='';
        EditPartCode.Text:='';
        exit;
    end;

    ADODataSetLot.Close;
    ADODataSetLot.CommandText:='Select * from Relation where Code='''+trim(EditCode.Text)+'''';
    ADODataSetLot.Open;

    if not  ADODataSetLot.Eof then
    begin
        EditProductCode.Text:=ADODataSetLot.FieldByName('ProductCode').AsString;
        EditProcessCode.Text:=ADODataSetLot.FieldByName('ProcessCode').AsString;
        EditCheckCode.Text:=ADODataSetLot.FieldByName('CheckCode').AsString;
        EditUnit.Text:=ADODataSetLot.FieldByName('PackUnit').AsString;
        EditPartCode.Text:=ADODataSetLot.FieldByName('PartsCode').AsString;
    end
    else
    begin
        EditProductCode.Text:='';
        EditProcessCode.Text:='';
        EditCheckCode.Text:='';
        EditUnit.Text:='';
        EditPartCode.Text:='';
    end;
    ADODataSetLot.Close;


end;


procedure TFormNewJobC.EditAmountChange(Sender: TObject);
var
    nA:Integer;
begin
    if trim(EditAmount.Text)='' then exit;
    if strToInt(trim(EditAmount.Text))<=0 then Exit;
    editStart.Text:='1';
    nA:=strToInt(trim(EditAmount.Text));
    if nA>0  then
        editEnd.Text:=trim(EditAmount.Text)
    else
        editEnd.Text:='';

end;

procedure TFormNewJobC.FormKeyPress(Sender: TObject; var Key: Char);
begin
 if Key=#13 then
    begin
        SelectNext(ActiveControl,True,True);
        Key:=#0;
    end;
end;

procedure TFormNewJobC.EditCodeExit(Sender: TObject);
var
    sCheckCode:String;
    sUnit:String;
    ADODataSetTemp:TADODataSet;
begin
     if length(trim(EditCode.Text))=0 then exit;
        ADODataSetTemp:=TADODataSet.Create(Self);
        sCheckCode:=copy(EditCode.Text,1,4);
        sUnit:=copy(EditCode.Text,5,4);

        ADODataSetTemp.Connection:=DataModuleMain.ADOConnectionBarCode;
        ADODataSetTemp.CommandText:='Select Code from Relation where CheckCode='''+sCheckCode+'''';
        ADODataSetTemp.Open;
        if not  ADODataSetTemp.Eof then
        begin
           EditCode.Text:=ADODataSetTemp['Code'];
           EditUnit.Text:=sUnit;
        end;
        ADODataSetTemp.Close;
        ADODataSetTemp.Free;
end;

end.