Group_99/D7myYunxiang
7
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

1

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-08-30 10:58:21 +08:00
parent 5bc2a25bce
commit 45d496c3ad
14 changed files with 1341 additions and 1134 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
A00标签打印/U_ClientPrintRmf.dfm
View File

@ -16,7 +16,6 @@ object frmClientPrintRmf: TfrmClientPrintRmf
OnCreate = FormCreate OnCreate = FormCreate
OnDestroy = FormDestroy OnDestroy = FormDestroy
OnShow = FormShow OnShow = FormShow
OnStartDock = FormStartDock
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 11 TextHeight = 11
object ADOQueryTemp: TADOQuery object ADOQueryTemp: TADOQuery
@ -3871,7 +3870,6 @@ object frmClientPrintRmf: TfrmClientPrintRmf
Top = 153 Top = 153
end end
object ADOQueryReport: TADOQuery object ADOQueryReport: TADOQuery
Connection = DataLink_MYSC.ADOLink
Parameters = <> Parameters = <>
Left = 183 Left = 183
Top = 65503 Top = 65503

46
A00标签打印/U_ClientPrintRmf.pas
View File

@ -42,7 +42,6 @@ type
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure TV1DblClick(Sender: TObject); procedure TV1DblClick(Sender: TObject);
procedure FormStartDock(Sender: TObject; var DragObject: TDragDockObject);
private private
IsDebug, FPreviewPrint, fIsPreview: Boolean; IsDebug, FPreviewPrint, fIsPreview: Boolean;
FLMType, FLBName: string; FLMType, FLBName: string;
@ -53,7 +52,7 @@ type
procedure PrintReport(); procedure PrintReport();
procedure ExportReport(); procedure ExportReport();
procedure InitAdo(Ado: TADOQuery; SqlStr: string); procedure InitAdo(Ado: TADOQuery; SqlStr: string);
procedure TfrmClientPrintRmf.GetQrCode(); procedure GetQrCode(Txt: string);
procedure InitArgs(); procedure InitArgs();
{ Private declarations } { Private declarations }
public public
@ -79,31 +78,31 @@ begin
FPrintJson := JsonArgs; FPrintJson := JsonArgs;
end; end;
procedure TfrmClientPrintRmf.GetQrCode(Txt: string; ); procedure TfrmClientPrintRmf.GetQrCode(Txt: string);
var var
fPrintFile: string; fPrintFile: string;
fImagePath: string; fImagePath: string;
Moudle: THandle; Moudle: THandle;
Makebar: TMakebar; // Makebar: TMakebar;
Mixtext: TMixtext; // Mixtext: TMixtext;
CurRow: Integer; CurRow: Integer;
begin begin
try // try
Moudle := LoadLibrary('MakeQRBarcode.dll'); // Moudle := LoadLibrary('MakeQRBarcode.dll');
@Makebar := GetProcAddress(Moudle, 'Make'); // @Makebar := GetProcAddress(Moudle, 'Make');
@Mixtext := GetProcAddress(Moudle, 'MixText'); // @Mixtext := GetProcAddress(Moudle, 'MixText');
Txt := Trim(ADOQueryPrint.fieldbyname('MXID').AsString); // Txt := Trim(ADOQueryPrint.fieldbyname('MXID').AsString);
fImagePath := ExtractFilePath(Application.ExeName) + 'image\temp.bmp'; // fImagePath := ExtractFilePath(Application.ExeName) + 'image\temp.bmp';
if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName) + 'image')) then // if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName) + 'image')) then
CreateDirectory(pchar(ExtractFilePath(Application.ExeName) + 'image'), nil); // CreateDirectory(pchar(ExtractFilePath(Application.ExeName) + 'image'), nil);
if FileExists(fImagePath) then // if FileExists(fImagePath) then
DeleteFile(fImagePath); // DeleteFile(fImagePath);
Makebar(pchar(Txt), Length(Txt), 3, 3, 0, PChar(fImagePath), 3); // Makebar(pchar(Txt), Length(Txt), 3, 3, 0, PChar(fImagePath), 3);
except // except
application.MessageBox('条形码生成失败！', '提示信息', MB_ICONERROR); // application.MessageBox('条形码生成失败！', '提示信息', MB_ICONERROR);
Order_Main.EnableControls; // Order_Main.EnableControls;
exit; // exit;
end; // end;
end; end;
@ -311,10 +310,5 @@ begin
frmClientPrintRmf := nil; frmClientPrintRmf := nil;
end; end;
procedure TfrmClientPrintRmf.FormStartDock(Sender: TObject; var DragObject: TDragDockObject);
begin
end;
end. end.

14
云翔一码通/U_YMTRKInPut.dfm
View File

@ -306,14 +306,8 @@ object frmYMTRKInPut: TfrmYMTRKInPut
ImageIndex = 15 ImageIndex = 15
OnClick = TBSaveClick OnClick = TBSaveClick
end end
object ToolButton1: TToolButton
Left = 63
Top = 0
Caption = #22810#34892#26032#22686
ImageIndex = 22
end
object TBAdd: TToolButton object TBAdd: TToolButton
Left = 146 Left = 63
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #26032#22686 Caption = #26032#22686
@ -321,7 +315,7 @@ object frmYMTRKInPut: TfrmYMTRKInPut
OnClick = TBAddClick OnClick = TBAddClick
end end
object TBDel: TToolButton object TBDel: TToolButton
Left = 209 Left = 126
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #21024#38500 Caption = #21024#38500
@ -329,14 +323,14 @@ object frmYMTRKInPut: TfrmYMTRKInPut
OnClick = TBDelClick OnClick = TBDelClick
end end
object ToolButton2: TToolButton object ToolButton2: TToolButton
Left = 272 Left = 189
Top = 0 Top = 0
Caption = #19968#38190#26367#25442 Caption = #19968#38190#26367#25442
ImageIndex = 22 ImageIndex = 22
OnClick = ToolButton2Click OnClick = ToolButton2Click
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 355 Left = 272
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381

1
云翔一码通/U_YMTRKInPut.pas
View File

@ -59,7 +59,6 @@ type
v1Column17: TcxGridDBColumn; v1Column17: TcxGridDBColumn;
v1Column18: TcxGridDBColumn; v1Column18: TcxGridDBColumn;
v1Column19: TcxGridDBColumn; v1Column19: TcxGridDBColumn;
ToolButton1: TToolButton;
v1Column20: TcxGridDBColumn; v1Column20: TcxGridDBColumn;
v1Column21: TcxGridDBColumn; v1Column21: TcxGridDBColumn;
ToolButton2: TToolButton; ToolButton2: TToolButton;

6
云翔生产管理(MYSC.dll)/U_GYSList.dfm
View File

@ -194,7 +194,7 @@ object frmGYSList: TfrmGYSList
Left = 294 Left = 294
Top = 11 Top = 11
Width = 125 Width = 125
Height = 23 Height = 20
TabOrder = 0 TabOrder = 0
OnChange = CustomerNoNameChange OnChange = CustomerNoNameChange
end end
@ -203,7 +203,7 @@ object frmGYSList: TfrmGYSList
Left = 86 Left = 86
Top = 11 Top = 11
Width = 125 Width = 125
Height = 23 Height = 20
TabOrder = 1 TabOrder = 1
OnChange = CustomerNoNameChange OnChange = CustomerNoNameChange
end end
@ -212,7 +212,7 @@ object frmGYSList: TfrmGYSList
Left = 510 Left = 510
Top = 11 Top = 11
Width = 121 Width = 121
Height = 23 Height = 20
ReadOnly = True ReadOnly = True
TabOrder = 2 TabOrder = 2
OnBtnUpClick = KHTypeBtnUpClick OnBtnUpClick = KHTypeBtnUpClick

235
云翔生产管理(MYSC.dll)/U_GYSList.pas
View File

