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

1

Browse Source
This commit is contained in:
ddf 2025-07-12 09:05:06 +08:00
parent 554f338004
commit 3cd54fa56b
5 changed files with 23 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
A05基础资料管理/BaseInfo.skincfg
View File

@ -1,5 +1,5 @@
[ExpressSkins]
Default=0
Default=1
ShowNotifications=1
Enabled=1
dxSkinBasic=0

5
A05基础资料管理/U_PositionInPut.dfm
View File

@ -7,8 +7,8 @@ inherited frmPositionInPut: TfrmPositionInPut
Color = clWhite
Font.Height = -16
Position = poMainFormCenter
ExplicitWidth = 648
ExplicitHeight = 372
ExplicitWidth = 640
ExplicitHeight = 364
PixelsPerInch = 96
TextHeight = 21
object cxGrid2: TcxGrid [0]
@ -68,7 +68,6 @@ inherited frmPositionInPut: TfrmPositionInPut
DataBinding.FieldName = 'orientation'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 78
end
end

7
T02贸易汇总仓库/U_TradeClothTotalInList.dfm
View File

@ -8,8 +8,8 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
Font.Height = -16
FormStyle = fsMDIChild
Visible = True
ExplicitWidth = 1311
ExplicitHeight = 645
ExplicitWidth = 1303
ExplicitHeight = 637
PixelsPerInch = 96
TextHeight = 21
object ToolBar1: TToolBar [0]
@ -515,6 +515,9 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
object cxTabSheet2: TcxTabSheet
Caption = #20135#21697#26126#32454
ImageIndex = 1
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object cxGrid1: TcxGrid
Left = 0
Top = 0

8
T02贸易汇总仓库/U_TradeTotallClothOutinput.dfm
View File

@ -8,8 +8,8 @@ inherited frmTradeTotallClothOutinput: TfrmTradeTotallClothOutinput
Font.Height = -16
Position = poMainFormCenter
OnClose = FormClose
ExplicitWidth = 1541
ExplicitHeight = 556
ExplicitWidth = 1533
ExplicitHeight = 548
PixelsPerInch = 96
TextHeight = 21
object ToolBar1: TToolBar [0]
@ -66,8 +66,6 @@ inherited frmTradeTotallClothOutinput: TfrmTradeTotallClothOutinput
Height = 390
Align = alClient
TabOrder = 1
ExplicitLeft = 288
ExplicitTop = 97
object Tv1: TcxGridDBTableView
OnMouseDown = Tv1MouseDown
Navigator.Buttons.CustomButtons = <>
@ -387,7 +385,7 @@ inherited frmTradeTotallClothOutinput: TfrmTradeTotallClothOutinput
Width = 149
end
object IOTime: TcxDateEdit
Left = 346
Left = 348
Top = 17
Properties.ImmediatePost = True
Properties.ShowTime = False

12
T02贸易汇总仓库/U_TradeTotallClothOutinput.pas
View File

@ -80,6 +80,7 @@ type
procedure v1Column13PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure ToolButton2Click(Sender: TObject);
procedure ToCoNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
function SaveData(): Boolean;
@ -325,6 +326,12 @@ begin
Close;
end;
procedure TfrmTradeTotallClothOutinput.FormCreate(Sender: TObject);
begin
inherited;
IOTime.Date := SGetServerDate(ADOQueryTemp);
end;
procedure TfrmTradeTotallClothOutinput.FormShow(Sender: TObject);
var
fsj: string;
@ -413,6 +420,11 @@ var
begin
if CDS_Sub.IsEmpty then
Exit;
// if IOTime.Text = '' then
// begin
// Application.MessageBox('出库时间不能为空!', '提示', 0);
// Exit;
// end;
if IOType.Text = '' then
begin
Application.MessageBox('³ö¿âÀàÐͲ»ÄÜΪ¿Õ!', 'Ìáʾ', 0);