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] [ExpressSkins]
Default=0 Default=1
ShowNotifications=1 ShowNotifications=1
Enabled=1 Enabled=1
dxSkinBasic=0 dxSkinBasic=0

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

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

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

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

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

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

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

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