@ -6,25 +6,24 @@ uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData, Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData,
cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB, cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB,
cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, cxControls,
cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
cxGridDBTableView, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System,
RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxButtonEdit,
Menus, cxButtonEdit, cxDropDownEdit, BtnEdit, cxLookAndFeels, cxDropDownEdit, BtnEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
cxLookAndFeelPainters, cxNavigator, dxSkinsCore, dxSkinsCore, dxSkinDarkRoom, dxSkinOffice2013White, dxSkinSharpPlus,
dxSkinDarkRoom, dxSkinSpringTime, dxSkinsDefaultPainters, dxSkinscxPCPainter, dxSkinBlack,
dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkSide,
dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
dxSkinOffice2013White, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray,
dxSkinSharpPlus, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSilver,
dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinValentine,
dxSkinsDefaultPainters, dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue;
dxSkinscxPCPainter;
type type
TfrmGYSList = class(TForm) TfrmGYSList = class(TForm)
@ -79,14 +78,14 @@ type
procedure KHTypeBtnDnClick(Sender: TObject); procedure KHTypeBtnDnClick(Sender: TObject);
procedure KHTypeBtnUpClick(Sender: TObject); procedure KHTypeBtnUpClick(Sender: TObject);
private private
DQdate:TDateTime; DQdate: TDateTime;
XZKHTYpe,canshu1:string; XZKHTYpe, canshu1: string;
procedure InitGrid(); procedure InitGrid();
procedure InitForm(); procedure InitForm();
function DelData():Boolean; function DelData(): Boolean;
{ Private declarations } { Private declarations }
public public
FFInt,FCloth:Integer; FFInt, FCloth: Integer;
{ Public declarations } { Public declarations }
end; end;
@ -95,32 +94,32 @@ var
frmGYSList: TfrmGYSList; frmGYSList: TfrmGYSList;
implementation implementation
uses uses
U_DataLink,U_RTFun,U_ZDYHelp,U_SCPerson,U_PBGYSInPutMain; U_DataLink, U_RTFun, U_ZDYHelp, U_SCPerson, U_PBGYSInPutMain;
{$R *.dfm} {$R *.dfm}
procedure TfrmGYSList.FormDestroy(Sender: TObject); procedure TfrmGYSList.FormDestroy(Sender: TObject);
begin begin
frmGYSList:=nil; frmGYSList := nil;
end; end;
procedure TfrmGYSList.FormClose(Sender: TObject; procedure TfrmGYSList.FormClose(Sender: TObject; var Action: TCloseAction);
var Action: TCloseAction);
begin begin
Action:=caFree; Action := caFree;
end; end;
procedure TfrmGYSList.FormCreate(Sender: TObject); procedure TfrmGYSList.FormCreate(Sender: TObject);
begin begin
cxgrid1.Align:=alClient; cxgrid1.Align := alClient;
end; end;
procedure TfrmGYSList.TBCloseClick(Sender: TObject); procedure TfrmGYSList.TBCloseClick(Sender: TObject);
begin begin
Close; Close;
WriteCxGrid('供应商登记',Tv1,'供应商管理'); WriteCxGrid('供应商登记', Tv1, '供应商管理');
end; end;
@ -130,7 +129,7 @@ begin
ADOQueryMain.DisableControls; ADOQueryMain.DisableControls;
with ADOQueryMain do with ADOQueryMain do
begin begin
Filtered:=False; Filtered := False;
Close; Close;
sql.Clear; sql.Clear;
sql.Add('select *,zjm=dbo.getpinyin(KHName) '); sql.Add('select *,zjm=dbo.getpinyin(KHName) ');
@ -142,46 +141,47 @@ begin
end;} end;}
Open; Open;
end; end;
SCreateCDS20(ADOQueryMain,Order_Main); SCreateCDS20(ADOQueryMain, Order_Main);
SInitCDSData20(ADOQueryMain,Order_Main); SInitCDSData20(ADOQueryMain, Order_Main);
TBFind.Click; TBFind.Click;
finally finally
ADOQueryMain.EnableControls; ADOQueryMain.EnableControls;
end; end;
end; end;
procedure TfrmGYSList.InitForm(); procedure TfrmGYSList.InitForm();
begin begin
ReadCxGrid(self.Caption,Tv1,'贸易生产管理'); ReadCxGrid(self.Caption, Tv1, '贸易生产管理');
KHType.Visible:=true; KHType.Visible := true;
label34.Visible:=true; label34.Visible := true;
ToolButton1.Visible:=true; ToolButton1.Visible := true;
canshu1:=Trim(DParameters1); canshu1 := Trim(DParameters1);
if Trim(canshu1)<>'高权限' then if Trim(canshu1) <> '高权限' then
begin begin
ToolButton1.Visible:=false; ToolButton1.Visible := false;
end; end;
InitGrid(); InitGrid();
end; end;
procedure TfrmGYSList.TBFindClick(Sender: TObject); procedure TfrmGYSList.TBFindClick(Sender: TObject);
begin begin
if ADOQueryMain.Active=False then Exit; if ADOQueryMain.Active = False then
SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); Exit;
SCreateCDS20(ADOQueryMain,Order_Main); SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SInitCDSData20(ADOQueryMain,Order_Main); SCreateCDS20(ADOQueryMain, Order_Main);
SInitCDSData20(ADOQueryMain, Order_Main);
end; end;
procedure TfrmGYSList.TBEditClick(Sender: TObject); procedure TfrmGYSList.TBEditClick(Sender: TObject);
begin begin
if Order_Main.IsEmpty then Exit; if Order_Main.IsEmpty then
if Trim(canshu1)='' then Exit;
if Trim(canshu1) = '' then
begin begin
if Trim(Order_Main.fieldbyname('Filler').AsString)<>Trim(DName) then if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then
begin begin
Application.MessageBox('不能操作他人的数据!','提示',0); Application.MessageBox('不能操作他人的数据!', '提示', 0);
Exit; Exit;
end; end;
end; end;
@ -189,38 +189,40 @@ end;
procedure TfrmGYSList.TBDelClick(Sender: TObject); procedure TfrmGYSList.TBDelClick(Sender: TObject);
begin begin
if Order_Main.IsEmpty then Exit; if Order_Main.IsEmpty then
if Trim(Order_Main.fieldbyname('Filler').AsString)<>Trim(DName) then Exit;
if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then
begin begin
Application.MessageBox('不能操作他人的数据!','提示',0); Application.MessageBox('不能操作他人的数据!', '提示', 0);
Exit; Exit;
end; end;
if Application.MessageBox('确定要删除数据吗？','提示',32+4)<>IDYES then Exit; if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
Exit;
if DelData() then if DelData() then
begin begin
Order_Main.Delete; Order_Main.Delete;
end; end;
end; end;
function TfrmGYSList.DelData():Boolean; function TfrmGYSList.DelData(): Boolean;
begin begin
try try
Result:=false; Result := false;
ADOQueryCmd.Connection.BeginTrans; ADOQueryCmd.Connection.BeginTrans;
with ADOQueryCmd do with ADOQueryCmd do
begin begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add('Update ZH_KH_Info Set Valid=''N'' where ZKId='''+Trim(Order_Main.fieldbyname('ZKId').AsString)+''''); sql.Add('Update ZH_KH_Info Set Valid=''N'' where ZKId=''' + Trim(Order_Main.fieldbyname('ZKId').AsString) + '''');
ExecSQL; ExecSQL;
end; end;
ADOQueryCmd.Connection.CommitTrans; ADOQueryCmd.Connection.CommitTrans;
Result:=True; Result := True;
except except
ADOQueryCmd.Connection.RollbackTrans; ADOQueryCmd.Connection.RollbackTrans;
Result:=False; Result := False;
Application.MessageBox('数据删除异常！','提示',0); Application.MessageBox('数据删除异常！', '提示', 0);
end; end;
end; end;
@ -246,65 +248,70 @@ end;
procedure TfrmGYSList.N1Click(Sender: TObject); procedure TfrmGYSList.N1Click(Sender: TObject);
var var
fPrintFile:string; fPrintFile: string;
Porderno:string; Porderno: string;
begin begin
if Order_Main.IsEmpty then Exit; if Order_Main.IsEmpty then
fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\生产指示单10.rmf' ; Exit;
SDofilter(ADOQueryMain,' OrderNoM='''+Trim(Order_Main.fieldbyname('OrderNoM').AsString)+''''); fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\生产指示单10.rmf';
SCreateCDS20(ADOQueryMain,Order_Main); SDofilter(ADOQueryMain, ' OrderNoM=''' + Trim(Order_Main.fieldbyname('OrderNoM').AsString) + '''');
SInitCDSData20(ADOQueryMain,Order_Main); SCreateCDS20(ADOQueryMain, Order_Main);
Porderno:=Trim(Order_Main.fieldbyname('OrderNoM').AsString); SInitCDSData20(ADOQueryMain, Order_Main);
Porderno := Trim(Order_Main.fieldbyname('OrderNoM').AsString);
if FileExists(fPrintFile) then if FileExists(fPrintFile) then
begin begin
RM1.LoadFromFile(fPrintFile); RM1.LoadFromFile(fPrintFile);
RM1.ShowReport; RM1.ShowReport;
end else end
else
begin begin
Application.MessageBox(PChar('没有找'+ExtractFilePath(Application.ExeName)+'Report\生产指示单10.rmf'),'提示',0); Application.MessageBox(PChar('没有找' + ExtractFilePath(Application.ExeName) + 'Report\生产指示单10.rmf'), '提示', 0);
end; end;
SDofilter(ADOQueryMain,''); SDofilter(ADOQueryMain, '');
SCreateCDS20(ADOQueryMain,Order_Main); SCreateCDS20(ADOQueryMain, Order_Main);
SInitCDSData20(ADOQueryMain,Order_Main); SInitCDSData20(ADOQueryMain, Order_Main);
Order_Main.Locate('ordernoM',Porderno,[]); Order_Main.Locate('ordernoM', Porderno, []);
end; end;
procedure TfrmGYSList.N2Click(Sender: TObject); procedure TfrmGYSList.N2Click(Sender: TObject);
var var
fPrintFile:string; fPrintFile: string;
Porderno:string; Porderno: string;
begin begin
if Order_Main.IsEmpty then Exit; if Order_Main.IsEmpty then
fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\生产指示单.rmf' ; Exit;
SDofilter(ADOQueryMain,' OrderNoM='''+Trim(Order_Main.fieldbyname('OrderNoM').AsString)+''''); fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\生产指示单.rmf';
SCreateCDS20(ADOQueryMain,Order_Main); SDofilter(ADOQueryMain, ' OrderNoM=''' + Trim(Order_Main.fieldbyname('OrderNoM').AsString) + '''');
SInitCDSData20(ADOQueryMain,Order_Main); SCreateCDS20(ADOQueryMain, Order_Main);
Porderno:=Trim(Order_Main.fieldbyname('OrderNoM').AsString); SInitCDSData20(ADOQueryMain, Order_Main);
Porderno := Trim(Order_Main.fieldbyname('OrderNoM').AsString);
if FileExists(fPrintFile) then if FileExists(fPrintFile) then
begin begin
RM1.LoadFromFile(fPrintFile); RM1.LoadFromFile(fPrintFile);
RM1.ShowReport; RM1.ShowReport;
end else end
else
begin begin
Application.MessageBox(PChar('没有找'+ExtractFilePath(Application.ExeName)+'Report\生产指示单.rmf'),'提示',0); Application.MessageBox(PChar('没有找' + ExtractFilePath(Application.ExeName) + 'Report\生产指示单.rmf'), '提示', 0);
end; end;
SDofilter(ADOQueryMain,''); SDofilter(ADOQueryMain, '');
SCreateCDS20(ADOQueryMain,Order_Main); SCreateCDS20(ADOQueryMain, Order_Main);
SInitCDSData20(ADOQueryMain,Order_Main); SInitCDSData20(ADOQueryMain, Order_Main);
Order_Main.Locate('ordernoM',Porderno,[]); Order_Main.Locate('ordernoM', Porderno, []);
end; end;
procedure TfrmGYSList.ToolButton3Click(Sender: TObject); procedure TfrmGYSList.ToolButton3Click(Sender: TObject);
begin begin
ModalResult:=1; ModalResult := 1;
end; end;
procedure TfrmGYSList.CustomerNoNameChange(Sender: TObject); procedure TfrmGYSList.CustomerNoNameChange(Sender: TObject);
begin begin
if ADOQueryMain.Active=False then Exit; if ADOQueryMain.Active = False then
SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); Exit;
SCreateCDS20(ADOQueryMain,Order_Main); SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SInitCDSData20(ADOQueryMain,Order_Main); SCreateCDS20(ADOQueryMain, Order_Main);
SInitCDSData20(ADOQueryMain, Order_Main);
end; end;
procedure TfrmGYSList.Tv1DblClick(Sender: TObject); procedure TfrmGYSList.Tv1DblClick(Sender: TObject);
@ -315,32 +322,33 @@ end;
procedure TfrmGYSList.ToolButton1Click(Sender: TObject); procedure TfrmGYSList.ToolButton1Click(Sender: TObject);
begin begin
try try
frmSCPerson:=TfrmSCPerson.Create(Application); frmSCPerson := TfrmSCPerson.Create(Application);
with frmSCPerson do with frmSCPerson do
begin begin
FlagStr:='GYSType'; FlagStr := 'GYSType';
if ShowModal=1 then if ShowModal = 1 then
begin begin
XZKHTYpe:=Trim(FSDPerson); XZKHTYpe := Trim(FSDPerson);
end; end;
end; end;
finally finally
frmSCPerson.Free; frmSCPerson.Free;
end; end;
if Trim(XZKHTYpe)='' then Exit; if Trim(XZKHTYpe) = '' then
Exit;
try try
frmPBGYSInPutMain:=TfrmPBGYSInPutMain.Create(Application); frmPBGYSInPutMain := TfrmPBGYSInPutMain.Create(Application);
with frmPBGYSInPutMain do with frmPBGYSInPutMain do
begin begin
FKHMainid:=''; FKHMainid := '';
FKHFlag:='GYS'; FKHFlag := 'GYS';
frmPBGYSInPutMain.KHType.Text:=Trim(XZKHTYpe); frmPBGYSInPutMain.KHType.Text := Trim(XZKHTYpe);
frmPBGYSInPutMain.KHType.Enabled:=False; frmPBGYSInPutMain.KHType.Enabled := False;
frmPBGYSInPutMain.KHType.Color:=clMenu; frmPBGYSInPutMain.KHType.Color := clMenu;
if ShowModal=1 then if ShowModal = 1 then
begin begin
TBRafresh.Click; TBRafresh.Click;
Order_Main.Locate('KHMainId',FKHMainid,[]); Order_Main.Locate('KHMainId', FKHMainid, []);
end; end;
end; end;
finally finally
@ -350,21 +358,21 @@ end;
procedure TfrmGYSList.KHTypeBtnDnClick(Sender: TObject); procedure TfrmGYSList.KHTypeBtnDnClick(Sender: TObject);
begin begin
KHType.Text:=''; KHType.Text := '';
KHType.TxtCode:=''; KHType.TxtCode := '';
end; end;
procedure TfrmGYSList.KHTypeBtnUpClick(Sender: TObject); procedure TfrmGYSList.KHTypeBtnUpClick(Sender: TObject);
begin begin
try try
frmSCPerson:=TfrmSCPerson.Create(Application); frmSCPerson := TfrmSCPerson.Create(Application);
with frmSCPerson do with frmSCPerson do
begin begin
FlagStr:='GYSType'; FlagStr := 'GYSType';
if ShowModal=1 then if ShowModal = 1 then
begin begin
Self.KHType.Text:=Trim(FSDPerson); Self.KHType.Text := Trim(FSDPerson);
Self.KHType.TxtCode:=Trim(FSDPerson); Self.KHType.TxtCode := Trim(FSDPerson);
end; end;
end; end;
finally finally
@ -374,3 +382,4 @@ begin
end; end;
end. end.

1069
云翔生产管理(MYSC.dll)/U_LLRKInPutMH_PBCG.dfm
View File

File diff suppressed because it is too large Load Diff

50
云翔生产管理(MYSC.dll)/U_LLRKInPutMH_PBCG.pas
View File

@ -51,14 +51,8 @@ type
Label13: TLabel; Label13: TLabel;
CRTime: TDateTimePicker; CRTime: TDateTimePicker;
Panel5: TPanel; Panel5: TPanel;
Label12: TLabel;
Label14: TLabel;
Label15: TLabel;
Label16: TLabel;
Label31: TLabel; Label31: TLabel;
Label32: TLabel; Label32: TLabel;
MYKZ: TEdit;
MYMF: TEdit;
PS: TEdit; PS: TEdit;
Qty: TEdit; Qty: TEdit;
KgQty: TEdit; KgQty: TEdit;
@ -82,12 +76,6 @@ type
IdFTP1: TIdFTP; IdFTP1: TIdFTP;
SaveDialog1: TSaveDialog; SaveDialog1: TSaveDialog;
adoqueryPicture: TADOQuery; adoqueryPicture: TADOQuery;
Label2: TLabel;
MYCF: TEdit;
Label3: TLabel;
MYJWS: TEdit;
Label11: TLabel;
MYMD: TEdit;
Label23: TLabel; Label23: TLabel;
MYPrice: TEdit; MYPrice: TEdit;
Label24: TLabel; Label24: TLabel;
@ -123,23 +111,12 @@ type
Label45: TLabel; Label45: TLabel;
Label49: TLabel; Label49: TLabel;
Label50: TLabel; Label50: TLabel;
Panel14: TPanel;
Label51: TLabel;
MYMDPrice: TEdit;
Label43: TLabel;
MDMFlag: TCheckBox;
MDKGFlag: TCheckBox;
Panel15: TPanel; Panel15: TPanel;
Label22: TLabel;
MYCode: TEdit;
MYName: TBtnEditA;
Panel2: TPanel; Panel2: TPanel;
Label6: TLabel; Label6: TLabel;
MoneyChaE: TEdit; MoneyChaE: TEdit;
Label1: TLabel; Label1: TLabel;
Note: TEdit; Note: TEdit;
HSFlag: TCheckBox;
BHSFlag: TCheckBox;
ADOQueryTemp: TADOQuery; ADOQueryTemp: TADOQuery;
Label7: TLabel; Label7: TLabel;
RKNo: TEdit; RKNo: TEdit;
@ -163,8 +140,32 @@ type
Label30: TLabel; Label30: TLabel;
YGSunHao: TEdit; YGSunHao: TEdit;
Label35: TLabel; Label35: TLabel;
Panel6: TPanel;
Label22: TLabel;
MYCode: TEdit;
MYName: TBtnEditA;
Label12: TLabel;
Label14: TLabel;
Label15: TLabel;
Label16: TLabel;
Label2: TLabel;
Label3: TLabel;
Label11: TLabel;
Label36: TLabel; Label36: TLabel;
MYKZ: TEdit;
MYMF: TEdit;
MYCF: TEdit;
MYJWS: TEdit;
MYMD: TEdit;
GCCodeName: TEdit; GCCodeName: TEdit;
Panel14: TPanel;
Label51: TLabel;
Label43: TLabel;
MYMDPrice: TEdit;
MDMFlag: TCheckBox;
MDKGFlag: TCheckBox;
HSFlag: TCheckBox;
BHSFlag: TCheckBox;
procedure liClick(Sender: TObject); procedure liClick(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject); procedure TBSaveClick(Sender: TObject);
@ -897,6 +898,9 @@ begin
if ShowModal = 1 then if ShowModal = 1 then
begin begin
InitData(); InitData();
Self.MXHZPS.Text := frmLLRKMXInPutMH_PBMX.MXHZPS.Text;
Self.MXHZKGQty.Text := frmLLRKMXInPutMH_PBMX.MXHZKGQty.Text;
Self.MXHZQty.Text := frmLLRKMXInPutMH_PBMX.MXHZQty.Text;
end; end;
end; end;
finally finally

651
云翔生产管理(MYSC.dll)/U_LLRKMXInPutMH_PBMX.dfm
View File

@ -1,25 +1,25 @@
object frmLLRKMXInPutMH_PBMX: TfrmLLRKMXInPutMH_PBMX object frmLLRKMXInPutMH_PBMX: TfrmLLRKMXInPutMH_PBMX
Left = 189 Left = 1038
Top = 135 Top = 596
Width = 1120 Width = 1120
Height = 654 Height = 654
Caption = #22383#24067#26126#32454#30721#21333#24405#20837 Caption = #22383#24067#26126#32454#30721#21333#24405#20837
Color = clBtnFace Color = clBtnFace
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -19 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [] Font.Style = []
OldCreateOrder = False OldCreateOrder = False
Position = poScreenCenter Position = poScreenCenter
OnClose = FormClose OnClose = FormClose
OnShow = FormShow OnShow = FormShow
PixelsPerInch = 120 PixelsPerInch = 96
TextHeight = 19 TextHeight = 15
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1102 Width = 1112
Height = 30 Height = 30
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 79 ButtonWidth = 79
@ -57,18 +57,19 @@ object frmLLRKMXInPutMH_PBMX: TfrmLLRKMXInPutMH_PBMX
Top = 0 Top = 0
Caption = #20445#23384 Caption = #20445#23384
ImageIndex = 5 ImageIndex = 5
Wrap = True
OnClick = TBSaveClick OnClick = TBSaveClick
end end
object Label19: TLabel object Label21: TLabel
Left = 115 Left = 0
Top = 0 Top = 30
Width = 384 Width = 432
Height = 30 Height = 30
Caption = ' ' Caption = ' '
end end
object labMYType: TLabel object labMYType: TLabel
Left = 499 Left = 432
Top = 0 Top = 30
Width = 180 Width = 180
Height = 30 Height = 30
Caption = #22383#24067#26126#32454#30721#21333 Caption = #22383#24067#26126#32454#30721#21333
@ -79,16 +80,16 @@ object frmLLRKMXInPutMH_PBMX: TfrmLLRKMXInPutMH_PBMX
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label21: TLabel object Label19: TLabel
Left = 679 Left = 612
Top = 0 Top = 30
Width = 432 Width = 384
Height = 30 Height = 30
Caption = ' ' Caption = ' '
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 1111 Left = 996
Top = 0 Top = 30
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
ImageIndex = 21 ImageIndex = 21
@ -96,16 +97,16 @@ object frmLLRKMXInPutMH_PBMX: TfrmLLRKMXInPutMH_PBMX
end end
end end
object Panel16: TPanel object Panel16: TPanel
Left = 568 Left = 448
Top = 292 Top = 231
Width = 315 Width = 249
Height = 38 Height = 30
BevelOuter = bvNone BevelOuter = bvNone
Caption = #27491#22312#20445#23384#25968#25454#65292#35831#31245#21518#12290#12290#12290 Caption = #27491#22312#20445#23384#25968#25454#65292#35831#31245#21518#12290#12290#12290
Color = clSkyBlue Color = clSkyBlue
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clRed Font.Color = clRed
Font.Height = -18 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -115,151 +116,21 @@ object frmLLRKMXInPutMH_PBMX: TfrmLLRKMXInPutMH_PBMX
object Panel6: TPanel object Panel6: TPanel
Left = 0 Left = 0
Top = 30 Top = 30
Width = 1102 Width = 1112
Height = 579 Height = 593
Align = alClient Align = alClient
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
TabOrder = 2 TabOrder = 2
object Panel8: TPanel
Left = 2
Top = 2
Width = 1098
Height = 46
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 0
object Label25: TLabel
Left = 424
Top = 9
Width = 71
Height = 27
Caption = #25968#37327':'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -27
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label30: TLabel
Left = 547
Top = 9
Width = 28
Height = 27
Caption = #31859
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -27
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label35: TLabel
Left = 656
Top = 9
Width = 56
Height = 27
Caption = #20844#26020
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -27
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object BtnDel: TButton
Left = 282
Top = 3
Width = 82
Height = 42
Caption = #21024#38500
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -25
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
OnClick = BtnDelClick
end
object Button1: TButton
Left = 158
Top = 3
Width = 83
Height = 41
Caption = #22686#34892
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -25
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
OnClick = Button1Click
end
object Button5: TButton
Left = 655
Top = 64
Width = 84
Height = 42
Caption = #20445#23384
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -18
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 2
Visible = False
OnClick = Button5Click
end
object UnitM: TEdit
Left = 495
Top = 4
Width = 45
Height = 32
Color = clMenuBar
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -27
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ReadOnly = True
TabOrder = 3
OnChange = UnitMChange
OnClick = UnitMClick
end
object UnitKg: TEdit
Left = 605
Top = 4
Width = 44
Height = 32
Color = clMenuBar
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -27
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ReadOnly = True
TabOrder = 4
OnChange = UnitKgChange
OnClick = UnitKgClick
end
end
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 2 Left = 2
Top = 48 Top = 38
Width = 1098 Width = 1108
Height = 486 Height = 519
Align = alClient Align = alClient
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -18 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
@ -660,246 +531,376 @@ object frmLLRKMXInPutMH_PBMX: TfrmLLRKMXInPutMH_PBMX
GridView = TV1 GridView = TV1
end end
end end
object Panel8: TPanel
Left = 2
Top = 2
Width = 1108
Height = 36
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 0
object Label25: TLabel
Left = 335
Top = 7
Width = 56
Height = 21
Caption = #25968#37327':'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -21
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label30: TLabel
Left = 432
Top = 7
Width = 22
Height = 21
Caption = #31859
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -21
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label35: TLabel
Left = 518
Top = 7
Width = 44
Height = 21
Caption = #20844#26020
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -21
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object BtnDel: TButton
Left = 223
Top = 2
Width = 64
Height = 34
Caption = #21024#38500
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -20
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
OnClick = BtnDelClick
end
object Button1: TButton
Left = 125
Top = 2
Width = 65
Height = 33
Caption = #22686#34892
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -20
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
OnClick = Button1Click
end
object Button5: TButton
Left = 517
Top = 51
Width = 66
Height = 33
Caption = #20445#23384
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 2
Visible = False
OnClick = Button5Click
end
object UnitM: TEdit
Left = 391
Top = 3
Width = 35
Height = 35
Color = clMenuBar
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -21
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ReadOnly = True
TabOrder = 3
OnChange = UnitMChange
OnClick = UnitMClick
end
object UnitKg: TEdit
Left = 478
Top = 3
Width = 34
Height = 35
Color = clMenuBar
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -21
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ReadOnly = True
TabOrder = 4
OnChange = UnitKgChange
OnClick = UnitKgClick
end
end
object Panel10: TPanel object Panel10: TPanel
Left = 2 Left = 2
Top = 534 Top = 557
Width = 1098 Width = 1108
Height = 43 Height = 34
Align = alBottom Align = alBottom
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
Color = clSkyBlue Color = clSkyBlue
TabOrder = 2 TabOrder = 2
object Label41: TLabel object Label41: TLabel
Left = 18 Left = 14
Top = 12 Top = 9
Width = 105 Width = 85
Height = 20 Height = 16
Caption = #20844#26020#25968#22343#25968 Caption = #20844#26020#25968#22343#25968
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -20 Font.Height = -16
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label42: TLabel object Label42: TLabel
Left = 222 Left = 175
Top = 12 Top = 9
Width = 84 Width = 68
Height = 20 Height = 16
Caption = #31859#25968#22343#25968 Caption = #31859#25968#22343#25968
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -20 Font.Height = -16
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label4: TLabel object Label4: TLabel
Left = 466 Left = 368
Top = 61 Top = 48
Width = 90 Width = 70
Height = 17 Height = 13
Caption = #26680#23545#25968#37327#65306 Caption = #26680#23545#25968#37327#65306
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -17 Font.Height = -13
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label5: TLabel object Label5: TLabel
Left = 619 Left = 489
Top = 61 Top = 48
Width = 18 Width = 14
Height = 17 Height = 13
Caption = #21305 Caption = #21305
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -17 Font.Height = -13
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label29: TLabel object Label29: TLabel
Left = 938 Left = 741
Top = 61 Top = 48
Width = 54 Width = 42
Height = 17 Height = 13
Caption = #37329#39069#65306 Caption = #37329#39069#65306
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -17 Font.Height = -13
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label44: TLabel object Label44: TLabel
Left = 757 Left = 598
Top = 61 Top = 48
Width = 18 Width = 14
Height = 17 Height = 13
Caption = #31859 Caption = #31859
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -17 Font.Height = -13
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label49: TLabel object Label49: TLabel
Left = 887 Left = 700
Top = 61 Top = 48
Width = 36 Width = 28
Height = 17 Height = 13
Caption = #20844#26020 Caption = #20844#26020
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -17 Font.Height = -13
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label9: TLabel object Label9: TLabel
Left = 466 Left = 368
Top = 80 Top = 63
Width = 90 Width = 70
Height = 17 Height = 13
Caption = #25968#37327#23545#27604#65306 Caption = #25968#37327#23545#27604#65306
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -17 Font.Height = -13
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label10: TLabel object Label10: TLabel
Left = 619 Left = 489
Top = 80 Top = 63
Width = 18 Width = 14
Height = 17 Height = 13
Caption = #21305 Caption = #21305
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -17 Font.Height = -13
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label17: TLabel object Label17: TLabel
Left = 757 Left = 598
Top = 80 Top = 63
Width = 18 Width = 14
Height = 17 Height = 13
Caption = #31859 Caption = #31859
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -17 Font.Height = -13
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label18: TLabel object Label18: TLabel
Left = 887 Left = 700
Top = 80 Top = 63
Width = 36 Width = 28
Height = 17 Height = 13
Caption = #20844#26020 Caption = #20844#26020
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -17 Font.Height = -13
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label6: TLabel object Label6: TLabel
Left = 938 Left = 741
Top = 80 Top = 63
Width = 54 Width = 42
Height = 17 Height = 13
Caption = #37329#39069#65306 Caption = #37329#39069#65306
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -17 Font.Height = -13
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label31: TLabel object Label31: TLabel
Left = 448 Left = 354
Top = 91 Top = 72
Width = 108 Width = 84
Height = 34 Height = 26
Caption = #30721#21333#24635#25968#37327#65306#13#10' ('#24405#20837')' Caption = #30721#21333#24635#25968#37327#65306#13#10' ('#24405#20837')'
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -17 Font.Height = -13
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label32: TLabel object Label32: TLabel
Left = 619 Left = 489
Top = 93 Top = 73
Width = 18 Width = 14
Height = 17 Height = 13
Caption = #21305 Caption = #21305
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -17 Font.Height = -13
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label28: TLabel object Label28: TLabel
Left = 938 Left = 741
Top = 93 Top = 73
Width = 54 Width = 42
Height = 17 Height = 13
Caption = #37329#39069#65306 Caption = #37329#39069#65306
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -17 Font.Height = -13
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label45: TLabel object Label45: TLabel
Left = 757 Left = 598
Top = 93 Top = 73
Width = 18 Width = 14
Height = 17 Height = 13
Caption = #31859 Caption = #31859
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -17 Font.Height = -13
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label50: TLabel object Label50: TLabel
Left = 887 Left = 700
Top = 93 Top = 73
Width = 36 Width = 28
Height = 17 Height = 13
Caption = #20844#26020 Caption = #20844#26020
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -17 Font.Height = -13
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Button10: TButton object Button10: TButton
Left = 655 Left = 517
Top = 64 Top = 51
Width = 84 Width = 66
Height = 42 Height = 33
Caption = #20445#23384 Caption = #20445#23384
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -18 Font.Height = -15
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -908,14 +909,14 @@ object frmLLRKMXInPutMH_PBMX: TfrmLLRKMXInPutMH_PBMX
end end
object KgQtyAvg: TEdit object KgQtyAvg: TEdit
Tag = 99 Tag = 99
Left = 127 Left = 100
Top = 8 Top = 6
Width = 69 Width = 55
Height = 23 Height = 25
Color = clMenuBar Color = clMenuBar
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -17 Font.Height = -13
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -924,14 +925,14 @@ object frmLLRKMXInPutMH_PBMX: TfrmLLRKMXInPutMH_PBMX
end end
object QtyAvg: TEdit object QtyAvg: TEdit
Tag = 99 Tag = 99
Left = 312 Left = 246
Top = 10 Top = 8
Width = 66 Width = 52
Height = 23 Height = 25
Color = clMenuBar Color = clMenuBar
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -17 Font.Height = -13
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -940,14 +941,14 @@ object frmLLRKMXInPutMH_PBMX: TfrmLLRKMXInPutMH_PBMX
end end
object MXHZPS: TEdit object MXHZPS: TEdit
Tag = 2 Tag = 2
Left = 550 Left = 434
Top = 53 Top = 42
Width = 65 Width = 52
Height = 23 Height = 25
Color = clMenuBar Color = clMenuBar
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -17 Font.Height = -13
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -955,14 +956,14 @@ object frmLLRKMXInPutMH_PBMX: TfrmLLRKMXInPutMH_PBMX
TabOrder = 3 TabOrder = 3
end end
object MXHZQty: TEdit object MXHZQty: TEdit
Left = 658 Left = 519
Top = 53 Top = 42
Width = 94 Width = 75
Height = 23 Height = 25
Color = clMenuBar Color = clMenuBar
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -17 Font.Height = -13
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -970,14 +971,14 @@ object frmLLRKMXInPutMH_PBMX: TfrmLLRKMXInPutMH_PBMX
TabOrder = 4 TabOrder = 4
end end
object MXHZKgQty: TEdit object MXHZKgQty: TEdit
Left = 790 Left = 624
Top = 53 Top = 42
Width = 92 Width = 72
Height = 23 Height = 25
Color = clMenuBar Color = clMenuBar
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -17 Font.Height = -13
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -986,27 +987,27 @@ object frmLLRKMXInPutMH_PBMX: TfrmLLRKMXInPutMH_PBMX
end end
object MYHDMoney: TEdit object MYHDMoney: TEdit
Tag = 2 Tag = 2
Left = 988 Left = 780
Top = 53 Top = 42
Width = 95 Width = 75
Height = 23 Height = 25
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -17 Font.Height = -13
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 6 TabOrder = 6
end end
object PSChaE: TEdit object PSChaE: TEdit
Left = 550 Left = 434
Top = 72 Top = 57
Width = 65 Width = 52
Height = 23 Height = 25
Color = clMenuBar Color = clMenuBar
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -17 Font.Height = -13
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -1014,14 +1015,14 @@ object frmLLRKMXInPutMH_PBMX: TfrmLLRKMXInPutMH_PBMX
TabOrder = 7 TabOrder = 7
end end
object QtyChaE: TEdit object QtyChaE: TEdit
Left = 658 Left = 519
Top = 72 Top = 57
Width = 94 Width = 75
Height = 23 Height = 25
Color = clMenuBar Color = clMenuBar
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -17 Font.Height = -13
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -1029,14 +1030,14 @@ object frmLLRKMXInPutMH_PBMX: TfrmLLRKMXInPutMH_PBMX
TabOrder = 8 TabOrder = 8
end end
object KgQtyChaE: TEdit object KgQtyChaE: TEdit
Left = 790 Left = 624
Top = 72 Top = 57
Width = 92 Width = 72
Height = 23 Height = 25
Color = clMenuBar Color = clMenuBar
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -17 Font.Height = -13
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -1045,13 +1046,13 @@ object frmLLRKMXInPutMH_PBMX: TfrmLLRKMXInPutMH_PBMX
end end
object MoneyChaE: TEdit object MoneyChaE: TEdit
Tag = 2 Tag = 2
Left = 988 Left = 780
Top = 72 Top = 57
Width = 95 Width = 75
Height = 23 Height = 25
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -17 Font.Height = -13
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -1059,13 +1060,13 @@ object frmLLRKMXInPutMH_PBMX: TfrmLLRKMXInPutMH_PBMX
end end
object PS: TEdit object PS: TEdit
Tag = 2 Tag = 2
Left = 550 Left = 434
Top = 89 Top = 70
Width = 64 Width = 51
Height = 23 Height = 25
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -17 Font.Height = -13
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -1073,13 +1074,13 @@ object frmLLRKMXInPutMH_PBMX: TfrmLLRKMXInPutMH_PBMX
end end
object Qty: TEdit object Qty: TEdit
Tag = 2 Tag = 2
Left = 657 Left = 519
Top = 88 Top = 69
Width = 94 Width = 74
Height = 23 Height = 25
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -17 Font.Height = -13
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -1087,13 +1088,13 @@ object frmLLRKMXInPutMH_PBMX: TfrmLLRKMXInPutMH_PBMX
end end
object KgQty: TEdit object KgQty: TEdit
Tag = 2 Tag = 2
Left = 790 Left = 624
Top = 89 Top = 70
Width = 92 Width = 72
Height = 23 Height = 25
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -17 Font.Height = -13
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -1101,13 +1102,13 @@ object frmLLRKMXInPutMH_PBMX: TfrmLLRKMXInPutMH_PBMX
end end
object MYMDMoney: TEdit object MYMDMoney: TEdit
Tag = 2 Tag = 2
Left = 988 Left = 780
Top = 88 Top = 69
Width = 95 Width = 75
Height = 23 Height = 25
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -17 Font.Height = -13
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -1196,7 +1197,7 @@ object frmLLRKMXInPutMH_PBMX: TfrmLLRKMXInPutMH_PBMX
end end
end end
object cxStyleRepository1: TcxStyleRepository object cxStyleRepository1: TcxStyleRepository
PixelsPerInch = 120 PixelsPerInch = 96
object cxStyle1: TcxStyle object cxStyle1: TcxStyle
AssignedValues = [svFont] AssignedValues = [svFont]
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET

19
云翔生产管理(MYSC.dll)/U_LLRKMXInPutMH_PBMX.pas
View File

@ -14,7 +14,20 @@ uses
cxGridCustomPopupMenu, cxGridPopupMenu, cxGroupBox, cxCheckBox, cxGridCustomPopupMenu, cxGridPopupMenu, cxGroupBox, cxCheckBox,
RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, Menus, RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, Menus,
cxGridBandedTableView, cxGridDBBandedTableView, cxLookAndFeels, cxGridBandedTableView, cxGridDBBandedTableView, cxLookAndFeels,
cxLookAndFeelPainters, cxNavigator; cxLookAndFeelPainters, cxNavigator, dxSkinsCore, dxSkinBlack, dxSkinBlue,
dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom,
dxSkinDarkSide, dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle,
dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary,
dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin,
dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins,
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin,
dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine,
dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, dxSkinscxPCPainter;
type type
TfrmLLRKMXInPutMH_PBMX = class(TForm) TfrmLLRKMXInPutMH_PBMX = class(TForm)
@ -265,6 +278,7 @@ begin
sql.Add('select * from CK_MYSC_CR_MX where MXID='''+Trim(maxmxno)+''''); sql.Add('select * from CK_MYSC_CR_MX where MXID='''+Trim(maxmxno)+'''');
Open; Open;
end; end;
with ADOCmd do with ADOCmd do
begin begin
Append; Append;
@ -277,6 +291,7 @@ begin
FieldByName('FillerCode').Value:=Trim(DCode); FieldByName('FillerCode').Value:=Trim(DCode);
Post; Post;
end; end;
with ADOCmd do with ADOCmd do
begin begin
Close; Close;
@ -285,6 +300,7 @@ begin
Parameters.ParamByName('MYID').Value:=Trim(FMainId); Parameters.ParamByName('MYID').Value:=Trim(FMainId);
ExecSQL; ExecSQL;
end; end;
with ADOCmd do with ADOCmd do
begin begin
Close; Close;
@ -304,6 +320,7 @@ begin
end; end;
end; end;
ClientDataSet1.EnableControls; ClientDataSet1.EnableControls;
with ADOCmd do with ADOCmd do
begin begin
Close; Close;

149
云翔生产管理(MYSC.dll)/U_PBCGRKList.dfm
View File

@ -295,10 +295,11 @@ object frmPBCGRKList: TfrmPBCGRKList
Color = clSkyBlue Color = clSkyBlue
TabOrder = 1 TabOrder = 1
object Label34: TLabel object Label34: TLabel
Left = 239 Left = 15
Top = 13 Top = 13
Width = 80 Width = 96
Height = 15 Height = 15
Alignment = taRightJustify
Caption = #20379#24212#21830#31616#31216 Caption = #20379#24212#21830#31616#31216
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -308,8 +309,8 @@ object frmPBCGRKList: TfrmPBCGRKList
ParentFont = False ParentFont = False
end end
object Label2: TLabel object Label2: TLabel
Left = 36 Left = 360
Top = 13 Top = 45
Width = 32 Width = 32
Height = 15 Height = 15
Caption = #21697#21517 Caption = #21697#21517
@ -321,10 +322,11 @@ object frmPBCGRKList: TfrmPBCGRKList
ParentFont = False ParentFont = False
end end
object Label1: TLabel object Label1: TLabel
Left = 36 Left = 700
Top = 40 Top = 45
Width = 32 Width = 80
Height = 15 Height = 15
Alignment = taRightJustify
Caption = #22791#27880 Caption = #22791#27880
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -334,8 +336,8 @@ object frmPBCGRKList: TfrmPBCGRKList
ParentFont = False ParentFont = False
end end
object Label3: TLabel object Label3: TLabel
Left = 239 Left = 15
Top = 40 Top = 45
Width = 96 Width = 96
Height = 15 Height = 15
Caption = #36827#20179#21333#20301#31616#31216 Caption = #36827#20179#21333#20301#31616#31216
@ -347,7 +349,7 @@ object frmPBCGRKList: TfrmPBCGRKList
ParentFont = False ParentFont = False
end end
object Label4: TLabel object Label4: TLabel
Left = 583 Left = 550
Top = 13 Top = 13
Width = 48 Width = 48
Height = 15 Height = 15
@ -360,8 +362,8 @@ object frmPBCGRKList: TfrmPBCGRKList
ParentFont = False ParentFont = False
end end
object Label5: TLabel object Label5: TLabel
Left = 583 Left = 550
Top = 40 Top = 45
Width = 48 Width = 48
Height = 15 Height = 15
Caption = #37319#36141#20154 Caption = #37319#36141#20154
@ -373,8 +375,8 @@ object frmPBCGRKList: TfrmPBCGRKList
ParentFont = False ParentFont = False
end end
object Label6: TLabel object Label6: TLabel
Left = 733 Left = 700
Top = 40 Top = 13
Width = 80 Width = 80
Height = 15 Height = 15
Caption = #22383#24067#32852#31995#21495 Caption = #22383#24067#32852#31995#21495
@ -386,7 +388,7 @@ object frmPBCGRKList: TfrmPBCGRKList
ParentFont = False ParentFont = False
end end
object Label7: TLabel object Label7: TLabel
Left = 775 Left = 360
Top = 13 Top = 13
Width = 32 Width = 32
Height = 15 Height = 15
@ -426,13 +428,13 @@ object frmPBCGRKList: TfrmPBCGRKList
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 8 TabOrder = 6
end end
object Note: TEdit object Note: TEdit
Tag = 2 Tag = 2
Left = 70 Left = 789
Top = 36 Top = 41
Width = 141 Width = 140
Height = 23 Height = 23
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -440,7 +442,7 @@ object frmPBCGRKList: TfrmPBCGRKList
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 4 TabOrder = 3
OnChange = CustomerNoNameChange OnChange = CustomerNoNameChange
end end
object CheckBox1: TCheckBox object CheckBox1: TCheckBox
@ -460,33 +462,9 @@ object frmPBCGRKList: TfrmPBCGRKList
TabOrder = 2 TabOrder = 2
OnClick = CheckBox1Click OnClick = CheckBox1Click
end end
object JCDanWeiJC: TEdit
Tag = 2
Left = 339
Top = 36
Width = 118
Height = 23
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 5
OnChange = CustomerNoNameChange
end
object Button1: TButton
Left = 458
Top = 35
Width = 27
Height = 24
Caption = '...'
TabOrder = 3
OnClick = Button1Click
end
object filler: TEdit object filler: TEdit
Tag = 2 Tag = 2
Left = 635 Left = 607
Top = 9 Top = 9
Width = 84 Width = 84
Height = 23 Height = 23
@ -501,8 +479,8 @@ object frmPBCGRKList: TfrmPBCGRKList
end end
object JCKHNo: TEdit object JCKHNo: TEdit
Tag = 2 Tag = 2
Left = 485 Left = 269
Top = 36 Top = 41
Width = 82 Width = 82
Height = 23 Height = 23
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -511,13 +489,13 @@ object frmPBCGRKList: TfrmPBCGRKList
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 6 TabOrder = 4
OnChange = CustomerNoNameChange OnChange = CustomerNoNameChange
end end
object CGName: TEdit object CGName: TEdit
Tag = 2 Tag = 2
Left = 635 Left = 607
Top = 36 Top = 41
Width = 84 Width = 84
Height = 23 Height = 23
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -526,29 +504,29 @@ object frmPBCGRKList: TfrmPBCGRKList
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 5
OnChange = CustomerNoNameChange
end
object PBBatchNo: TEdit
Tag = 2
Left = 789
Top = 9
Width = 140
Height = 23
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 7 TabOrder = 7
OnChange = CustomerNoNameChange OnChange = CustomerNoNameChange
end end
object PBBatchNo: TEdit
Tag = 2
Left = 808
Top = 36
Width = 122
Height = 23
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 9
OnChange = CustomerNoNameChange
end
object MYCode: TEdit object MYCode: TEdit
Tag = 2 Tag = 2
Left = 808 Left = 401
Top = 9 Top = 9
Width = 121 Width = 140
Height = 23 Height = 23
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -556,13 +534,13 @@ object frmPBCGRKList: TfrmPBCGRKList
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 10 TabOrder = 8
OnChange = CustomerNoNameChange OnChange = CustomerNoNameChange
end end
object MYName: TComboBox object MYName: TComboBox
Tag = 2 Tag = 2
Left = 72 Left = 401
Top = 6 Top = 41
Width = 140 Width = 140
Height = 23 Height = 23
Color = clScrollBar Color = clScrollBar
@ -573,13 +551,13 @@ object frmPBCGRKList: TfrmPBCGRKList
Font.Style = [fsBold] Font.Style = [fsBold]
ItemHeight = 15 ItemHeight = 15
ParentFont = False ParentFont = False
TabOrder = 11 TabOrder = 9
OnChange = CustomerNoNameChange OnChange = CustomerNoNameChange
end end
object KHNameJC: TComboBox object KHNameJC: TComboBox
Tag = 2 Tag = 2
Left = 340 Left = 120
Top = 6 Top = 9
Width = 140 Width = 140
Height = 23 Height = 23
Color = clScrollBar Color = clScrollBar
@ -590,13 +568,13 @@ object frmPBCGRKList: TfrmPBCGRKList
Font.Style = [fsBold] Font.Style = [fsBold]
ItemHeight = 15 ItemHeight = 15
ParentFont = False ParentFont = False
TabOrder = 12 TabOrder = 10
OnChange = KHNameJCChange OnChange = KHNameJCChange
end end
object KHNo: TEdit object KHNo: TEdit
Tag = 2 Tag = 2
Left = 486 Left = 269
Top = 8 Top = 9
Width = 82 Width = 82
Height = 23 Height = 23
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -605,9 +583,26 @@ object frmPBCGRKList: TfrmPBCGRKList
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 13 TabOrder = 11
OnChange = CustomerNoNameChange OnChange = CustomerNoNameChange
end end
object JCDanWeiJC: TBtnEditA
Tag = 2
Left = 120
Top = 40
Width = 140
Height = 25
Enabled = False
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 12
OnChange = CustomerNoNameChange
OnBtnClick = JCDanWeiJCBtnClick
end
end end
object Panel3: TPanel object Panel3: TPanel
Left = 687 Left = 687

25
云翔生产管理(MYSC.dll)/U_PBCGRKList.pas
View File

@ -73,8 +73,6 @@ type
v1MYMDMoney: TcxGridDBColumn; v1MYMDMoney: TcxGridDBColumn;
v1JCDanWeiJC: TcxGridDBColumn; v1JCDanWeiJC: TcxGridDBColumn;
Label3: TLabel; Label3: TLabel;
JCDanWeiJC: TEdit;
Button1: TButton;
v1filler: TcxGridDBColumn; v1filler: TcxGridDBColumn;
Label4: TLabel; Label4: TLabel;
filler: TEdit; filler: TEdit;
@ -139,6 +137,7 @@ type
ADOQuery1: TADOQuery; ADOQuery1: TADOQuery;
ADOQuery2: TADOQuery; ADOQuery2: TADOQuery;
KHNo: TEdit; KHNo: TEdit;
JCDanWeiJC: TBtnEditA;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
@ -167,6 +166,7 @@ type
procedure ToRCNameBtnClick(Sender: TObject); procedure ToRCNameBtnClick(Sender: TObject);
procedure N5Click(Sender: TObject); procedure N5Click(Sender: TObject);
procedure KHNameJCChange(Sender: TObject); procedure KHNameJCChange(Sender: TObject);
procedure JCDanWeiJCBtnClick(Sender: TObject);
private private
canshu1: string; canshu1: string;
DQdate: TDateTime; DQdate: TDateTime;
@ -768,6 +768,7 @@ begin
if ShowModal = 1 then if ShowModal = 1 then
begin begin
Self.JCDanWeiJC.Text := Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); Self.JCDanWeiJC.Text := Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString);
Self.JCKHNo.Text := Trim(frmGYSList.Order_Main.fieldbyname('KHNo').AsString);
TBFind.Click; TBFind.Click;
end; end;
end; end;
@ -1348,5 +1349,25 @@ begin
KHNo.Text := Trim(ADOQuery2.fieldbyname('KHNo').AsString); KHNo.Text := Trim(ADOQuery2.fieldbyname('KHNo').AsString);
end; end;
procedure TfrmPBCGRKList.JCDanWeiJCBtnClick(Sender: TObject);
begin
try
frmGYSList := TfrmGYSList.Create(Application);
with frmGYSList do
begin
KHType.Text := 'Ⱦ³§';
KHType.TxtCode := 'Ⱦ³§';
if ShowModal = 1 then
begin
Self.JCDanWeiJC.Text := Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString);
Self.JCKHNo.Text := Trim(frmGYSList.Order_Main.fieldbyname('KHNo').AsString);
TBFind.Click;
end;
end;
finally
frmGYSList.Free;
end;
end;
end. end.

199
云翔生产管理(MYSC.dll)/U_ZHCPInPut.dfm
View File

@ -675,6 +675,161 @@ object frmZHCPInPut: TfrmZHCPInPut
Visible = False Visible = False
OnDblClick = Image2DblClick OnDblClick = Image2DblClick
end end
object Panel12: TPanel
Left = 22
Top = 55
Width = 201
Height = 88
TabOrder = 0
Visible = False
object Label32: TLabel
Left = 8
Top = 31
Width = 52
Height = 12
Caption = #25991#20214#21517#31216
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object btn1: TButton
Left = 9
Top = 55
Width = 51
Height = 26
Caption = #26159
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 2
OnClick = Button2Click
end
object Panel13: TPanel
Left = 1
Top = 1
Width = 199
Height = 20
Align = alTop
Alignment = taLeftJustify
BevelOuter = bvNone
Caption = ' '#26159#21542#26356#25913#25991#20214#21517#31216'?'
Color = clSkyBlue
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -13
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
object img1: TImage
Left = 175
Top = 2
Width = 22
Height = 18
ParentShowHint = False
Picture.Data = {
07544269746D617076040000424D760400000000000036000000280000001500
0000110000000100180000000000400400000000000000000000000000000000
0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FF00FFFFFFFFFFFFF0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6
F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6FFFFFFFFFF
FF00FFFFFFFFFFFF404040404040404040404040404040404040404040404040
404040404040404040404040404040404040404040404040F0CAA6FFFFFFFFFF
FF00FFFFFFFFFFFFFFFFFF808080808080808080808080808080808080808080
808080808080808080808080808080808080808080404040F0CAA6FFFFFFFFFF
FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4
C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4
C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000
000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000
000000C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000
000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4
C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4
C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FF00}
ShowHint = True
Transparent = True
end
end
object WJName: TEdit
Left = 61
Top = 28
Width = 134
Height = 20
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
end
object btn2: TButton
Left = 141
Top = 55
Width = 49
Height = 25
Caption = #21542
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 4
end
object WJPach: TEdit
Left = 83
Top = 185
Width = 285
Height = 28
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -20
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 5
end
object btn3: TButton
Left = 76
Top = 55
Width = 50
Height = 25
Caption = #30830#23450
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 3
end
end
end end
object Panel2: TPanel object Panel2: TPanel
Left = 258 Left = 258
@ -1006,26 +1161,26 @@ object frmZHCPInPut: TfrmZHCPInPut
Connection = DataLink_MYSC.ADOLink Connection = DataLink_MYSC.ADOLink
LockType = ltReadOnly LockType = ltReadOnly
Parameters = <> Parameters = <>
Left = 584 Left = 773
Top = 5 Top = 317
end end
object ADOCmd: TADOQuery object ADOCmd: TADOQuery
Connection = DataLink_MYSC.ADOLink Connection = DataLink_MYSC.ADOLink
Parameters = <> Parameters = <>
Left = 552 Left = 621
Top = 5 Top = 317
end end
object ADOQuery1: TADOQuery object ADOQuery1: TADOQuery
Connection = DataLink_MYSC.ADOLink Connection = DataLink_MYSC.ADOLink
Parameters = <> Parameters = <>
Left = 728 Left = 659
Top = 5 Top = 317
end end
object CDS_PRT: TClientDataSet object CDS_PRT: TClientDataSet
Aggregates = <> Aggregates = <>
Params = <> Params = <>
Left = 700 Left = 621
Top = 6 Top = 355
end end
object RM1: TRMGridReport object RM1: TRMGridReport
ThreadPrepareReport = True ThreadPrepareReport = True
@ -1044,43 +1199,43 @@ object frmZHCPInPut: TfrmZHCPInPut
CompressThread = False CompressThread = False
LaterBuildEvents = True LaterBuildEvents = True
OnlyOwnerDataSet = False OnlyOwnerDataSet = False
Left = 757 Left = 773
Top = 5 Top = 355
ReportData = {} ReportData = {}
end end
object ODPat: TOpenDialog object ODPat: TOpenDialog
Options = [ofReadOnly, ofAllowMultiSelect, ofPathMustExist, ofFileMustExist, ofEnableSizing] Options = [ofReadOnly, ofAllowMultiSelect, ofPathMustExist, ofFileMustExist, ofEnableSizing]
Left = 484 Left = 697
Top = 5 Top = 355
end end
object IdFTP1: TIdFTP object IdFTP1: TIdFTP
MaxLineAction = maException MaxLineAction = maException
ReadTimeout = 0 ReadTimeout = 0
ProxySettings.ProxyType = fpcmNone ProxySettings.ProxyType = fpcmNone
ProxySettings.Port = 0 ProxySettings.Port = 0
Left = 517 Left = 659
Top = 4 Top = 355
end end
object SaveDialog1: TSaveDialog object SaveDialog1: TSaveDialog
Left = 457 Left = 621
Top = 5 Top = 393
end end
object adoqueryPicture: TADOQuery object adoqueryPicture: TADOQuery
Connection = DataLink_MYSC.ADOLink Connection = DataLink_MYSC.ADOLink
Parameters = <> Parameters = <>
Left = 615 Left = 735
Top = 5 Top = 317
end end
object RMDBMain: TRMDBDataSet object RMDBMain: TRMDBDataSet
Visible = True Visible = True
DataSet = CDS_PRT DataSet = CDS_PRT
Left = 657 Left = 735
Top = 5 Top = 355
end end
object ADOQueryCmd: TADOQuery object ADOQueryCmd: TADOQuery
Connection = DataLink_MYSC.ADOLink Connection = DataLink_MYSC.ADOLink
Parameters = <> Parameters = <>
Left = 208 Left = 697
Top = 208 Top = 317
end end
end end

9
云翔生产管理(MYSC.dll)/U_ZHCPInPut.pas
View File

@ -104,6 +104,15 @@ type
TSHGYCB: TEdit; TSHGYCB: TEdit;
Label31: TLabel; Label31: TLabel;
CPSSL: TEdit; CPSSL: TEdit;
Panel12: TPanel;
Label32: TLabel;
btn1: TButton;
Panel13: TPanel;
img1: TImage;
WJName: TEdit;
btn2: TButton;
WJPach: TEdit;
btn3: TButton;
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject); procedure TBSaveClick(Sender: TObject);