129 lines
2.8 KiB
ObjectPascal
129 lines
2.8 KiB
ObjectPascal
unit U_BatchMdyData;
|
|
|
|
interface
|
|
|
|
uses
|
|
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
|
|
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, dxBarBuiltInMenu, cxGraphics,
|
|
cxControls, cxLookAndFeels, cxLookAndFeelPainters,
|
|
cxPC, cxContainer, cxEdit, Vcl.Menus, Vcl.StdCtrls, cxButtons, cxTextEdit,
|
|
cxMaskEdit, cxDropDownEdit;
|
|
|
|
type
|
|
TfrmBatchMdyData = class(TForm)
|
|
cxPageControl1: TcxPageControl;
|
|
cxTabSheet1: TcxTabSheet;
|
|
Label17: TLabel;
|
|
Label18: TLabel;
|
|
tzfs: TcxComboBox;
|
|
tzsl: TcxTextEdit;
|
|
cxOk1: TcxButton;
|
|
cxclose: TcxButton;
|
|
cxTabSheet2: TcxTabSheet;
|
|
lenUnit: TcxComboBox;
|
|
cxButton1: TcxButton;
|
|
cxButton2: TcxButton;
|
|
cxTabSheet3: TcxTabSheet;
|
|
Label1: TLabel;
|
|
tzsl1: TcxTextEdit;
|
|
tzfs1: TcxComboBox;
|
|
Label2: TLabel;
|
|
Label3: TLabel;
|
|
tzfield: TcxComboBox;
|
|
cxButton3: TcxButton;
|
|
cxButton4: TcxButton;
|
|
procedure FormCreate(Sender: TObject);
|
|
procedure cxcloseClick(Sender: TObject);
|
|
procedure cxOk1Click(Sender: TObject);
|
|
procedure cxButton1Click(Sender: TObject);
|
|
procedure FormShow(Sender: TObject);
|
|
procedure cxButton3Click(Sender: TObject);
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
fTabCaption:String;
|
|
end;
|
|
|
|
var
|
|
frmBatchMdyData: TfrmBatchMdyData;
|
|
|
|
implementation
|
|
|
|
{$R *.dfm}
|
|
|
|
procedure TfrmBatchMdyData.cxButton1Click(Sender: TObject);
|
|
begin
|
|
if trim(lenunit.Text) = '' then
|
|
begin
|
|
Application.MessageBox('请先选择单位!', '提示', 0);
|
|
Exit;
|
|
end;
|
|
|
|
ModalResult:=1;
|
|
end;
|
|
|
|
procedure TfrmBatchMdyData.cxButton3Click(Sender: TObject);
|
|
begin
|
|
if trim(tzfield.Text) = '' then
|
|
begin
|
|
Application.MessageBox('调整字段不能为空!', '提示', 0);
|
|
Exit;
|
|
end;
|
|
if trim(TZFS1.Text) = '' then
|
|
begin
|
|
Application.MessageBox('调整方式不能为空!', '提示', 0);
|
|
Exit;
|
|
end;
|
|
if trim(TZSL1.Text) = '' then
|
|
begin
|
|
Application.MessageBox('调整数量不能为空!', '提示', 0);
|
|
Exit;
|
|
end;
|
|
ModalResult:=1;
|
|
end;
|
|
|
|
procedure TfrmBatchMdyData.cxcloseClick(Sender: TObject);
|
|
begin
|
|
close;
|
|
end;
|
|
|
|
procedure TfrmBatchMdyData.cxOk1Click(Sender: TObject);
|
|
begin
|
|
if trim(TZFS.Text) = '' then
|
|
begin
|
|
Application.MessageBox('调整方式不能为空!', '提示', 0);
|
|
Exit;
|
|
end;
|
|
if trim(TZSL.Text) = '' then
|
|
begin
|
|
Application.MessageBox('调整数量不能为空!', '提示', 0);
|
|
Exit;
|
|
end;
|
|
ModalResult:=1;
|
|
end;
|
|
|
|
procedure TfrmBatchMdyData.FormCreate(Sender: TObject);
|
|
begin
|
|
cxPageControl1.Align:=alClient;
|
|
end;
|
|
|
|
procedure TfrmBatchMdyData.FormShow(Sender: TObject);
|
|
var
|
|
i:integer;
|
|
begin
|
|
for i:=0 to cxPageControl1.PageCount -1 do
|
|
begin
|
|
if fTabCaption= cxPageControl1.Pages[i].Caption then
|
|
begin
|
|
cxPageControl1.Pages[i].TabVisible:=True;
|
|
end
|
|
else
|
|
begin
|
|
cxPageControl1.Pages[i].TabVisible:=false;
|
|
end;
|
|
end;
|
|
|
|
end;
|
|
|
|
end.
|