pcodesearch.pas

BarCodePrint条码打印机打印管理

unit pCodeSearch;

interface

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

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

var
  FormCodeSearch: TFormCodeSearch;

implementation

uses pSelect, PUsers, PDataModuleMain, PRelation;

{$R *.DFM}
procedure TFormCodeSearch.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 TFormCodeSearch.Button4Click(Sender: TObject);
begin
   GetString2('Relation','Code','代码',DataModuleMain.ADOConnectionBarCode.ConnectionString);
    if FormSelect.sResult<>'' then
    EditCode.Text:=FormSelect.sResult;
end;

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

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

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

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

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

procedure TFormCodeSearch.ButtonOKClick(Sender: TObject);
var
    sSql:string;
begin
    sSql:='';
    if EditCode.Text<>'' then sSql:=' and Code=''' +EditCode.text +'''';
    if EditProductCode.Text<>'' then sSql:=' and ProductCode=''' +EditProductCode.text +'''';
    if EditProcessCode.Text<>'' then sSql:=' and ProcessCode=''' +EditProcessCode.text +'''';
    if EditCheckCode.Text<>'' then sSql:=' and CheckCode=''' +EditCheckCode.text +'''';
    if EditPartCode.Text<>'' then sSql:=' and PartsCode=''' +EditPartCode.text +'''';
    if trim(EditUnit.Text)<>'' then sSql:=' and PackUnit=' +trim(EditUnit.text);

    if copy(sSql,1,4)=' and' then sSql:=copy(sSql,5,length(sSql));
    if Length(sSql)=0 then
        sSql:='select * from Relation '
    else
        sSql:='select * from Relation where ' + sSql;
    FormRelation.ADOTableUsers.Close;
    FormRelation.ADOTableUsers.Sql.Clear;
    FormRelation.ADOTableUsers.Sql.Add(sSql);
    FormRelation.ADOTableUsers.Open;
    FormRelation.DbgridUsers.Columns.Items[0].Title.Caption:='编码';
    FormRelation.DbgridUsers.Columns.Items[1].Title.Caption:='品名代码';
    FormRelation.DbgridUsers.Columns.Items[2].Title.Caption:='加工代码';
    FormRelation.DbgridUsers.Columns.Items[3].Title.Caption:='检验代码';
    FormRelation.DbgridUsers.Columns.Items[4].Title.Caption:='包装代码';
    FormRelation.DbgridUsers.Columns.Items[5].Title.Caption:='部件代码';
    FormRelation.StatusBarProductCode.SimpleText:='总数:' +IntTostr(FormRelation.AdoTableUsers.RecordCount);
    Close;
end;

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

end.