~
This commit is contained in:
DESKTOP-E401PHE\Administrator
parent
154f85dde3
commit
c6545c30cf
|
|
@ -22,7 +22,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
|||
Left = 0
|
||||
Top = 0
|
||||
Width = 1384
|
||||
Height = 62
|
||||
Height = 92
|
||||
AutoSize = True
|
||||
ButtonHeight = 30
|
||||
ButtonWidth = 119
|
||||
|
|
@ -102,34 +102,35 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
|||
AutoSize = True
|
||||
Caption = #25195#25551#25764#38144#20986#24211
|
||||
ImageIndex = 99
|
||||
Wrap = True
|
||||
OnClick = ToolButton15Click
|
||||
end
|
||||
object ToolButton11: TToolButton
|
||||
Left = 600
|
||||
Top = 0
|
||||
Left = 0
|
||||
Top = 30
|
||||
Caption = #25209#37327#20462#25913#32568#21495
|
||||
ImageIndex = 54
|
||||
OnClick = ToolButton11Click
|
||||
end
|
||||
object TBDW: TToolButton
|
||||
Left = 719
|
||||
Top = 0
|
||||
Left = 119
|
||||
Top = 30
|
||||
AutoSize = True
|
||||
Caption = #20462#25913#25968#37327#21333#20301
|
||||
ImageIndex = 54
|
||||
OnClick = TBDWClick
|
||||
end
|
||||
object ToolButton4: TToolButton
|
||||
Left = 830
|
||||
Top = 0
|
||||
Left = 230
|
||||
Top = 30
|
||||
AutoSize = True
|
||||
Caption = #25209#37327#35843#25972#31859#25968
|
||||
ImageIndex = 54
|
||||
OnClick = ToolButton4Click
|
||||
end
|
||||
object ToolButton13: TToolButton
|
||||
Left = 941
|
||||
Top = 0
|
||||
Left = 341
|
||||
Top = 30
|
||||
AutoSize = True
|
||||
Caption = #25209#37327#20928#37325#36716#38271#24230
|
||||
ImageIndex = 54
|
||||
|
|
@ -137,16 +138,15 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
|||
OnClick = ToolButton13Click
|
||||
end
|
||||
object ToolButton8: TToolButton
|
||||
Left = 1064
|
||||
Top = 0
|
||||
Left = 464
|
||||
Top = 30
|
||||
AutoSize = True
|
||||
Caption = #25209#37327#20462#25913#30382#37325
|
||||
ImageIndex = 54
|
||||
Wrap = True
|
||||
OnClick = ToolButton8Click
|
||||
end
|
||||
object ToolButton1: TToolButton
|
||||
Left = 0
|
||||
Left = 575
|
||||
Top = 30
|
||||
AutoSize = True
|
||||
Caption = #25171#21360#26631#31614
|
||||
|
|
@ -154,7 +154,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
|||
OnClick = ToolButton1Click
|
||||
end
|
||||
object TCPDB: TToolButton
|
||||
Left = 87
|
||||
Left = 662
|
||||
Top = 30
|
||||
AutoSize = True
|
||||
Caption = #25104#21697#25171#21253
|
||||
|
|
@ -162,33 +162,34 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
|||
OnClick = TCPDBClick
|
||||
end
|
||||
object ToolButton3: TToolButton
|
||||
Left = 174
|
||||
Left = 749
|
||||
Top = 30
|
||||
AutoSize = True
|
||||
Caption = #25171#21360#21253#26631#31614
|
||||
ImageIndex = 12
|
||||
Wrap = True
|
||||
Visible = False
|
||||
OnClick = ToolButton3Click
|
||||
end
|
||||
object ToolButton2: TToolButton
|
||||
Left = 273
|
||||
Top = 30
|
||||
Left = 0
|
||||
Top = 60
|
||||
AutoSize = True
|
||||
Caption = #25171#21360#26816#39564#25253#21578
|
||||
ImageIndex = 12
|
||||
OnClick = ToolButton2Click
|
||||
end
|
||||
object ToolButton5: TToolButton
|
||||
Left = 384
|
||||
Top = 30
|
||||
Left = 111
|
||||
Top = 60
|
||||
AutoSize = True
|
||||
Caption = #25171#21360
|
||||
ImageIndex = 12
|
||||
OnClick = ToolButton5Click
|
||||
end
|
||||
object Edit3: TEdit
|
||||
Left = 447
|
||||
Top = 30
|
||||
Left = 174
|
||||
Top = 60
|
||||
Width = 68
|
||||
Height = 30
|
||||
Font.Charset = GB2312_CHARSET
|
||||
|
|
@ -202,8 +203,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
|||
OnKeyPress = Edit3KeyPress
|
||||
end
|
||||
object ComboBox1: TComboBox
|
||||
Left = 515
|
||||
Top = 33
|
||||
Left = 242
|
||||
Top = 63
|
||||
Width = 149
|
||||
Height = 24
|
||||
Style = csDropDownList
|
||||
|
|
@ -227,8 +228,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
|||
#26816#39564#30721#21333)
|
||||
end
|
||||
object Edit4: TEdit
|
||||
Left = 664
|
||||
Top = 30
|
||||
Left = 391
|
||||
Top = 60
|
||||
Width = 121
|
||||
Height = 30
|
||||
Font.Charset = GB2312_CHARSET
|
||||
|
|
@ -241,40 +242,40 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
|||
Visible = False
|
||||
end
|
||||
object ToolButton12: TToolButton
|
||||
Left = 785
|
||||
Top = 30
|
||||
Left = 512
|
||||
Top = 60
|
||||
Caption = #20462#25913#30721#21333
|
||||
ImageIndex = 54
|
||||
Visible = False
|
||||
OnClick = ToolButton12Click
|
||||
end
|
||||
object ToolButton9: TToolButton
|
||||
Left = 904
|
||||
Top = 30
|
||||
Left = 631
|
||||
Top = 60
|
||||
AutoSize = True
|
||||
Caption = #24322#24120#25968#25454
|
||||
ImageIndex = 2
|
||||
OnClick = ToolButton9Click
|
||||
end
|
||||
object TBExport: TToolButton
|
||||
Left = 991
|
||||
Top = 30
|
||||
Left = 718
|
||||
Top = 60
|
||||
AutoSize = True
|
||||
Caption = #23548#20986
|
||||
ImageIndex = 75
|
||||
OnClick = TBExportClick
|
||||
end
|
||||
object ToolButton14: TToolButton
|
||||
Left = 1054
|
||||
Top = 30
|
||||
Left = 781
|
||||
Top = 60
|
||||
AutoSize = True
|
||||
Caption = #36873#20013#23548#20986
|
||||
ImageIndex = 113
|
||||
OnClick = ToolButton14Click
|
||||
end
|
||||
object TBClose: TToolButton
|
||||
Left = 1141
|
||||
Top = 30
|
||||
Left = 868
|
||||
Top = 60
|
||||
AutoSize = True
|
||||
Caption = #20851#38381
|
||||
ImageIndex = 55
|
||||
|
|
@ -283,7 +284,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
|||
end
|
||||
object Panel1: TPanel
|
||||
Left = 0
|
||||
Top = 62
|
||||
Top = 92
|
||||
Width = 1384
|
||||
Height = 88
|
||||
Align = alTop
|
||||
|
|
@ -812,9 +813,9 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
|||
end
|
||||
object cxGrid1: TcxGrid
|
||||
Left = 0
|
||||
Top = 150
|
||||
Top = 180
|
||||
Width = 1384
|
||||
Height = 568
|
||||
Height = 538
|
||||
Align = alClient
|
||||
PopupMenu = PopupMenu1
|
||||
TabOrder = 3
|
||||
|
|
|
|||
|
|
@ -1975,11 +1975,15 @@ begin
|
|||
end;
|
||||
|
||||
procedure TfrmJYOrderCDOne.Edit_CKMJIDKeyPress(Sender: TObject; var Key: Char);
|
||||
var
|
||||
s, sBefore: string;
|
||||
begin
|
||||
if Key = #13 then
|
||||
begin
|
||||
if trim(Edit_CKMJID.Text) = '' then
|
||||
exit;
|
||||
s := Trim(Edit_CKMJID.text);
|
||||
sBefore := Copy(s, 1, Pos(',', s) - 1);
|
||||
|
||||
try
|
||||
with ADOQueryCmd do
|
||||
|
|
@ -1987,16 +1991,17 @@ begin
|
|||
Close;
|
||||
sql.Clear;
|
||||
// sql.Add('update WFB_MJJY set CKFlag=''已出库'' where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + '''');
|
||||
sql.Add('update WFB_MJJY set CKFlag=''已出库'',cktime=getdate() where MJID=''' + Trim(Edit_CKMJID.text) + '''');
|
||||
// sql.Add('update WFB_MJJY set CKFlag=''Òѳö¿â'',cktime=getdate() where MJID=''' + Trim(sBefore) + '''');
|
||||
if FCK = '出库' then
|
||||
begin
|
||||
sql.Add('update WFB_MJJY set CKFlag=''已出库'',cktime=getdate() where MJID=''' + Trim(Edit_CKMJID.text) + '''');
|
||||
sql.Add('update WFB_MJJY set CKFlag=''Òѳö¿â'',cktime=getdate() where MJID=''' + Trim(sBefore) + '''');
|
||||
end;
|
||||
if FCK = '撤销出库' then
|
||||
begin
|
||||
sql.Add('update WFB_MJJY set CKFlag=''未出库'',cktime=null where MJID=''' + Trim(Edit_CKMJID.text) + '''');
|
||||
sql.Add('update WFB_MJJY set CKFlag=''δ³ö¿â'',cktime=null where MJID=''' + Trim(sBefore) + '''');
|
||||
end;
|
||||
ExecSQL;
|
||||
// ShowMessage(sql.text);
|
||||
ExecSQL;
|
||||
end;
|
||||
PlaySound('wav\正确.wav', 0, SND_FILENAME or SND_ASYNC);
|
||||
except
|
||||
|
|
@ -2023,7 +2028,7 @@ procedure TfrmJYOrderCDOne.CheckBox3Click(Sender: TObject);
|
|||
var
|
||||
i: Integer;
|
||||
begin
|
||||
if CheckBox3.Checked then
|
||||
if CheckBox3.Checked then
|
||||
begin
|
||||
with Panel1 do
|
||||
begin
|
||||
|
|
|
|||
|
|
@ -1761,7 +1761,7 @@ end;
|
|||
procedure TfrmMJManageNewFDNewSF.PrtData(FMJID: string);
|
||||
var
|
||||
fPrintFile: string;
|
||||
Txt, fImagePath, Txt1, fImagePath1: string;
|
||||
Txt, fImagePath, Txt1, fImagePath1, Txt2, fImagePath2: string;
|
||||
Moudle: THandle;
|
||||
Makebar: TMakebar;
|
||||
Mixtext: TMixtext;
|
||||
|
|
@ -1821,11 +1821,29 @@ begin
|
|||
if FileExists(fImagePath1) then
|
||||
DeleteFile(fImagePath1);
|
||||
Makebar(pchar(Txt1), Length(Txt1), 3, 3, 0, PChar(fImagePath1), 3);
|
||||
except
|
||||
application.MessageBox('条形码生成失败！', '提示信息', MB_ICONERROR);
|
||||
CDS_MJID.EnableControls;
|
||||
exit;
|
||||
end;
|
||||
try
|
||||
Moudle := LoadLibrary('MakeQRBarcode.dll');
|
||||
@Makebar := GetProcAddress(Moudle, 'Make');
|
||||
@Mixtext := GetProcAddress(Moudle, 'MixText');
|
||||
Txt2 := Trim(ADOQueryPrint.fieldbyname('MJID').AsString) + ',' + Trim(ADOQueryPrint.fieldbyname('PRTCodename').AsString) + ',' + Trim(ADOQueryPrint.fieldbyname('PRTColor').AsString) + ',' + floatTostr(ADOQueryPrint.fieldbyname('Mjlen').AsFloat) + Trim(ADOQueryPrint.fieldbyname('MJTypeOther').AsString);
|
||||
Txt2 := UTF8Encode(Txt2);
|
||||
fImagePath2 := ExtractFilePath(Application.ExeName) + 'image\temp2.bmp';
|
||||
if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName) + 'image')) then
|
||||
CreateDirectory(pchar(ExtractFilePath(Application.ExeName) + 'image'), nil);
|
||||
if FileExists(fImagePath2) then
|
||||
DeleteFile(fImagePath2);
|
||||
Makebar(pchar(Txt2), Length(Txt2), 3, 3, 0, PChar(fImagePath2), 3);
|
||||
except
|
||||
application.MessageBox('条形码生成失败！', '提示信息', MB_ICONERROR);
|
||||
CDS_MJID.EnableControls;
|
||||
exit;
|
||||
end;
|
||||
|
||||
if Trim(ADOQueryPrint.fieldbyname('Slbname').AsString) <> '' then
|
||||
begin
|
||||
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + Trim(ADOQueryPrint.fieldbyname('Slbname').AsString);
|
||||
|
|
@ -1852,10 +1870,13 @@ begin
|
|||
begin
|
||||
RMVariables['QRBARCODE'] := fImagePath;
|
||||
RMVariables['QRBARCODE1'] := fImagePath1;
|
||||
RMVariables['QRBARCODE2'] := fImagePath2;
|
||||
RMVariables['Txt1'] := Txt1;
|
||||
RMVariables['Txt2'] := Txt2;
|
||||
|
||||
if Edit5.Text <> '' then
|
||||
begin
|
||||
RM3.LoadFromFile(fPrintFile);
|
||||
|
||||
RM3.DefaultCopies := strtointdef(trim(ComboBox1.Text), 1);
|
||||
// RM3.ShowReport;
|
||||
Sleep(1000);
|
||||
|
|
|
|||
Loading…
Reference in New Issue
Block a user