dzgl.pas

我的本科毕业代码,基本功能都出来了.不是特别好,请指教

unit dzgl;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBTables, Menus, Grids, DBGrids, StdCtrls, ExtCtrls,
  System.ComponentModel;

type
  Tdzgl_Form = class(TForm)
    GroupBox1: TGroupBox;
    xm_LEdit: TLabeledEdit;
    cmdok: TButton;
    cmdclose: TButton;
    DBGrid1: TDBGrid;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    DataSource1: TDataSource;
    Query1: TQuery;
    procedure cmdokClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    modi:boolean;
    xcaption:string;
  end;

var
  dzgl_Form: Tdzgl_Form;

implementation

uses main;

{$R *.dfm}

procedure Tdzgl_Form.cmdokClick(Sender: TObject);
var
    xm,sqlstr:string;
begin
    xm:=trim(xm_ledit.Text);
    if length(xm)<1 then
    begin
        sqlstr:='select * from t_dzb';
    end
    else
    begin
        xm:='%'+xm+'%';
        sqlstr:='select * from t_dzb where(xm like '''+xm+''')';
    end;
    Query1.Close;
    Query1.SQL.Clear;
    Query1.SQL.Add(sqlstr);
    Query1.Open;
    if Query1.RecordCount>0 then
    begin
        N1.Enabled:=true;
        N2.Enabled:=true;
        N3.Enabled:=true;
    end
    else
    begin
        N1.Enabled:=true;
        N2.Enabled:=false;
        N3.Enabled:=false;
    end;
end;

procedure Tdzgl_Form.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    Action:=cafree;
    mainform.N31.Enabled:=true;
end;

procedure Tdzgl_Form.FormCreate(Sender: TObject);
begin
    Query1.SessionName:=mainform.Database1.SessionName;
    Query1.DatabaseName:=mainform.Database1.DatabaseName;
end;

end.