?? prelationedit.pas
字號(hào):
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','檢驗(yàn)代碼',DataModuleMain.ADOConnectionBarCode.ConnectionString);
if FormSelect.sResult<>'' then
EditCheckCode.Text:=FormSelect.sResult;
// EditCheckCode.Text:=GetString('CheckCode','CheckCode','檢驗(yàn)代碼',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('檢驗(yàn)代碼不能為空!','提示',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.
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -