u_zjkgl_hz.~pas

这是一个非常使用的DELPHI源码的例子,用的是SQL数据库和DELPHI企业版

unit U_Zjkgl_Hz;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ExtCtrls, ToolWin, StdCtrls, ImgList, ActnList,
  XPStyleActnCtrls, ActnMan, Grids, DBGrids,u_public_define, DBCtrls, Mask;

type
  TFrm_zjkgl_Hz = class(TForm)
    Tbar: TToolBar;
    P2: TPanel;
    Label2: TLabel;
    ToolButton8: TToolButton;
    ToolButton16: TToolButton;
    ToolButton17: TToolButton;
    ToolButton18: TToolButton;
    ImageList1: TImageList;
    ActionManager1: TActionManager;
    Zj: TAction;
    Zx: TAction;
    Cz: TAction;
    Excel: TAction;
    Exit1: TAction;
    ToolButton15: TToolButton;
    Lvw_lb: TListView;
    procedure Size_Tz();
    procedure FormResize(Sender: TObject);
    procedure ZjExecute(Sender: TObject);
    procedure Exit1Execute(Sender: TObject);
    procedure Lvw_LbCellClick(Column: TColumn);
    procedure  enable_ctrl(bb:boolean);
    procedure ZxExecute(Sender: TObject);
    procedure ExcelExecute(Sender: TObject);  //锁定控件
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_zjkgl_Hz: TFrm_zjkgl_Hz;

implementation
  uses u_zjkgl_zjkgl_grzj,u_data,u_data_update,u_zhgl_zhgl_qtzj,
       u_zjkgl_hzcz;
 var
    mbMoving:Boolean ;
 
{$R *.dfm}

procedure TFrm_zjkgl_Hz.Size_Tz();
  begin

    lvw_lb.Left:=5;
    lvw_lb.Width:=self.Width-18;
    p2.Left:=lvw_lb.Left;
    p2.Width:=lvw_lb.Width;

  //设置 Top 属性
    if tbar.Visible then
      begin
        Lvw_Lb.Top :=tbar.Height+p2.Height+5;
      end
    else
      begin
        lvw_lb.Top:=p2.Height+5;
      end;

   //设置 height 属性
   lvw_lb.Height := self.Height- (p2.Top + p2.Height) - 40;
  //
  end;
procedure TFrm_zjkgl_Hz.FormResize(Sender: TObject);
begin
     Size_Tz();
     frm_zjkgl_hzcz:=Tfrm_zjkgl_hzcz.Create(application);
     frm_zjkgl_hzcz.ShowModal;
end;

procedure TFrm_zjkgl_Hz.ZjExecute(Sender: TObject);
begin
   //G_Str_JBxx:='人员insert';
   frm_zjkgl_zjkgl_grzj:=Tfrm_zjkgl_zjkgl_grzj.Create(application);
   frm_zjkgl_zjkgl_grzj.ShowModal;
   data.Mr_zjb.Close;
   data.Mr_zjb.Open;
   data.Mr_zjb.Active:=true;

end;
procedure TFrm_zjkgl_Hz.Exit1Execute(Sender: TObject);
begin
  close;
//
end;

procedure TFrm_zjkgl_Hz.Lvw_LbCellClick(Column: TColumn);
begin
 // g_str_selectkh:=dbedit2.Text;
 // g_str_selectbh:=dbedit1.Text;
 // enable_ctrl(true);
end;
procedure TFrm_zjkgl_Hz.enable_ctrl(bb:boolean);
var aa:string;
begin
  //
  end;
procedure TFrm_zjkgl_Hz.ZxExecute(Sender: TObject);
begin
  frm_zhgl_zhgl_qtzj:=Tfrm_zhgl_zhgl_qtzj.Create(application);
  frm_zhgl_zhgl_qtzj.ShowModal;
     data.Mr_zjb.Close;
   data.Mr_zjb.Open;
   data.Mr_zjb.Active:=true;
end;

procedure TFrm_zjkgl_Hz.ExcelExecute(Sender: TObject);
begin
//
end;

end.