D7zzHanglin/纱线仓库(CYSXCK.dll)/U_MaDanManage.pas
DESKTOP-E401PHE\Administrator 4c4c37570c 0
2025-08-06 16:42:07 +08:00

170 lines
4.4 KiB
ObjectPascal

unit U_MaDanManage;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, ToolWin, StdCtrls, ExtCtrls, cxStyles, cxCustomData,
cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData,
cxCalendar, cxGridLevel, cxGridCustomTableView, cxGridTableView,
cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid,
cxCheckBox, cxButtonEdit, cxDropDownEdit, BtnEdit, cxGridBandedTableView,
cxGridDBBandedTableView, cxContainer, cxTextEdit, cxMemo, cxRichEdit;
type
TfrmMaDanManage = class(TForm)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBFind: TToolButton;
TBClose: TToolButton;
Panel1: TPanel;
Label3: TLabel;
OrderNo: TEdit;
ScrollBox3: TScrollBox;
ScrollBox4: TScrollBox;
ScrollBox6: TScrollBox;
Panel7: TPanel;
Label13: TLabel;
cxGrid5: TcxGrid;
Tv5: TcxGridDBTableView;
cxGridDBColumn8: TcxGridDBColumn;
cxGridDBColumn9: TcxGridDBColumn;
cxGridLevel4: TcxGridLevel;
v5Column1: TcxGridDBColumn;
v5Column2: TcxGridDBColumn;
v5Column3: TcxGridDBColumn;
v5Column4: TcxGridDBColumn;
v5Column5: TcxGridDBColumn;
v5Column6: TcxGridDBColumn;
v5Column7: TcxGridDBColumn;
Panel2: TPanel;
Label1: TLabel;
v5Column8: TcxGridDBColumn;
Panel3: TPanel;
Label2: TLabel;
Panel5: TPanel;
Label9: TLabel;
cxGrid2: TcxGrid;
Tv2: TcxGridDBTableView;
cxGridDBColumn4: TcxGridDBColumn;
cxGridDBColumn5: TcxGridDBColumn;
v2Column1: TcxGridDBColumn;
cxGridDBColumn6: TcxGridDBColumn;
cxGridLevel2: TcxGridLevel;
v2Column2: TcxGridDBColumn;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
v1Column4: TcxGridDBColumn;
v1SOrddefstr1: TcxGridDBColumn;
v1PRTColor: TcxGridDBColumn;
v1Column3: TcxGridDBColumn;
v1Column1: TcxGridDBColumn;
v1PRTOrderQty: TcxGridDBColumn;
v1OrderUnit: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel;
v1Column2: TcxGridDBColumn;
Panel4: TPanel;
Label12: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label21: TLabel;
Label25: TLabel;
Label15: TLabel;
Label16: TLabel;
Label17: TLabel;
Label18: TLabel;
ChuanY: TBtnEditC;
DLYDate: TDateTimePicker;
MPRTCodeName: TEdit;
MPRTSpec: TEdit;
MPRTCF: TEdit;
MPRTMF: TEdit;
MPRTKZ: TEdit;
MPRTKZNote: TEdit;
MPRTCode: TBtnEditA;
LiDanPerson: TEdit;
ScrollBox1: TScrollBox;
Panel8: TPanel;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Panel6: TPanel;
cxGrid3: TcxGrid;
Tv3: TcxGridDBTableView;
cxGridDBColumn2: TcxGridDBColumn;
cxGridDBColumn3: TcxGridDBColumn;
cxGridDBColumn7: TcxGridDBColumn;
cxGridDBColumn11: TcxGridDBColumn;
cxGridDBColumn14: TcxGridDBColumn;
cxGridDBColumn12: TcxGridDBColumn;
cxGridDBColumn13: TcxGridDBColumn;
Tv3Column1: TcxGridDBColumn;
Tv3Column2: TcxGridDBColumn;
Tv3Column3: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
cxGrid4: TcxGrid;
Tv6: TcxGridDBBandedTableView;
cxGridDBBandedColumn1: TcxGridDBBandedColumn;
cxGridDBBandedColumn2: TcxGridDBBandedColumn;
cxGridLevel3: TcxGridLevel;
Tv6Column1: TcxGridDBBandedColumn;
Tv6Column2: TcxGridDBBandedColumn;
v6Column1: TcxGridDBBandedColumn;
v6Column2: TcxGridDBBandedColumn;
v6Column3: TcxGridDBBandedColumn;
v3Column1: TcxGridDBColumn;
v3Column2: TcxGridDBColumn;
ScrollBox2: TScrollBox;
Label4: TLabel;
Label5: TLabel;
cxRichEdit1: TcxRichEdit;
Button4: TButton;
Label10: TLabel;
ComboBox1: TComboBox;
Label11: TLabel;
ComboBox2: TComboBox;
Label14: TLabel;
ComboBox3: TComboBox;
Label19: TLabel;
ComboBox4: TComboBox;
Label20: TLabel;
ComboBox5: TComboBox;
Label22: TLabel;
ComboBox6: TComboBox;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmMaDanManage: TfrmMaDanManage;
implementation
uses
U_DataLink,U_RTFun;
{$R *.dfm}
procedure TfrmMaDanManage.FormDestroy(Sender: TObject);
begin
frmMaDanManage:=nil;
end;
procedure TfrmMaDanManage.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
Action:=caFree;
end;
procedure TfrmMaDanManage.TBCloseClick(Sender: TObject);
begin
close;
end;
end.