170 lines
4.4 KiB
ObjectPascal
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.
|