增加码单
This commit is contained in:
DESKTOP-E401PHE\Administrator
parent
49668c4c80
commit
22103733ec
|
|
@ -4,7 +4,21 @@ interface
|
|||
|
||||
uses
|
||||
SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels,
|
||||
Windows,Messages,forms,OleCtnrs,DateUtils, cxClasses, ExtCtrls,SyncObjs;
|
||||
Windows,Messages,forms,OleCtnrs,DateUtils, cxClasses, ExtCtrls,SyncObjs,
|
||||
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;
|
||||
type
|
||||
TMyThread = class(TThread)
|
||||
protected
|
||||
|
|
|
|||
|
|
@ -1,6 +1,6 @@
|
|||
object frmJYOrderCDOne: TfrmJYOrderCDOne
|
||||
Left = -8
|
||||
Top = 0
|
||||
Left = 294
|
||||
Top = 95
|
||||
Width = 1378
|
||||
Height = 754
|
||||
Caption = #26816#39564#25253#21578
|
||||
|
|
@ -198,7 +198,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
|||
Text = #30721#21333'('#25171#21367')'
|
||||
OnChange = ComboBox1Change
|
||||
Items.Strings = (
|
||||
#30721#21333'('#25171#21367')')
|
||||
#30721#21333'('#25171#21367')'
|
||||
#30721#21333'('#25353#21367#21495')')
|
||||
end
|
||||
object ToolButton9: TToolButton
|
||||
Left = 664
|
||||
|
|
@ -728,7 +729,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
|||
Left = 0
|
||||
Top = 150
|
||||
Width = 1362
|
||||
Height = 566
|
||||
Height = 565
|
||||
Align = alClient
|
||||
PopupMenu = PopupMenu1
|
||||
TabOrder = 3
|
||||
|
|
|
|||
|
|
@ -10,8 +10,21 @@ uses
|
|||
cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
|
||||
cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System,
|
||||
RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, MovePanel, cxTextEdit,
|
||||
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxContainer,ShellAPI,
|
||||
cxCurrencyEdit,MMSystem;
|
||||
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxContainer, ShellAPI,
|
||||
cxCurrencyEdit, MMSystem, 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
|
||||
TfrmJYOrderCDOne = class(TForm)
|
||||
|
|
@ -475,15 +488,15 @@ begin
|
|||
TBManage.Visible := True;
|
||||
v1Column22.visible := True;
|
||||
v1Column15.Options.Focusing := True;
|
||||
TCPDB.Visible:=True;
|
||||
TBPrintBao.Visible:=True;
|
||||
TCPDB.Visible := True;
|
||||
TBPrintBao.Visible := True;
|
||||
|
||||
TBck.Visible:=true;
|
||||
TBSMck.Visible:=True;
|
||||
TBnoCK.Visible:=True;
|
||||
TBDW.Visible:=True;
|
||||
TBMS.Visible:=True;
|
||||
TBPZ.Visible:=True;
|
||||
TBck.Visible := true;
|
||||
TBSMck.Visible := True;
|
||||
TBnoCK.Visible := True;
|
||||
TBDW.Visible := True;
|
||||
TBMS.Visible := True;
|
||||
TBPZ.Visible := True;
|
||||
|
||||
end;
|
||||
if Trim(DParameters2) = '³ÉÆ·¹ÜÀí' then
|
||||
|
|
@ -497,13 +510,13 @@ begin
|
|||
TBZF.Visible := False;
|
||||
TBManage.Visible := False;
|
||||
v1Column22.visible := False;
|
||||
TBck.Visible:=false;
|
||||
TBSMck.Visible:=false;
|
||||
TBnoCK.Visible:=false;
|
||||
TBDW.Visible:=false;
|
||||
TBMS.Visible:=false;
|
||||
TBPZ.Visible:=false;
|
||||
TCPDB.Visible:=True;
|
||||
TBck.Visible := false;
|
||||
TBSMck.Visible := false;
|
||||
TBnoCK.Visible := false;
|
||||
TBDW.Visible := false;
|
||||
TBMS.Visible := false;
|
||||
TBPZ.Visible := false;
|
||||
TCPDB.Visible := True;
|
||||
TBPrintBao.Visible := True;
|
||||
end;
|
||||
if Trim(DParameters2) = '' then
|
||||
|
|
@ -511,12 +524,12 @@ begin
|
|||
TBZF.Visible := False;
|
||||
TBManage.Visible := False;
|
||||
v1Column22.visible := False;
|
||||
TBck.Visible:=false;
|
||||
TBSMck.Visible:=false;
|
||||
TBnoCK.Visible:=false;
|
||||
TBDW.Visible:=false;
|
||||
TBMS.Visible:=false;
|
||||
TBPZ.Visible:=false;
|
||||
TBck.Visible := false;
|
||||
TBSMck.Visible := false;
|
||||
TBnoCK.Visible := false;
|
||||
TBDW.Visible := false;
|
||||
TBMS.Visible := false;
|
||||
TBPZ.Visible := false;
|
||||
// TCPDB.Visible:=False;
|
||||
end;
|
||||
end;
|
||||
|
|
@ -795,8 +808,6 @@ begin
|
|||
TBFind.Click;
|
||||
end;
|
||||
|
||||
|
||||
|
||||
procedure TfrmJYOrderCDOne.OrderNoKeyPress(Sender: TObject; var Key: Char);
|
||||
begin
|
||||
if Key = #13 then
|
||||
|
|
@ -866,7 +877,8 @@ end;
|
|||
|
||||
procedure TfrmJYOrderCDOne.TBPrintJYBBClick(Sender: TObject);
|
||||
begin
|
||||
if Order_Main.IsEmpty then Exit;
|
||||
if Order_Main.IsEmpty then
|
||||
Exit;
|
||||
|
||||
if Order_Main.Locate('SSel', True, []) = False then
|
||||
begin
|
||||
|
|
@ -1379,7 +1391,6 @@ var
|
|||
sqlStr: string;
|
||||
begin
|
||||
|
||||
|
||||
if Order_Main.IsEmpty then
|
||||
Exit;
|
||||
if trim(ComboBox1.Text) = '' then
|
||||
|
|
@ -1535,7 +1546,7 @@ begin
|
|||
end;
|
||||
end;
|
||||
|
||||
if (trim(ComboBox1.Text) = '쇱駱쯤데(횡<>)') OR (trim(ComboBox1.Text) = '쇱駱쯤데(丹빻)') then
|
||||
if (trim(ComboBox1.Text) = '쇱駱쯤데(횡<>)') or (trim(ComboBox1.Text) = '쇱駱쯤데(丹빻)') then
|
||||
begin
|
||||
with ADOQueryTemp do
|
||||
begin
|
||||
|
|
@ -1560,7 +1571,7 @@ begin
|
|||
Open;
|
||||
end;
|
||||
end;
|
||||
if (trim(ComboBox1.Text) = '쇱駱쯤데(횡<>쵠鑒)') OR (trim(ComboBox1.Text) = '쇱駱쯤데(丹빻쵠鑒)') then
|
||||
if (trim(ComboBox1.Text) = '쇱駱쯤데(횡<>쵠鑒)') or (trim(ComboBox1.Text) = '쇱駱쯤데(丹빻쵠鑒)') then
|
||||
begin
|
||||
with ADOQueryTemp do
|
||||
begin
|
||||
|
|
@ -1612,6 +1623,32 @@ begin
|
|||
end;
|
||||
end;
|
||||
|
||||
if (trim(ComboBox1.Text) = '쯤데(객얩뵀)') then
|
||||
begin
|
||||
with ADOQueryTemp do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.add('exec P_Print_CKMD_JH ');
|
||||
sql.add('@mainID=' + quotedstr(Trim('')));
|
||||
sql.add(',@DName=' + quotedstr(Trim(DCode)));
|
||||
sql.Add(',@Cnum=''3''');
|
||||
Open;
|
||||
end;
|
||||
SCreateCDS20(ADOQueryTemp, CDS_HZ);
|
||||
SInitCDSData20(ADOQueryTemp, CDS_HZ);
|
||||
with ADOQueryPrint do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.add('exec P_Do_PrintMd_HZ ');
|
||||
sql.add('@mainID=' + quotedstr(Trim('')));
|
||||
sql.add(',@DName=' + quotedstr(Trim(DCode)));
|
||||
sql.add(',@flag=''2'' ');
|
||||
Open;
|
||||
end;
|
||||
end;
|
||||
|
||||
if FileExists(fPrintFile) then
|
||||
begin
|
||||
RM1.LoadFromFile(fPrintFile);
|
||||
|
|
@ -1864,12 +1901,12 @@ begin
|
|||
panel3.Visible := false;
|
||||
end;
|
||||
|
||||
procedure TfrmJYOrderCDOne.Edit_CKMJIDKeyPress(Sender: TObject;
|
||||
var Key: Char);
|
||||
procedure TfrmJYOrderCDOne.Edit_CKMJIDKeyPress(Sender: TObject; var Key: Char);
|
||||
begin
|
||||
IF key=#13 then
|
||||
if Key = #13 then
|
||||
begin
|
||||
IF trim(Edit_CKMJID.Text)='' then exit;
|
||||
if trim(Edit_CKMJID.Text) = '' then
|
||||
exit;
|
||||
|
||||
try
|
||||
with ADOQueryCmd do
|
||||
|
|
@ -1883,13 +1920,13 @@ begin
|
|||
except
|
||||
PlaySound('wav\ɨÃè´íÎó.wav', 0, SND_FILENAME or SND_ASYNC);
|
||||
end;
|
||||
Edit_CKMJID.Text:='';
|
||||
Edit_CKMJID.Text := '';
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmJYOrderCDOne.Button_CKSMClick(Sender: TObject);
|
||||
begin
|
||||
Panel_SMCK.Visible:=false;
|
||||
Panel_SMCK.Visible := false;
|
||||
end;
|
||||
|
||||
procedure TfrmJYOrderCDOne.TBSMCKClick(Sender: TObject);
|
||||
|
|
|
|||
Loading…
Reference in New Issue
Block a user