prelationnew.pas

BarCodePrint条码打印机打印管理

unit PRelationNew;

interface

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

type
  TFormRelationNew = class(TForm)
    StaticText2: TStaticText;
    StaticText3: TStaticText;
    StaticText4: TStaticText;
    StaticText9: TStaticText;
    StaticText10: TStaticText;
    EditCode: TEdit;
    EditProductCode: TEdit;
    EditProcessCode: TEdit;
    EditCheckCode: TEdit;
    EditPartCode: TEdit;
    Button3: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    StaticText11: TStaticText;
    ButtonCancle: TButton;
    ButtonOK: TButton;
    EditUnit: TMaskEdit;
    procedure ButtonCancleClick(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure EditProductCodeChange(Sender: TObject);
    procedure ButtonOKClick(Sender: TObject);
  private
    { Private declarations }
  public
    procedure GetString2(sT,sF,sC:String;sAdoC:String);
  end;

var
  FormRelationNew: TFormRelationNew;

implementation

uses PDataModuleMain, pSelect, PRelation;

{$R *.DFM}
//function GetString(sT,sF,sC:String;sAdoC:String):String;stdcall;external 'CommonSelect.dll';
procedure TFormRelationNew.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;
    //FormSelect.Free;
end;
procedure TFormRelationNew.ButtonCancleClick(Sender: TObject);
begin
    Close;
end;

procedure TFormRelationNew.Button5Click(Sender: TObject);
begin
    GetString2('ProductCode','ProductCode','品名代码',DataModuleMain.ADOConnectionBarCode.ConnectionString);
    if FormSelect.sResult<>'' then
    EditProductCode.Text:=FormSelect.sResult;
//    EditProductCode.Text:=GetString('ProductCode','ProductCode','品名代码',DataModuleMain.ADOConnectionBarCode.ConnectionString);
end;

procedure TFormRelationNew.Button3Click(Sender: TObject);
begin
    GetString2('ProcessCode','ProcessCode','加工代码',(DataModuleMain.ADOConnectionBarCode).ConnectionString);
    if FormSelect.sResult<>'' then
    EditProcessCode.Text:=FormSelect.sResult;
//    EditProcessCode.Text:=GetString('ProcessCode','ProcessCode','加工代码',(DataModuleMain.ADOConnectionBarCode).ConnectionString);

end;

procedure TFormRelationNew.Button6Click(Sender: TObject);
begin
    GetString2('CheckCode','CheckCode','检验代码',DataModuleMain.ADOConnectionBarCode.ConnectionString);
    if FormSelect.sResult<>'' then
    EditCheckCode.Text:=FormSelect.sResult;
//    EditCheckCode.Text:=GetString('CheckCode','CheckCode','检验代码',DataModuleMain.ADOConnectionBarCode.ConnectionString);
end;

procedure TFormRelationNew.Button7Click(Sender: TObject);
begin
    GetString2('PartsCode','PartsCode','部件代码',DataModuleMain.ADOConnectionBarCode.ConnectionString);
    if FormSelect.sResult<>'' then
    EditPartCode.Text:=FormSelect.sResult;
//    EditPartCode.Text:=GetString('PartsCode','PartsCode','部件代码',DataModuleMain.ADOConnectionBarCode.ConnectionString);
end;
procedure TFormRelationNew.FormShow(Sender: TObject);
begin
    EditPartCode.Text:='';
    EditCheckCode.Text:='';
    EditProcessCode.Text:='';
    EditProductCode.Text:='';
end;

procedure TFormRelationNew.EditProductCodeChange(Sender: TObject);
begin
    EditCode.Text:=trim(EditProductCode.Text)+EditProcessCode.Text;
end;

procedure TFormRelationNew.ButtonOKClick(Sender: TObject);
begin
    if EditProductCode.Text='' then
    begin
        Application.MessageBox('品名代码不能为空!','提示',MB_OK);
        exit;
    end;
    if EditProcessCode.Text='' then
    begin
        Application.MessageBox('加工代码不能为空!','提示',MB_OK);
        exit;
    end;
    if EditCheckCode.Text='' then
    begin
        Application.MessageBox('检验代码不能为空!','提示',MB_OK);
        exit;
    end;
    if trim(EditUnit.Text)='' then
        EditUnit.Text:='0';
    with FormRelation.ADOTableUsers do
    begin
         if Locate('Code',editCode.Text,[])=True then
         begin
            Application.MessageBox('已有此记录!','提示',MB_OK);
            exit;
        end;
         Insert;
         FieldByName('Code').AsString := EditCode.Text;
         FieldByName('ProductCode').AsString := EditProductCode.Text;
         FieldByName('ProcessCode').AsString := EditProcessCode.Text;
         FieldByName('CheckCode').AsString := EditCheckCode.Text;

         FieldByName('PartsCode').AsString := EditPartCode.Text;
         FieldByName('PackUnit').AsInteger :=strtoint(trim(EditUnit.Text));
         Post;
    end;

    Close;
end;

end.