material.~pas

来自「1. 纯粹的合同管理,不涉及其它业务,独立成系统2. 简单明了,流程清析3. 合」· ~PAS 代码 · 共 89 行

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.