Group_99/D7zzXiangHeng
5
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-09-28 15:29:56 +08:00
parent f8325c5744
commit ba2679a21e
3 changed files with 28 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
坯布生产计划(WeavingSchedule)/U_ClothSCDCGAnPai.dfm
View File

@ -1,6 +1,6 @@
object frmClothSCDCGAnPai: TfrmClothSCDCGAnPai object frmClothSCDCGAnPai: TfrmClothSCDCGAnPai
Left = 104 Left = 593
Top = 78 Top = 187
Width = 1414 Width = 1414
Height = 724 Height = 724
Caption = #26631#31614#25171#21360 Caption = #26631#31614#25171#21360
@ -19,7 +19,7 @@ object frmClothSCDCGAnPai: TfrmClothSCDCGAnPai
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1398 Width = 1406
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 83 ButtonWidth = 83
@ -89,7 +89,7 @@ object frmClothSCDCGAnPai: TfrmClothSCDCGAnPai
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 32 Top = 32
Width = 1398 Width = 1406
Height = 40 Height = 40
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -259,7 +259,7 @@ object frmClothSCDCGAnPai: TfrmClothSCDCGAnPai
Left = 689 Left = 689
Top = 72 Top = 72
Width = 231 Width = 231
Height = 613 Height = 621
Align = alLeft Align = alLeft
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
@ -427,7 +427,7 @@ object frmClothSCDCGAnPai: TfrmClothSCDCGAnPai
Left = 0 Left = 0
Top = 72 Top = 72
Width = 689 Width = 689
Height = 613 Height = 621
Align = alLeft Align = alLeft
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 2 TabOrder = 2
@ -601,8 +601,8 @@ object frmClothSCDCGAnPai: TfrmClothSCDCGAnPai
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 920 Left = 920
Top = 72 Top = 72
Width = 478 Width = 486
Height = 613 Height = 621
Align = alClient Align = alClient
TabOrder = 4 TabOrder = 4
object Tv2: TcxGridDBTableView object Tv2: TcxGridDBTableView

8
坯布生产计划(WeavingSchedule)/U_ClothSCDCGAnPai.pas
View File

@ -291,11 +291,13 @@ var
FFDS: Integer; FFDS: Integer;
FGYCarNo: string; FGYCarNo: string;
begin begin
Button2.Enabled := False;
if ClientDataSet3.IsEmpty then if ClientDataSet3.IsEmpty then
Exit; Exit;
if ClientDataSet3.Locate('SSel', True, []) = False then if ClientDataSet3.Locate('SSel', True, []) = False then
begin begin
Application.MessageBox('没有选择数据!', '提示', 0); Application.MessageBox('没有选择数据!', '提示', 0);
Button2.Enabled := True;
Exit; Exit;
end end
else else
@ -341,11 +343,13 @@ begin
if Trim(PS.Text) = '' then if Trim(PS.Text) = '' then
begin begin
Application.MessageBox('匹数不能为空!', '提示', 0); Application.MessageBox('匹数不能为空!', '提示', 0);
Button2.Enabled := True;
Exit; Exit;
end; end;
if TryStrToInt(Trim(PS.Text), FFDS) = False then if TryStrToInt(Trim(PS.Text), FFDS) = False then
begin begin
Application.MessageBox('匹数非法', '提示', 0); Application.MessageBox('匹数非法', '提示', 0);
Button2.Enabled := True;
Exit; Exit;
end; end;
// if Trim(JXPerson.Text) = '' then // if Trim(JXPerson.Text) = '' then
@ -378,9 +382,10 @@ begin
if FFDS * strtoint(PS.Text) + strtoint(APPS.Text) > StrToInt(PSSX.Text) then if FFDS * strtoint(PS.Text) + strtoint(APPS.Text) > StrToInt(PSSX.Text) then
begin begin
Application.MessageBox('安排匹数过多，不允许保存!', '提示', 0); Application.MessageBox('安排匹数过多，不允许保存!', '提示', 0);
Button2.Enabled := True;
Exit; Exit;
end; end;
Button2.Enabled := False;
if SaveDataAP() then if SaveDataAP() then
begin begin
InitGrid(); InitGrid();
@ -1095,6 +1100,7 @@ begin
if Key = #13 then if Key = #13 then
begin begin
Button2.Click; Button2.Click;
Button2.Enabled := False;
end; end;
end; end;

20
坯布生产计划(WeavingSchedule)/U_GetDllForm.pas
View File

@ -69,18 +69,24 @@ begin
SetLength(dtbase, 255); SetLength(dtbase, 255);
SetLength(user, 255); SetLength(user, 255);
SetLength(pswd, 255); SetLength(pswd, 255);
if Trim(DataBaseStr) = '' then
user := 'longfengsa'; begin
dtbase := 'xianghengdata'; user := 'longfengsa';
server := '116.62.5.81,7781'; dtbase := 'xianghengdata';
pswd := 'rightsoft@81'; server := '116.62.5.81,7781';
pswd := 'rightsoft@81';
// dtbase := 'maishuodata'; // dtbase := 'maishuodata';
// dtbase := 'guanyuandata'; // dtbase := 'guanyuandata';
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server; DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
DConString := DataBaseStr;
// DName := 'Ì·Ã÷½­'; // DName := 'Ì·Ã÷½­';
// DParameters1 := 'BS'; // DParameters1 := 'BS';
//DParameters3:='1'; //DParameters3:='1';
end
else
begin
DConString := DataBaseStr;
end;
if not ConnData() then if not ConnData() then
begin begin
result := 0; result := 0;