【delphi开源代码栏目提醒】:网学会员delphi开源代码为您提供material.pas参考,解决您在material.pas学习中工作中的难题,参考学习。
unit material;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ahmtbackground, Buttons, StdCtrls, ahmtlabel, ExtCtrls,
ahmtpanel, dxDBTLCl, dxGrClms, dxTL, dxDBCtrl, dxDBGrid, dxCntner,
ComCtrls;
type
TF_Material = class(TForm)
AHMPanel2: TAHMPanel;
AHMPanel1: TAHMPanel;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
SpeedButton3: TSpeedButton;
SpeedButton4: TSpeedButton;
SpeedButton5: TSpeedButton;
AHMBackground1: TAHMBackground;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
AHMPanel3: TAHMPanel;
Label1: TLabel;
SpeedButton8: TSpeedButton;
SpeedButton9: TSpeedButton;
Label2: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Splitter1: TSplitter;
Panel1: TPanel;
dxDBGrid1: TdxDBGrid;
AHMPanel4: TAHMPanel;
AHMLabel2: TAHMLabel;
SpeedButton6: TSpeedButton;
AHMLabel3: TAHMLabel;
Edit7: TEdit;
dxDBGrid1Class_ID: TdxDBGridMaskColumn;
dxDBGrid1Class_Name: TdxDBGridMaskColumn;
AHMPanel5: TAHMPanel;
Label3: TLabel;
SpeedButton7: TSpeedButton;
SpeedButton10: TSpeedButton;
Edit3: TEdit;
Panel2: TPanel;
dxDBGrid2: TdxDBGrid;
dxDBGrid2Mode_Interval: TdxDBGridMaskColumn;
procedure SpeedButton5Click(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
F_Material: TF_Material;
implementation
uses dm;
{$R *.dfm}
procedure TF_Material.SpeedButton5Click(Sender: TObject);
begin
close;
end;
procedure TF_Material.SpeedButton1Click(Sender: TObject);
begin
if PageControl1.ActivePageIndex = 0 then
begin
Edit1.Clear;
Edit2.Clear;
Edit1.SetFocus;
end;
if PageControl1.ActivePageIndex = 1 then
begin
Edit3.Clear;
Edit3.SetFocus;
end;
end;
end.
上一篇:
HolidaySet.cpp
下一篇:
加强企业管理力度 提升产品绿色竞争力