【delphi开源代码栏目提醒】:以下是网学会员为您推荐的delphi开源代码-TypeChoose.pas,希望本篇文章对您学习有所帮助。
unit TypeChoose;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Db, DBTables, ComCtrls, ExtCtrls, DBCtrls, StdCtrls, Mask, ADODB, Buttons,
Grids, DBGrids, Menus;
type
TTypeChooseForm = class(TForm)
DSType: TDataSource;
Panel1: TPanel;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
Panel2: TPanel;
DBGrid1: TDBGrid;
AQType: TADOQuery;
AQTypeTypeID: TWideStringField;
AQTypeTypeName: TWideStringField;
procedure BitBtn1Click(Sender: TObject);
procedure ChooseClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
var
TypeChooseForm: TTypeChooseForm;
curnode1:TTreeNode;
TypeGrade: integer;
TypeLen: Array[1..4] of Integer;
TypeLevel:String;
InputTypeId: Integer;
InputTypeName: String;
implementation
uses
DataModule, Input;
{$R *.DFM}
procedure TTypeChooseForm.BitBtn1Click(Sender: TObject);
begin
TypeChooseForm.Close;
end;
procedure TTypeChooseForm.ChooseClick(Sender: TObject);
begin
Input.InputForm.ATListType.Value:=AQTypeTypeID.Value;
TypeChooseForm.Close;
end;
procedure TTypeChooseForm.FormCreate(Sender: TObject);
begin
InputForm.Enabled:=False;
Self.Top:=100;
Self.Left:=230;
Self.Height:=375;
Self.Width:=430;
end;
procedure TTypeChooseForm.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
InputForm.Enabled:=True;
InputForm.Refresh;
Action:=CaFree;
end;
end.
上一篇:
OutDataSet.cpp
下一篇:
一个人晕着也能去看病打针