prelationedit.pas

BarCodePrint条码打印机打印管理

unit PRelationEdit;

interface

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

type
  TFormRelationEdit = class(TForm)
    StaticText2: TStaticText;
    StaticText3: TStaticText;
    StaticText4: TStaticText;
    StaticText9: TStaticText;
    StaticText10: TStaticText;
    EditCode: TEdit;
    EditProductCode: TEdit;
    EditProcessCode: TEdit;
    EditCheckCode: TEdit;
    EditPartCode: TEdit;
    Button6: TButton;
    Button7: TButton;
    StaticText11: TStaticText;
    ButtonCancle: TButton;
    ButtonOK: TButton;
    EditUnit: TMaskEdit;
    procedure ButtonCancleClick(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
  FormRelationEdit: TFormRelationEdit;

implementation

uses PDataModuleMain, pSelect, PRelation;

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

procedure TFormRelationEdit.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 TFormRelationEdit.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 TFormRelationEdit.FormShow(Sender: TObject);
begin
    EditPartCode.Text:=FormRelation.ADOTableUsers.FieldByName('PartsCode').AsString;
    EditCheckCode.Text:=FormRelation.ADOTableUsers.FieldByName('CheckCode').AsString;

    EditProcessCode.Text:=FormRelation.ADOTableUsers.FieldByName('ProcessCode').AsString;
    EditProductCode.Text:=FormRelation.ADOTableUsers.FieldByName('ProductCode').AsString;
    EditCode.Text:=FormRelation.ADOTableUsers.FieldByName('Code').AsString;

    EditUnit.Text:=FormRelation.ADOTableUsers.FieldByName('PackUnit').AsString;
end;

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

procedure TFormRelationEdit.ButtonOKClick(Sender: TObject);
begin
    if EditCheckCode.Text='' then
    begin
        Application.MessageBox('检验代码不能为空!','提示',MB_OK);
        exit;
    end;
    if trim(EditUnit.Text)='' then
        EditUnit.Text:='0';
    with FormRelation.ADOTableUsers do
    begin
         Edit;
         FieldByName('CheckCode').AsString := EditCheckCode.Text;

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

end.