~
This commit is contained in:
DESKTOP-E401PHE\Administrator
parent
d60d2e3545
commit
8d6b90b127
|
|
@ -898,6 +898,8 @@ begin
|
|||
FieldByName('ORDSubIdRK').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('SubId').AsString);
|
||||
FieldByName('OrderNo').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('OrderNo').AsString);
|
||||
FieldByName('PiQty').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('PRTddps').AsString);
|
||||
FieldByName('Qty').Value := Trim(frmProductOrderListSel1.Order_Main.fieldbyname('PRTOrderQty').AsString);
|
||||
FieldByName('QtyUnit').Value := Trim(frmProductOrderListSel1.Order_Main.fieldbyname('OrderUnit').AsString);
|
||||
FieldByName('RCGangNo').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('PRTrcgh').AsString);
|
||||
FieldByName('SOrddefstr1').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('SOrddefstr1').AsString);
|
||||
FieldByName('PRTColor').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('PRTColor').AsString);
|
||||
|
|
@ -963,17 +965,19 @@ begin
|
|||
FieldByName('ORDMainIdRK').Value := Trim(frmProductOrderListSel1.Order_Main.fieldbyname('MainId').AsString);
|
||||
FieldByName('ORDSubIdRK').Value := Trim(frmProductOrderListSel1.Order_Main.fieldbyname('SubId').AsString);
|
||||
FieldByName('OrderNo').Value := Trim(frmProductOrderListSel1.Order_Main.fieldbyname('OrderNo').AsString);
|
||||
FieldByName('PiQty').Value := Trim(frmProductOrderListSel1.Order_Main.fieldbyname('PRTddps').AsString);
|
||||
FieldByName('Qty').Value := Trim(frmProductOrderListSel1.Order_Main.fieldbyname('PRTOrderQty').AsString);
|
||||
FieldByName('QtyUnit').Value := Trim(frmProductOrderListSel1.Order_Main.fieldbyname('OrderUnit').AsString);
|
||||
|
||||
FieldByName('RCGangNo').Value := Trim(frmProductOrderListSel1.Order_Main.fieldbyname('PRTrcgh').AsString);
|
||||
FieldByName('SOrddefstr1').Value := Trim(frmProductOrderListSel1.Order_Main.fieldbyname('SOrddefstr1').AsString);
|
||||
FieldByName('PRTColor').Value := Trim(frmProductOrderListSel1.Order_Main.fieldbyname('PRTColor').AsString);
|
||||
FieldByName('PRTkuanNo').Value := Trim(frmProductOrderListSel1.Order_Main.fieldbyname('PRTkuanNo').AsString);
|
||||
FieldByName('PRTHX').Value := Trim(frmProductOrderListSel1.Order_Main.fieldbyname('PRTHX').AsString);
|
||||
FieldByName('SPName').Value := Trim(frmProductOrderListSel1.Order_Main.fieldbyname('PRTCodeName').AsString);
|
||||
FieldByName('SPSpec').Value := Trim(frmProductOrderListSel1.Order_Main.fieldbyname('PRTSpec').AsString);
|
||||
// FieldByName('SPCF').Value:=Trim(frmProductOrderListSel1.Order_Main.fieldbyname('PRTCF').AsString);
|
||||
FieldByName('SPMF').Value := Trim(frmProductOrderListSel1.Order_Main.fieldbyname('PRTMF').AsString);
|
||||
// FieldByName('MPRTCode').Value:=Trim(frmProductOrderListSel1.Order_Main.fieldbyname('MPRTCode').AsString);
|
||||
FieldByName('SPKZ').Value := Trim(frmProductOrderListSel1.Order_Main.fieldbyname('PRTKZ').AsString);
|
||||
// FieldByName('FactoryName').Value:=Trim(frmProductOrderListSel1.Order_Main.fieldbyname('ToFactoryName').AsString);
|
||||
Post;
|
||||
end;
|
||||
end;
|
||||
|
|
|
|||
|
|
@ -55,16 +55,24 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
|||
ImageIndex = 59
|
||||
OnClick = TBFindClick
|
||||
end
|
||||
object TBExport: TToolButton
|
||||
object ToolButton8: TToolButton
|
||||
Left = 126
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #26029#21495#26597#35810
|
||||
ImageIndex = 21
|
||||
OnClick = ToolButton8Click
|
||||
end
|
||||
object TBExport: TToolButton
|
||||
Left = 213
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #23548#20986
|
||||
ImageIndex = 75
|
||||
OnClick = TBExportClick
|
||||
end
|
||||
object TBZF: TToolButton
|
||||
Left = 189
|
||||
Left = 276
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #20316#24223
|
||||
|
|
@ -73,7 +81,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
|||
OnClick = TBZFClick
|
||||
end
|
||||
object TBManage: TToolButton
|
||||
Left = 252
|
||||
Left = 339
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #32534#36753
|
||||
|
|
@ -82,7 +90,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
|||
OnClick = TBManageClick
|
||||
end
|
||||
object TBDW: TToolButton
|
||||
Left = 315
|
||||
Left = 402
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #20462#25913#25968#37327#21333#20301
|
||||
|
|
@ -90,32 +98,32 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
|||
OnClick = TBDWClick
|
||||
end
|
||||
object ToolButton4: TToolButton
|
||||
Left = 426
|
||||
Left = 513
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #25209#37327#35843#25972#31859#25968
|
||||
ImageIndex = 54
|
||||
Wrap = True
|
||||
OnClick = ToolButton4Click
|
||||
end
|
||||
object ToolButton6: TToolButton
|
||||
Left = 0
|
||||
Top = 30
|
||||
Left = 624
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #20986#24211
|
||||
ImageIndex = 16
|
||||
OnClick = ToolButton6Click
|
||||
end
|
||||
object ToolButton7: TToolButton
|
||||
Left = 63
|
||||
Top = 30
|
||||
Left = 687
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #25764#38144#20986#24211
|
||||
ImageIndex = 86
|
||||
Wrap = True
|
||||
OnClick = ToolButton7Click
|
||||
end
|
||||
object ToolButton1: TToolButton
|
||||
Left = 150
|
||||
Left = 0
|
||||
Top = 30
|
||||
AutoSize = True
|
||||
Caption = #25171#21360#26631#31614
|
||||
|
|
@ -124,7 +132,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
|||
OnClick = ToolButton1Click
|
||||
end
|
||||
object TCPDB: TToolButton
|
||||
Left = 237
|
||||
Left = 87
|
||||
Top = 30
|
||||
AutoSize = True
|
||||
Caption = #25104#21697#25171#21253
|
||||
|
|
@ -133,7 +141,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
|||
OnClick = TCPDBClick
|
||||
end
|
||||
object ToolButton3: TToolButton
|
||||
Left = 324
|
||||
Left = 174
|
||||
Top = 30
|
||||
AutoSize = True
|
||||
Caption = #25171#21360#21253#26631#31614
|
||||
|
|
@ -142,7 +150,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
|||
OnClick = ToolButton3Click
|
||||
end
|
||||
object ToolButton2: TToolButton
|
||||
Left = 423
|
||||
Left = 273
|
||||
Top = 30
|
||||
AutoSize = True
|
||||
Caption = #25171#21360#26816#39564#25253#21578
|
||||
|
|
@ -150,7 +158,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
|||
OnClick = ToolButton2Click
|
||||
end
|
||||
object ToolButton5: TToolButton
|
||||
Left = 534
|
||||
Left = 384
|
||||
Top = 30
|
||||
AutoSize = True
|
||||
Caption = #25171#21360
|
||||
|
|
@ -158,7 +166,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
|||
OnClick = ToolButton5Click
|
||||
end
|
||||
object ComboBox1: TComboBox
|
||||
Left = 597
|
||||
Left = 447
|
||||
Top = 33
|
||||
Width = 149
|
||||
Height = 24
|
||||
|
|
@ -181,7 +189,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
|||
#26816#39564#30721#21333'('#19977#32852#31859')')
|
||||
end
|
||||
object TBAftChkHX: TToolButton
|
||||
Left = 746
|
||||
Left = 596
|
||||
Top = 30
|
||||
AutoSize = True
|
||||
Caption = #26816#21518#22238#20462
|
||||
|
|
@ -190,7 +198,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
|||
OnClick = TBAftChkHXClick
|
||||
end
|
||||
object TBClose: TToolButton
|
||||
Left = 833
|
||||
Left = 683
|
||||
Top = 30
|
||||
AutoSize = True
|
||||
Caption = #20851#38381
|
||||
|
|
@ -585,6 +593,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
|||
Height = 20
|
||||
TabOrder = 7
|
||||
OnChange = CustomerNoNameChange
|
||||
OnKeyPress = SOrddefstr1KeyPress
|
||||
end
|
||||
object PRTHX: TEdit
|
||||
Tag = 2
|
||||
|
|
@ -594,8 +603,9 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
|||
Height = 20
|
||||
TabOrder = 15
|
||||
OnChange = CustomerNoNameChange
|
||||
OnKeyPress = SOrddefstr1KeyPress
|
||||
end
|
||||
object gangno: TEdit
|
||||
object mjstr4: TEdit
|
||||
Tag = 2
|
||||
Left = 1062
|
||||
Top = 11
|
||||
|
|
@ -603,6 +613,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
|||
Height = 20
|
||||
TabOrder = 8
|
||||
OnChange = CustomerNoNameChange
|
||||
OnKeyPress = SOrddefstr1KeyPress
|
||||
end
|
||||
object PRTkuanNo: TEdit
|
||||
Tag = 2
|
||||
|
|
@ -612,6 +623,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
|||
Height = 20
|
||||
TabOrder = 16
|
||||
OnChange = CustomerNoNameChange
|
||||
OnKeyPress = SOrddefstr1KeyPress
|
||||
end
|
||||
end
|
||||
object cxGrid1: TcxGrid
|
||||
|
|
@ -878,7 +890,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
|||
end
|
||||
object v1Column4: TcxGridDBColumn
|
||||
Caption = #32568#21495
|
||||
DataBinding.FieldName = 'gangno'
|
||||
DataBinding.FieldName = 'mjstr4'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 60
|
||||
|
|
@ -1251,14 +1263,61 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
|||
Height = 145
|
||||
ItemIndex = 0
|
||||
Items.Strings = (
|
||||
#39034#40511#39564#25253
|
||||
#37329#31077#24800
|
||||
#37329#38745#25253#21578#10
|
||||
#39034#40511#21253#35013#39564#25253
|
||||
#21019#27719#39564#25253
|
||||
#21019#27719#21253#35013#39564#25253
|
||||
#25104#21697#26816#39564#25253#21578)
|
||||
TabOrder = 1
|
||||
end
|
||||
end
|
||||
object Panel7: TPanel
|
||||
Left = 376
|
||||
Top = 444
|
||||
Width = 505
|
||||
Height = 101
|
||||
Color = clSkyBlue
|
||||
TabOrder = 8
|
||||
Visible = False
|
||||
object Label20: TLabel
|
||||
Left = 8
|
||||
Top = 20
|
||||
Width = 36
|
||||
Height = 12
|
||||
Caption = #32570#21495#65306
|
||||
end
|
||||
object ComboBox2: TComboBox
|
||||
Left = -12
|
||||
Top = 72
|
||||
Width = 145
|
||||
Height = 20
|
||||
Style = csDropDownList
|
||||
ItemHeight = 12
|
||||
TabOrder = 0
|
||||
Visible = False
|
||||
Items.Strings = (
|
||||
''
|
||||
'M'
|
||||
'Y')
|
||||
end
|
||||
object Button3: TButton
|
||||
Left = -8
|
||||
Top = 72
|
||||
Width = 60
|
||||
Height = 25
|
||||
Caption = #30830#23450
|
||||
TabOrder = 1
|
||||
Visible = False
|
||||
OnClick = Button5Click
|
||||
end
|
||||
object Button4: TButton
|
||||
Left = 428
|
||||
Top = 64
|
||||
Width = 60
|
||||
Height = 25
|
||||
Caption = #20851#38381
|
||||
TabOrder = 2
|
||||
OnClick = Button4Click
|
||||
end
|
||||
end
|
||||
object cxGridPopupMenu1: TcxGridPopupMenu
|
||||
Grid = cxGrid1
|
||||
PopupMenus = <>
|
||||
|
|
@ -1333,8 +1392,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
|||
CompressThread = False
|
||||
LaterBuildEvents = True
|
||||
OnlyOwnerDataSet = False
|
||||
Left = 424
|
||||
Top = 256
|
||||
Left = 400
|
||||
Top = 328
|
||||
ReportData = {}
|
||||
end
|
||||
object RMDB_Main: TRMDBDataSet
|
||||
|
|
|
|||
|
|
@ -125,7 +125,7 @@ type
|
|||
PRTHX: TEdit;
|
||||
v1Column4: TcxGridDBColumn;
|
||||
v1Column5: TcxGridDBColumn;
|
||||
gangno: TEdit;
|
||||
mjstr4: TEdit;
|
||||
Label15: TLabel;
|
||||
v1Column13: TcxGridDBColumn;
|
||||
v1Column18: TcxGridDBColumn;
|
||||
|
|
@ -167,6 +167,12 @@ type
|
|||
Tv1Column3: TcxGridDBColumn;
|
||||
ToolButton6: TToolButton;
|
||||
ToolButton7: TToolButton;
|
||||
ToolButton8: TToolButton;
|
||||
Panel7: TPanel;
|
||||
Label20: TLabel;
|
||||
ComboBox2: TComboBox;
|
||||
Button3: TButton;
|
||||
Button4: TButton;
|
||||
procedure FormDestroy(Sender: TObject);
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
|
|
@ -208,6 +214,9 @@ type
|
|||
procedure Image1Click(Sender: TObject);
|
||||
procedure ToolButton6Click(Sender: TObject);
|
||||
procedure ToolButton7Click(Sender: TObject);
|
||||
procedure SOrddefstr1KeyPress(Sender: TObject; var Key: Char);
|
||||
procedure ToolButton8Click(Sender: TObject);
|
||||
procedure Button4Click(Sender: TObject);
|
||||
private
|
||||
DQdate: TDateTime;
|
||||
FLeft, FTop: Integer;
|
||||
|
|
@ -856,7 +865,7 @@ begin
|
|||
TBFind.Click;
|
||||
if Order_Main.IsEmpty = False then
|
||||
begin
|
||||
//InitOrderColor(Trim(Order_Main.fieldbyname('MainId').AsString),PRTColor,ADOQueryTemp);
|
||||
InitOrderColor(Trim(Order_Main.fieldbyname('MainId').AsString), PRTColor, ADOQueryTemp);
|
||||
//InitBCGangNo(Trim(Order_Main.fieldbyname('SubId').AsString),AOrdDefStr1,ADOQueryTemp);
|
||||
end;
|
||||
end;
|
||||
|
|
@ -1377,8 +1386,8 @@ begin
|
|||
// fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\쇱駱괩멩팹繫경.rmf';
|
||||
if FileExists(fPrintFile) then
|
||||
begin
|
||||
RM2.LoadFromFile(fPrintFile);
|
||||
RM2.ShowReport;
|
||||
RM1.LoadFromFile(fPrintFile);
|
||||
RM1.ShowReport;
|
||||
end
|
||||
else
|
||||
begin
|
||||
|
|
@ -1390,7 +1399,7 @@ end;
|
|||
|
||||
procedure TfrmJYOrderCDOne.ToolButton5Click(Sender: TObject);
|
||||
var
|
||||
fPrintFile, fPrintFile10, FMainID: string;
|
||||
fPrintFile, fPrintFile10, FMainID, sqlstr: string;
|
||||
begin
|
||||
if Order_Main.IsEmpty then
|
||||
Exit;
|
||||
|
|
@ -1417,6 +1426,7 @@ begin
|
|||
sql.Add('SELECT * FROM TBSubID where 1=2 ');
|
||||
open;
|
||||
end;
|
||||
sqlstr := '';
|
||||
FMainID := '';
|
||||
Order_Main.DisableControls;
|
||||
try
|
||||
|
|
@ -1442,10 +1452,15 @@ begin
|
|||
exit;
|
||||
end;
|
||||
end;
|
||||
ADOQueryCmd.append;
|
||||
ADOQueryCmd.fieldbyname('SubId').Value := Trim(Order_Main.fieldbyname('MJID').AsString);
|
||||
ADOQueryCmd.fieldbyname('Dname').Value := Trim(DCode);
|
||||
ADOQueryCmd.post;
|
||||
sqlstr := sqlstr + 'insert into TBSubID(SubId,Dname) ';
|
||||
sqlstr := sqlstr + ' values( ';
|
||||
sqlstr := sqlstr + ' ''' + Trim(Order_Main.fieldbyname('MJID').AsString) + ''', ';
|
||||
sqlstr := sqlstr + ' ''' + Trim(DCode) + ''' ';
|
||||
sqlstr := sqlstr + ' ) ';
|
||||
// ADOQueryCmd.append;
|
||||
// ADOQueryCmd.fieldbyname('SubId').Value := Trim(Order_Main.fieldbyname('MJID').AsString);
|
||||
// ADOQueryCmd.fieldbyname('Dname').Value := Trim(DCode);
|
||||
// ADOQueryCmd.post;
|
||||
end;
|
||||
Next;
|
||||
end;
|
||||
|
|
@ -1455,6 +1470,14 @@ begin
|
|||
ADOQueryCmd.Connection.RollbackTrans;
|
||||
end;
|
||||
Order_Main.EnableControls;
|
||||
with ADOQueryTemp do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add(sqlstr);
|
||||
// showmessage(sql.text);
|
||||
ExecSQL;
|
||||
end;
|
||||
if trim(ComboBox1.Text) = '쇱駱쯤데' then
|
||||
begin
|
||||
with ADOQueryTemp do
|
||||
|
|
@ -1672,5 +1695,67 @@ begin
|
|||
|
||||
end;
|
||||
|
||||
procedure TfrmJYOrderCDOne.SOrddefstr1KeyPress(Sender: TObject; var Key: Char);
|
||||
var
|
||||
fsj, FCXZD: string;
|
||||
begin
|
||||
if Key = #13 then
|
||||
begin
|
||||
fsj := Trim(TEdit(Sender).text);
|
||||
FCXZD := Trim(TEdit(Sender).name);
|
||||
if Length(fsj) < 2 then
|
||||
Exit;
|
||||
MovePanel2.Visible := True;
|
||||
MovePanel2.Refresh;
|
||||
try
|
||||
ADOQueryMain.DisableControls;
|
||||
with ADOQueryMain do
|
||||
begin
|
||||
Close;
|
||||
Filtered := False;
|
||||
sql.Clear;
|
||||
sql.Add('select A.*,');
|
||||
sql.Add('C.OrderNo,C.MPRTCodeName,C.MPRTMF,C.MPRTKZ,C.CustomerNoName,B.*,');
|
||||
sql.Add('KouFenQty=(select Sum(X.KouFenQty) from WFB_MJJY_CD X where X.MJID=A.MJID),');
|
||||
sql.Add('CDQty=(select count(X.MJID) from WFB_MJJY_CD X where X.MJID=A.MJID)');
|
||||
SQL.Add('from WFB_MJJY A');
|
||||
sql.Add('inner join JYOrder_sub B on B.subID=A.subID ');
|
||||
sql.Add('inner join JYOrder_Main C on C.MainID=A.MainID ');
|
||||
sql.Add('where ' + FCXZD + '=' + quotedstr(trim(fsj)));
|
||||
// ShowMessage(SQL.text);
|
||||
Open;
|
||||
end;
|
||||
SCreateCDS20(ADOQueryMain, Order_Main);
|
||||
SInitCDSData20(ADOQueryMain, Order_Main);
|
||||
finally
|
||||
ADOQueryMain.EnableControls;
|
||||
end;
|
||||
MovePanel2.Visible := False;
|
||||
// JSbaoNum();
|
||||
end;
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrmJYOrderCDOne.ToolButton8Click(Sender: TObject);
|
||||
begin
|
||||
|
||||
with ADOQueryTemp do
|
||||
begin
|
||||
Close;
|
||||
SQL.Clear;
|
||||
sql.Add('exec P_JYorder_Cxdh ');
|
||||
sql.add('@mainID=' + quotedstr(Trim(Order_Main.fieldbyname('MainId').AsString)));
|
||||
// ShowMessage(SQL.text);
|
||||
Open;
|
||||
end;
|
||||
Panel7.Visible := True;
|
||||
Label20.Caption := 'ȱºÅ:' + ADOQueryTemp.fieldbyname('MJxh').AsString;
|
||||
end;
|
||||
|
||||
procedure TfrmJYOrderCDOne.Button4Click(Sender: TObject);
|
||||
begin
|
||||
Panel7.Visible := false;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
|
|
|
|||
|
|
@ -1,6 +1,6 @@
|
|||
object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
|
||||
Left = 223
|
||||
Top = 122
|
||||
Left = 477
|
||||
Top = 290
|
||||
Width = 1265
|
||||
Height = 738
|
||||
Caption = #25104#21697#26816#39564
|
||||
|
|
@ -2267,7 +2267,6 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
|
|||
AutoSize = True
|
||||
Caption = #20462#25913
|
||||
ImageIndex = 54
|
||||
Visible = False
|
||||
OnClick = ToolButton2Click
|
||||
end
|
||||
object TBClose: TToolButton
|
||||
|
|
|
|||
|
|
@ -337,7 +337,7 @@ type
|
|||
{ Private declarations }
|
||||
FInt, PState, PrintInt, SCInitGrid, FState, FCK, FJYP: Integer;
|
||||
FColumn, FBanZu, FAPID, FMainId, FSubId, FFFMJID: string;
|
||||
FJZ, FJC: Double;
|
||||
FJZ, FJC, Fmachi: Double;
|
||||
fRollType, fRollType1: string;
|
||||
isCommopen, IsJsMessage: boolean;
|
||||
MValue, FCDName: string;
|
||||
|
|
@ -394,7 +394,7 @@ begin
|
|||
// Label9.Caption := 'Y';
|
||||
|
||||
end;
|
||||
edit1.Text := format('%.' + trim(fxsws) + 'f', [i1 / 100000]);
|
||||
// edit1.Text := format('%.' + trim(fxsws) + 'f', [i1 / 100000]);
|
||||
end;
|
||||
|
||||
end;
|
||||
|
|
@ -693,6 +693,12 @@ begin
|
|||
Label35.Visible := true;
|
||||
Edit9.Visible := true;
|
||||
Label44.Visible := true;
|
||||
|
||||
end;
|
||||
if Trim(DParameters1) = '高权限' then
|
||||
begin
|
||||
ToolButton2.Visible := true;
|
||||
// showmessage('此界面为高权限!');
|
||||
end;
|
||||
end;
|
||||
|
||||
|
|
@ -1049,8 +1055,17 @@ begin
|
|||
FieldByName('mjxh').Value := Trim(mjxh.Text);
|
||||
FieldByName('MJTypeOther').Value := Trim(Label9.Caption);
|
||||
FieldByName('MJStr1').Value := Trim(Label13.Caption);
|
||||
if Fmachi > 1 then
|
||||
begin
|
||||
FieldByName('MJLen').Value := format('%.' + trim(fxsws) + 'f', [StrToFloatdef(trim(MJLen.Text), 0) / (Fmachi / 100) - StrToFloatdef(trim(MJQty2.Text), 0) + fjc]);
|
||||
|
||||
end
|
||||
else
|
||||
begin
|
||||
FieldByName('MJLen').Value := StrToFloatdef(trim(MJLen.Text), 0) - StrToFloatdef(trim(MJQty2.Text), 0) + fjc;
|
||||
|
||||
end;
|
||||
|
||||
FieldByName('MJQty1').Value := StrToFloatdef(trim(MJQty1.Text), 0);
|
||||
FieldByName('MJQty2').Value := StrToFloatdef(trim(MJQty2.Text), 0);
|
||||
FieldByName('MJQty3').Value := StrToFloatdef(trim(MJQty3.Text), 0);
|
||||
|
|
@ -1736,6 +1751,8 @@ begin
|
|||
Label21.Caption := Trim(FCDName);
|
||||
FInt := 11;
|
||||
Edit1.SetFocus;
|
||||
// edit1.Text := format('%.' + trim(fxsws) + 'f', [i1 / 100000]);
|
||||
edit1.Text := trim(MJLen.Text);
|
||||
//CDQty.SetFocus;
|
||||
Panel3.Visible := True;
|
||||
PState := 1;
|
||||
|
|
@ -1785,6 +1802,7 @@ begin
|
|||
Application.MessageBox('位置不能为空！','提示',0);
|
||||
exit;
|
||||
end; }
|
||||
edit2.Text := trim(MJLen.Text);
|
||||
if Trim(Edit1.Text) <> '' then
|
||||
begin
|
||||
if Trim(Edit2.Text) <> '' then
|
||||
|
|
@ -2239,6 +2257,7 @@ begin
|
|||
FSubId := Trim(ADOTmp.fieldbyname('SubId').AsString);
|
||||
FJZ := ADOTmp.fieldbyname('jiazhong').AsFloat;
|
||||
FJC := ADOTmp.fieldbyname('jiachang').AsFloat;
|
||||
Fmachi := ADOTmp.fieldbyname('machi').asfloat;
|
||||
FJYP := StrToIntdef(ADOTmp.fieldbyname('jypiqty').asstring, 0);
|
||||
AOrdDefNote1.Text := '包装要求:' + #13 + Trim(ADOTmp.fieldbyname('MPRTBZNote').AsString) + #13 //+'封条:'+Trim(ADOTmp.fieldbyname('MPRTYaoFeng').AsString)+#13
|
||||
//+'烫金:'+Trim(ADOTmp.fieldbyname('MPRTTangJin').AsString)+#13
|
||||
|
|
@ -2492,6 +2511,18 @@ end;
|
|||
|
||||
procedure TfrmMJManageNewFDNewSF.ToolButton2Click(Sender: TObject);
|
||||
begin
|
||||
with ADOTmp do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
SQL.Add('select * from SY_PurView where ModuleId=''02'' and ModuleSubId =''98'' and UserID=''' + Trim(dname) + ''' ');
|
||||
Open;
|
||||
end;
|
||||
if ADOTmp.IsEmpty then
|
||||
begin
|
||||
Application.MessageBox('此为高权限功能!', '提示', 0);
|
||||
Exit;
|
||||
end;
|
||||
if CDS_MJID.IsEmpty then
|
||||
exit;
|
||||
if CDS_MJCD.IsEmpty = False then
|
||||
|
|
|
|||
|
|
@ -611,6 +611,7 @@ begin
|
|||
fieldbyname('SordQty1').Value := Order_Sub.fieldbyname('SordQty1').AsFloat;
|
||||
fieldbyname('SordQty2').Value := Order_Sub.fieldbyname('SordQty2').AsFloat;
|
||||
fieldbyname('SordQty3').Value := Order_Sub.fieldbyname('SordQty3').AsFloat;
|
||||
FieldByName('PRTColor').Value := trim(Order_Sub.FieldByName('PRTColor').AsString);
|
||||
FieldByName('Sorddefstr10').Value := Order_Sub.FieldByName('Sorddefstr10').AsString;
|
||||
FieldByName('khOrderNO').Value := trim(Order_Sub.FieldByName('khOrderNO').AsString);
|
||||
FieldByName('SLBName').Value := ExtractFileName(trim(SLBName.Text));
|
||||
|
|
|
|||
|
|
@ -137,16 +137,24 @@ object frmProductOrderLBNameSet: TfrmProductOrderLBNameSet
|
|||
ImageIndex = 60
|
||||
OnClick = ToolButton9Click
|
||||
end
|
||||
object ToolButton7: TToolButton
|
||||
object ToolButton12: TToolButton
|
||||
Left = 261
|
||||
Top = 30
|
||||
AutoSize = True
|
||||
Caption = #30721#23610#35774#32622
|
||||
ImageIndex = 60
|
||||
OnClick = ToolButton12Click
|
||||
end
|
||||
object ToolButton7: TToolButton
|
||||
Left = 348
|
||||
Top = 30
|
||||
AutoSize = True
|
||||
Caption = #39044#35272#21367#26631#31614
|
||||
ImageIndex = 12
|
||||
OnClick = ToolButton7Click
|
||||
end
|
||||
object ToolButton8: TToolButton
|
||||
Left = 360
|
||||
Left = 447
|
||||
Top = 30
|
||||
AutoSize = True
|
||||
Caption = #39044#35272#21253#26631#31614
|
||||
|
|
@ -154,7 +162,7 @@ object frmProductOrderLBNameSet: TfrmProductOrderLBNameSet
|
|||
OnClick = ToolButton8Click
|
||||
end
|
||||
object PiZhong: TEdit
|
||||
Left = 459
|
||||
Left = 546
|
||||
Top = 30
|
||||
Width = 121
|
||||
Height = 30
|
||||
|
|
@ -167,7 +175,7 @@ object frmProductOrderLBNameSet: TfrmProductOrderLBNameSet
|
|||
TabOrder = 0
|
||||
end
|
||||
object TBClose: TToolButton
|
||||
Left = 580
|
||||
Left = 667
|
||||
Top = 30
|
||||
AutoSize = True
|
||||
Caption = #20851#38381
|
||||
|
|
@ -421,7 +429,7 @@ object frmProductOrderLBNameSet: TfrmProductOrderLBNameSet
|
|||
Align = alTop
|
||||
TabOrder = 2
|
||||
object Tv1: TcxGridDBTableView
|
||||
NavigatorButtons.ConfirmDelete = False
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
OnCellDblClick = Tv1CellDblClick
|
||||
DataController.DataSource = DataSource1
|
||||
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
|
||||
|
|
@ -610,6 +618,24 @@ object frmProductOrderLBNameSet: TfrmProductOrderLBNameSet
|
|||
Options.Focusing = False
|
||||
Width = 65
|
||||
end
|
||||
object Tv1Column1: TcxGridDBColumn
|
||||
Caption = #30721#23610
|
||||
DataBinding.FieldName = 'machi'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 60
|
||||
end
|
||||
object Tv1Column2: TcxGridDBColumn
|
||||
Caption = #26579#21378#32568#21495
|
||||
DataBinding.FieldName = 'PRTrcgh'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 60
|
||||
end
|
||||
object Tv1Column3: TcxGridDBColumn
|
||||
Caption = #27454#21495
|
||||
DataBinding.FieldName = 'PRTKuanNo'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 60
|
||||
end
|
||||
end
|
||||
object cxGrid1Level1: TcxGridLevel
|
||||
GridView = Tv1
|
||||
|
|
|
|||
|
|
@ -6,11 +6,26 @@ uses
|
|||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData,
|
||||
cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB,
|
||||
cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses,
|
||||
cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView,
|
||||
cxGridDBTableView, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter,
|
||||
RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls,StrUtils,
|
||||
Menus, cxDropDownEdit,cxTextEdit;
|
||||
cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, cxControls,
|
||||
cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
|
||||
cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System,
|
||||
RM_Common, RM_Class, RM_GridReport, RM_e_Xls, StrUtils, Menus, cxDropDownEdit,
|
||||
cxTextEdit, cxLookAndFeels, cxLookAndFeelPainters, 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,
|
||||
cxNavigator;
|
||||
|
||||
type
|
||||
TfrmProductOrderLBNameSet = class(TForm)
|
||||
|
|
@ -97,6 +112,10 @@ type
|
|||
v1Column7: TcxGridDBColumn;
|
||||
v1Column8: TcxGridDBColumn;
|
||||
ToolButton11: TToolButton;
|
||||
Tv1Column1: TcxGridDBColumn;
|
||||
ToolButton12: TToolButton;
|
||||
Tv1Column2: TcxGridDBColumn;
|
||||
Tv1Column3: TcxGridDBColumn;
|
||||
procedure FormDestroy(Sender: TObject);
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
|
|
@ -106,20 +125,13 @@ type
|
|||
procedure TBRafreshClick(Sender: TObject);
|
||||
procedure OrderNoChange(Sender: TObject);
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure Tv1CellDblClick(Sender: TcxCustomGridTableView;
|
||||
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
|
||||
AShift: TShiftState; var AHandled: Boolean);
|
||||
procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
|
||||
procedure CheckBox2Click(Sender: TObject);
|
||||
procedure Tv1StylesGetContentStyle(Sender: TcxCustomGridTableView;
|
||||
ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem;
|
||||
out AStyle: TcxStyle);
|
||||
procedure v1DeliveryDateCustomDrawCell(Sender: TcxCustomGridTableView;
|
||||
ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
|
||||
var ADone: Boolean);
|
||||
procedure Tv1StylesGetContentStyle(Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);
|
||||
procedure v1DeliveryDateCustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
|
||||
procedure ToolButton1Click(Sender: TObject);
|
||||
procedure OrderNoKeyPress(Sender: TObject; var Key: Char);
|
||||
procedure Panel10MouseMove(Sender: TObject; Shift: TShiftState; X,
|
||||
Y: Integer);
|
||||
procedure Panel10MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
|
||||
procedure Button1Click(Sender: TObject);
|
||||
procedure Image2Click(Sender: TObject);
|
||||
procedure ToolButton2Click(Sender: TObject);
|
||||
|
|
@ -134,6 +146,7 @@ type
|
|||
procedure ToolButton9Click(Sender: TObject);
|
||||
procedure ToolButton10Click(Sender: TObject);
|
||||
procedure ToolButton11Click(Sender: TObject);
|
||||
procedure ToolButton12Click(Sender: TObject);
|
||||
private
|
||||
DQdate: TDateTime;
|
||||
procedure InitGrid();
|
||||
|
|
@ -149,7 +162,9 @@ type
|
|||
var
|
||||
frmProductOrderLBNameSet: TfrmProductOrderLBNameSet;
|
||||
newh: hwnd;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
U_DataLink, U_OrderInPut, U_Fun;
|
||||
|
||||
|
|
@ -160,8 +175,7 @@ begin
|
|||
frmProductOrderLBNameSet := nil;
|
||||
end;
|
||||
|
||||
procedure TfrmProductOrderLBNameSet.FormClose(Sender: TObject;
|
||||
var Action: TCloseAction);
|
||||
procedure TfrmProductOrderLBNameSet.FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
begin
|
||||
Action := caFree;
|
||||
end;
|
||||
|
|
@ -201,7 +215,6 @@ begin
|
|||
end;
|
||||
end;
|
||||
|
||||
|
||||
procedure TfrmProductOrderLBNameSet.InitForm();
|
||||
begin
|
||||
ReadCxGrid('标签设置1', Tv1, '生产指示单管理');
|
||||
|
|
@ -212,11 +225,13 @@ end;
|
|||
|
||||
procedure TfrmProductOrderLBNameSet.TBFindClick(Sender: TObject);
|
||||
begin
|
||||
if ADOQueryMain.Active=False then Exit;
|
||||
if ADOQueryMain.Active = False then
|
||||
Exit;
|
||||
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
|
||||
SCreateCDS20(ADOQueryMain, Order_Main);
|
||||
SInitCDSData20(ADOQueryMain, Order_Main);
|
||||
end;
|
||||
|
||||
procedure TfrmProductOrderLBNameSet.TBPrintClick(Sender: TObject);
|
||||
begin
|
||||
Panel4.Visible := True;
|
||||
|
|
@ -244,7 +259,8 @@ end;
|
|||
|
||||
procedure TfrmProductOrderLBNameSet.OrderNoChange(Sender: TObject);
|
||||
begin
|
||||
if ADOQueryMain.Active=False then Exit;
|
||||
if ADOQueryMain.Active = False then
|
||||
Exit;
|
||||
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
|
||||
SCreateCDS20(ADOQueryMain, Order_Main);
|
||||
SInitCDSData20(ADOQueryMain, Order_Main);
|
||||
|
|
@ -255,12 +271,10 @@ begin
|
|||
InitForm();
|
||||
end;
|
||||
|
||||
procedure TfrmProductOrderLBNameSet.Tv1CellDblClick(
|
||||
Sender: TcxCustomGridTableView;
|
||||
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
|
||||
AShift: TShiftState; var AHandled: Boolean);
|
||||
procedure TfrmProductOrderLBNameSet.Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
|
||||
begin
|
||||
if ToolButton1.Visible=False then Exit;
|
||||
if ToolButton1.Visible = False then
|
||||
Exit;
|
||||
ToolButton1.Click;
|
||||
end;
|
||||
|
||||
|
|
@ -269,9 +283,7 @@ begin
|
|||
TBRafresh.Click;
|
||||
end;
|
||||
|
||||
procedure TfrmProductOrderLBNameSet.Tv1StylesGetContentStyle(
|
||||
Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
|
||||
AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);
|
||||
procedure TfrmProductOrderLBNameSet.Tv1StylesGetContentStyle(Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);
|
||||
var
|
||||
id, id10: Integer;
|
||||
begin
|
||||
|
|
@ -299,9 +311,7 @@ begin
|
|||
end; }
|
||||
end;
|
||||
|
||||
procedure TfrmProductOrderLBNameSet.v1DeliveryDateCustomDrawCell(
|
||||
Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
|
||||
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
|
||||
procedure TfrmProductOrderLBNameSet.v1DeliveryDateCustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
|
||||
begin
|
||||
{ Id:=TV1.GetColumnByFieldName('DeliveryDate').Index;//;-TV1.GroupedItemCount;
|
||||
Id10:=TV1.GetColumnByFieldName('SubStatus').Index;
|
||||
|
|
@ -338,7 +348,8 @@ end;
|
|||
|
||||
procedure TfrmProductOrderLBNameSet.ToolButton1Click(Sender: TObject);
|
||||
begin
|
||||
if Order_Main.IsEmpty then Exit;
|
||||
if Order_Main.IsEmpty then
|
||||
Exit;
|
||||
try
|
||||
frmOrderInPut := TfrmOrderInPut.Create(Application);
|
||||
with frmOrderInPut do
|
||||
|
|
@ -359,12 +370,12 @@ begin
|
|||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmProductOrderLBNameSet.OrderNoKeyPress(Sender: TObject;
|
||||
var Key: Char);
|
||||
procedure TfrmProductOrderLBNameSet.OrderNoKeyPress(Sender: TObject; var Key: Char);
|
||||
begin
|
||||
if Key = #13 then
|
||||
begin
|
||||
if Length(OrderNo.Text)<3 then Exit;
|
||||
if Length(OrderNo.Text) < 3 then
|
||||
Exit;
|
||||
try
|
||||
ADOQueryMain.DisableControls;
|
||||
with ADOQueryMain do
|
||||
|
|
@ -386,8 +397,7 @@ begin
|
|||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmProductOrderLBNameSet.Panel10MouseMove(Sender: TObject;
|
||||
Shift: TShiftState; X, Y: Integer);
|
||||
procedure TfrmProductOrderLBNameSet.Panel10MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
|
||||
begin
|
||||
ReleaseCapture;
|
||||
TWinControl(Panel4).Perform(WM_SYSCOMMAND, $F012, 0);
|
||||
|
|
@ -400,7 +410,8 @@ var
|
|||
i, j: Integer;
|
||||
OrderKg: Double;
|
||||
begin
|
||||
if Order_Main.IsEmpty then Exit;
|
||||
if Order_Main.IsEmpty then
|
||||
Exit;
|
||||
LBName := RadioGroup1.Items.Strings[RadioGroup1.ItemIndex];
|
||||
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + Trim(LBName) + '.rmf';
|
||||
if RadioGroup1.ItemIndex = 0 then
|
||||
|
|
@ -421,7 +432,8 @@ begin
|
|||
Open;
|
||||
end;
|
||||
|
||||
end else
|
||||
end
|
||||
else
|
||||
begin
|
||||
with ADOQueryPrint do
|
||||
begin
|
||||
|
|
@ -468,7 +480,8 @@ begin
|
|||
else
|
||||
RMVariables['OrderKg'] := '';
|
||||
RM1.ShowReport;
|
||||
end else
|
||||
end
|
||||
else
|
||||
begin
|
||||
Application.MessageBox(PChar('没有找' + ExtractFilePath(Application.ExeName) + 'Report\' + Trim(LBName) + '.rmf'), '提示', 0);
|
||||
end;
|
||||
|
|
@ -481,22 +494,18 @@ end;
|
|||
|
||||
procedure TfrmProductOrderLBNameSet.ToolButton2Click(Sender: TObject);
|
||||
type
|
||||
TMyFunc = function(App:Tapplication; FormH:hwnd; FormID:integer;
|
||||
Language: integer; WinStyle:integer;
|
||||
GCode: Pchar; GName: Pchar; DataBase:Pchar;Title:PChar;
|
||||
Parameters1:PChar;Parameters2:PChar;Parameters3:PChar;Parameters4:PChar;
|
||||
Parameters5:PChar;Parameters6:PChar;Parameters7:PChar;Parameters8:PChar;
|
||||
Parameters9:PChar;Parameters10:PChar;DataBaseStr:PChar):hwnd;stdcall;
|
||||
TMyFunc = function(App: Tapplication; FormH: hwnd; FormID: integer; Language: integer; WinStyle: integer; GCode: Pchar; GName: Pchar; DataBase: Pchar; Title: PChar; Parameters1: PChar; Parameters2: PChar; Parameters3: PChar; Parameters4: PChar; Parameters5: PChar; Parameters6: PChar; Parameters7: PChar; Parameters8: PChar; Parameters9: PChar; Parameters10: PChar; DataBaseStr: PChar): hwnd; stdcall;
|
||||
var
|
||||
Tf: TMyFunc;
|
||||
Tp: TFarProc;
|
||||
Th: Thandle;
|
||||
LabInt,labname:String;
|
||||
LabInt, labname: string;
|
||||
OpenDiaLog: TOpenDialog;
|
||||
fFileName: string;
|
||||
fFilePath: string;
|
||||
begin
|
||||
IF Order_Main.IsEmpty then exit;
|
||||
if Order_Main.IsEmpty then
|
||||
exit;
|
||||
if Order_Main.Locate('SSel', True, []) = False then
|
||||
begin
|
||||
Application.MessageBox('没有选择数据！', '提示', 0);
|
||||
|
|
@ -513,13 +522,14 @@ begin
|
|||
end;
|
||||
finally
|
||||
end;
|
||||
IF trim(fFileName)='' then exit;
|
||||
if trim(fFileName) = '' then
|
||||
exit;
|
||||
with order_Main do
|
||||
begin
|
||||
first;
|
||||
While not Eof do
|
||||
while not Eof do
|
||||
begin
|
||||
If FieldByName('Ssel').AsBoolean=true then
|
||||
if FieldByName('Ssel').AsBoolean = true then
|
||||
begin
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
|
|
@ -536,8 +546,6 @@ begin
|
|||
end;
|
||||
end;
|
||||
|
||||
|
||||
|
||||
with Order_Main do
|
||||
begin
|
||||
DisableControls;
|
||||
|
|
@ -559,7 +567,8 @@ var
|
|||
FPiZhong: string;
|
||||
FReal: Double;
|
||||
begin
|
||||
IF Order_Main.IsEmpty then exit;
|
||||
if Order_Main.IsEmpty then
|
||||
exit;
|
||||
if Order_Main.Locate('SSel', True, []) = False then
|
||||
begin
|
||||
Application.MessageBox('没有选择数据！', '提示', 0);
|
||||
|
|
@ -578,7 +587,7 @@ begin
|
|||
with order_Main do
|
||||
begin
|
||||
first;
|
||||
While not Eof do
|
||||
while not Eof do
|
||||
begin
|
||||
if order_Main.FieldByName('Ssel').AsBoolean = true then
|
||||
begin
|
||||
|
|
@ -637,19 +646,15 @@ end;
|
|||
|
||||
procedure TfrmProductOrderLBNameSet.ToolButton4Click(Sender: TObject);
|
||||
type
|
||||
TMyFunc = function(App:Tapplication; FormH:hwnd; FormID:integer;
|
||||
Language: integer; WinStyle:integer;
|
||||
GCode: Pchar; GName: Pchar; DataBase:Pchar;Title:PChar;
|
||||
Parameters1:PChar;Parameters2:PChar;Parameters3:PChar;Parameters4:PChar;
|
||||
Parameters5:PChar;Parameters6:PChar;Parameters7:PChar;Parameters8:PChar;
|
||||
Parameters9:PChar;Parameters10:PChar;DataBaseStr:PChar):hwnd;stdcall;
|
||||
TMyFunc = function(App: Tapplication; FormH: hwnd; FormID: integer; Language: integer; WinStyle: integer; GCode: Pchar; GName: Pchar; DataBase: Pchar; Title: PChar; Parameters1: PChar; Parameters2: PChar; Parameters3: PChar; Parameters4: PChar; Parameters5: PChar; Parameters6: PChar; Parameters7: PChar; Parameters8: PChar; Parameters9: PChar; Parameters10: PChar; DataBaseStr: PChar): hwnd; stdcall;
|
||||
var
|
||||
Tf: TMyFunc;
|
||||
Tp: TFarProc;
|
||||
Th: Thandle;
|
||||
LabInt,labname:String;
|
||||
LabInt, labname: string;
|
||||
begin
|
||||
IF Order_Main.IsEmpty then exit;
|
||||
if Order_Main.IsEmpty then
|
||||
exit;
|
||||
if Order_Main.Locate('SSel', True, []) = False then
|
||||
begin
|
||||
Application.MessageBox('没有选择数据！', '提示', 0);
|
||||
|
|
@ -664,15 +669,7 @@ begin
|
|||
if Tp <> nil then
|
||||
begin
|
||||
Tf := TMyFunc(Tp);
|
||||
newh:=Tf(Application,0,2,0,0,
|
||||
PChar(DCode),
|
||||
PChar(DName),
|
||||
PChar(Ddatabase),
|
||||
PChar('±êÇ©Ä£°æÉèÖÃ'),
|
||||
PChar(''),
|
||||
PChar(''),
|
||||
'','','','','','','','',PChar(DConString)
|
||||
);
|
||||
newh := Tf(Application, 0, 2, 0, 0, PChar(DCode), PChar(DName), PChar(Ddatabase), PChar('标签模版设置'), PChar(''), PChar(''), '', '', '', '', '', '', '', '', PChar(DConString));
|
||||
if Trim(PChar(Ddatabase)) <> '' then
|
||||
begin
|
||||
Ddatabase := Trim(PChar(Ddatabase));
|
||||
|
|
@ -681,7 +678,7 @@ begin
|
|||
with order_Main do
|
||||
begin
|
||||
first;
|
||||
While not Eof do
|
||||
while not Eof do
|
||||
begin
|
||||
if order_Main.FieldByName('Ssel').AsBoolean = true then
|
||||
begin
|
||||
|
|
@ -733,8 +730,7 @@ begin
|
|||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmProductOrderLBNameSet.v1Column2PropertiesEditValueChanged(
|
||||
Sender: TObject);
|
||||
procedure TfrmProductOrderLBNameSet.v1Column2PropertiesEditValueChanged(Sender: TObject);
|
||||
var
|
||||
mvalues: string;
|
||||
begin
|
||||
|
|
@ -764,7 +760,8 @@ var
|
|||
FPiZhong: string;
|
||||
FReal: Double;
|
||||
begin
|
||||
IF Order_Main.IsEmpty then exit;
|
||||
if Order_Main.IsEmpty then
|
||||
exit;
|
||||
if Order_Main.Locate('SSel', True, []) = False then
|
||||
begin
|
||||
Application.MessageBox('没有选择数据！', '提示', 0);
|
||||
|
|
@ -783,7 +780,7 @@ begin
|
|||
with order_Main do
|
||||
begin
|
||||
first;
|
||||
While not Eof do
|
||||
while not Eof do
|
||||
begin
|
||||
if order_Main.FieldByName('Ssel').AsBoolean = true then
|
||||
begin
|
||||
|
|
@ -828,7 +825,8 @@ var
|
|||
FPiZhong: string;
|
||||
FReal: Double;
|
||||
begin
|
||||
IF Order_Main.IsEmpty then exit;
|
||||
if Order_Main.IsEmpty then
|
||||
exit;
|
||||
if Order_Main.Locate('SSel', True, []) = False then
|
||||
begin
|
||||
Application.MessageBox('没有选择数据！', '提示', 0);
|
||||
|
|
@ -847,7 +845,7 @@ begin
|
|||
with order_Main do
|
||||
begin
|
||||
first;
|
||||
While not Eof do
|
||||
while not Eof do
|
||||
begin
|
||||
if order_Main.FieldByName('Ssel').AsBoolean = true then
|
||||
begin
|
||||
|
|
@ -889,14 +887,16 @@ end;
|
|||
|
||||
procedure TfrmProductOrderLBNameSet.ToolButton7Click(Sender: TObject);
|
||||
var
|
||||
fPrintFile:String;
|
||||
fPrintFile: string;
|
||||
Txt, fImagePath: string;
|
||||
Moudle: THandle;
|
||||
Makebar: TMakebar;
|
||||
Mixtext: TMixtext;
|
||||
begin
|
||||
IF Order_Main.IsEmpty then exit;
|
||||
IF trim(Order_Main.fieldbyname('SLbName').AsString)='' then exit;
|
||||
if Order_Main.IsEmpty then
|
||||
exit;
|
||||
if trim(Order_Main.fieldbyname('SLbName').AsString) = '' then
|
||||
exit;
|
||||
|
||||
with ADOQueryPrint do
|
||||
begin
|
||||
|
|
@ -914,7 +914,8 @@ begin
|
|||
fImagePath := ExtractFilePath(Application.ExeName) + 'image\temp.bmp';
|
||||
if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName) + 'image')) then
|
||||
CreateDirectory(pchar(ExtractFilePath(Application.ExeName) + 'image'), nil);
|
||||
if FileExists(fImagePath) then DeleteFile(fImagePath);
|
||||
if FileExists(fImagePath) then
|
||||
DeleteFile(fImagePath);
|
||||
Makebar(pchar(Txt), Length(Txt), 3, 3, 0, PChar(fImagePath), 3);
|
||||
except
|
||||
application.MessageBox('条形码生成失败！', '提示信息', MB_ICONERROR);
|
||||
|
|
@ -933,19 +934,20 @@ begin
|
|||
Application.MessageBox(PChar('没有找到' + trim(fPrintFile)), '提示信息', 0);
|
||||
end;
|
||||
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrmProductOrderLBNameSet.ToolButton8Click(Sender: TObject);
|
||||
var
|
||||
fPrintFile:String;
|
||||
fPrintFile: string;
|
||||
Txt, fImagePath: string;
|
||||
Moudle: THandle;
|
||||
Makebar: TMakebar;
|
||||
Mixtext: TMixtext;
|
||||
begin
|
||||
IF Order_Main.IsEmpty then exit;
|
||||
IF trim(Order_Main.fieldbyname('NLBName').AsString)='' then exit;
|
||||
if Order_Main.IsEmpty then
|
||||
exit;
|
||||
if trim(Order_Main.fieldbyname('NLBName').AsString) = '' then
|
||||
exit;
|
||||
with ADOQueryPrint do
|
||||
begin
|
||||
Close;
|
||||
|
|
@ -962,7 +964,8 @@ begin
|
|||
fImagePath := ExtractFilePath(Application.ExeName) + 'image\temp.bmp';
|
||||
if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName) + 'image')) then
|
||||
CreateDirectory(pchar(ExtractFilePath(Application.ExeName) + 'image'), nil);
|
||||
if FileExists(fImagePath) then DeleteFile(fImagePath);
|
||||
if FileExists(fImagePath) then
|
||||
DeleteFile(fImagePath);
|
||||
Makebar(pchar(Txt), Length(Txt), 3, 3, 0, PChar(fImagePath), 3);
|
||||
except
|
||||
application.MessageBox('条形码生成失败！', '提示信息', MB_ICONERROR);
|
||||
|
|
@ -988,7 +991,8 @@ var
|
|||
FPiZhong: string;
|
||||
FReal: Double;
|
||||
begin
|
||||
IF Order_Main.IsEmpty then exit;
|
||||
if Order_Main.IsEmpty then
|
||||
exit;
|
||||
if Order_Main.Locate('SSel', True, []) = False then
|
||||
begin
|
||||
Application.MessageBox('没有选择数据！', '提示', 0);
|
||||
|
|
@ -1007,7 +1011,7 @@ begin
|
|||
with order_Main do
|
||||
begin
|
||||
first;
|
||||
While not Eof do
|
||||
while not Eof do
|
||||
begin
|
||||
if order_Main.FieldByName('Ssel').AsBoolean = true then
|
||||
begin
|
||||
|
|
@ -1052,7 +1056,8 @@ var
|
|||
FPiZhong: string;
|
||||
FReal: Double;
|
||||
begin
|
||||
IF Order_Main.IsEmpty then exit;
|
||||
if Order_Main.IsEmpty then
|
||||
exit;
|
||||
if Order_Main.Locate('SSel', True, []) = False then
|
||||
begin
|
||||
Application.MessageBox('没有选择数据！', '提示', 0);
|
||||
|
|
@ -1071,7 +1076,7 @@ begin
|
|||
with order_Main do
|
||||
begin
|
||||
first;
|
||||
While not Eof do
|
||||
while not Eof do
|
||||
begin
|
||||
if order_Main.FieldByName('Ssel').AsBoolean = true then
|
||||
begin
|
||||
|
|
@ -1115,7 +1120,8 @@ var
|
|||
FPiZhong: string;
|
||||
FReal: Double;
|
||||
begin
|
||||
IF Order_Main.IsEmpty then exit;
|
||||
if Order_Main.IsEmpty then
|
||||
exit;
|
||||
if Order_Main.Locate('SSel', True, []) = False then
|
||||
begin
|
||||
Application.MessageBox('没有选择数据！', '提示', 0);
|
||||
|
|
@ -1134,7 +1140,7 @@ begin
|
|||
with order_Main do
|
||||
begin
|
||||
first;
|
||||
While not Eof do
|
||||
while not Eof do
|
||||
begin
|
||||
if order_Main.FieldByName('Ssel').AsBoolean = true then
|
||||
begin
|
||||
|
|
@ -1173,4 +1179,70 @@ begin
|
|||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmProductOrderLBNameSet.ToolButton12Click(Sender: TObject);
|
||||
var
|
||||
FPiZhong: string;
|
||||
FReal: Double;
|
||||
begin
|
||||
if Order_Main.IsEmpty then
|
||||
exit;
|
||||
if Order_Main.Locate('SSel', True, []) = False then
|
||||
begin
|
||||
Application.MessageBox('没有选择数据！', '提示', 0);
|
||||
Exit;
|
||||
end;
|
||||
if Trim(PiZhong.Text) = '' then
|
||||
begin
|
||||
Application.MessageBox('码尺不能为空!', '提示', 0);
|
||||
Exit;
|
||||
end;
|
||||
if TryStrToFloat(PiZhong.Text, FReal) = False then
|
||||
begin
|
||||
Application.MessageBox('码尺非法数字!', '提示', 0);
|
||||
Exit;
|
||||
end;
|
||||
with order_Main do
|
||||
begin
|
||||
first;
|
||||
while not Eof do
|
||||
begin
|
||||
if order_Main.FieldByName('Ssel').AsBoolean = true then
|
||||
begin
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('Update JYOrder_Sub Set machi=' + Trim(PiZhong.Text));
|
||||
sql.Add(' where Subid=''' + Trim(Order_Main.fieldbyname('Subid').AsString) + '''');
|
||||
ExecSQL;
|
||||
end;
|
||||
with Order_Main do
|
||||
begin
|
||||
Edit;
|
||||
FieldByName('machi').Value := PiZhong.Text;
|
||||
Post;
|
||||
end;
|
||||
end;
|
||||
next;
|
||||
end;
|
||||
end;
|
||||
CheckBox1.Checked := False;
|
||||
with Order_Main do
|
||||
begin
|
||||
DisableControls;
|
||||
first;
|
||||
while not Eof do
|
||||
begin
|
||||
edit;
|
||||
fieldbyname('Ssel').AsBoolean := False;
|
||||
post;
|
||||
next;
|
||||
end;
|
||||
first;
|
||||
EnableControls;
|
||||
end;
|
||||
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
|
|
|
|||
Loading…
Reference in New Issue
Block a user