gszl1.pas

delphi开发的委托加工管理系统源代码

unit gszl1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, Mask, RzEdit, RzDBEdit, RzButton, DB,
  DBActns, ActnList, ADODB;

type
  Tgszl = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Image1: TImage;
    RzDBEdit1: TRzDBEdit;
    RzDBEdit2: TRzDBEdit;
    Label4: TLabel;
    RzDBEdit3: TRzDBEdit;
    Label5: TLabel;
    RzDBEdit4: TRzDBEdit;
    RzDBEdit5: TRzDBEdit;
    RzBitBtn1: TRzBitBtn;
    RzBitBtn2: TRzBitBtn;
    RzBitBtn3: TRzBitBtn;
    DataSource1: TDataSource;
    ADOCommand1: TADOCommand;
    procedure Image1Click(Sender: TObject);
    procedure RzBitBtn3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure RzBitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  gszl: Tgszl;

implementation

uses gy1, adodm;

{$R *.dfm}

procedure Tgszl.Image1Click(Sender: TObject);
begin
application.CreateForm(tgy,gy);
gy.show;
end;

procedure Tgszl.RzBitBtn3Click(Sender: TObject);
begin
close;
end;

procedure Tgszl.FormCreate(Sender: TObject);
begin
dm.comp.Active:=false;
dm.comp.Active:=true;
end;

procedure Tgszl.RzBitBtn1Click(Sender: TObject);
begin
if  rzdbedit1.Text='' then
rzbitbtn1.Enabled:=true
else
rzbitbtn1.Enabled:=false;
end;

end.