u_sjcj.~pas

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

unit U_Sjcj;

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,
  StrUtils;

type
  TFrm_Sjcj = class(TForm)
    Tbar: TToolBar;
    ToolButton1: TToolButton;
    P2: TPanel;
    Label2: TLabel;
    ToolButton6: TToolButton;
    ToolButton17: TToolButton;
    ToolButton18: TToolButton;
    ImageList1: TImageList;
    ActionManager1: TActionManager;
    Zj: TAction;
    Zx: TAction;
    Cz: TAction;
    Excel: TAction;
    Exit: TAction;
    Lvw_lb: TListView;
    Timer1: TTimer;
    procedure Size_Tz();
    procedure FormResize(Sender: TObject);
    procedure ZjExecute(Sender: TObject);
    procedure ExitExecute(Sender: TObject);
    procedure Lvw_LbCellClick(Column: TColumn);
    procedure  enable_ctrl(bb:boolean);
    procedure Timer1Timer(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);  //锁定控件
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_Sjcj: TFrm_Sjcj;

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

procedure TFrm_Sjcj.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_Sjcj.FormResize(Sender: TObject);
begin
     Size_Tz();
     self.Timer1.Interval:=3000;
end;

procedure TFrm_Sjcj.ZjExecute(Sender: TObject);
begin
   self.Lvw_lb.Items.Clear;

end;
procedure TFrm_Sjcj.ExitExecute(Sender: TObject);
begin
  self.Timer1.Interval:=0;
  close;
//
end;

procedure TFrm_Sjcj.Lvw_LbCellClick(Column: TColumn);
begin
 // g_str_selectkh:=dbedit2.Text;
 // g_str_selectbh:=dbedit1.Text;
 // enable_ctrl(true);
end;
procedure TFrm_Sjcj.enable_ctrl(bb:boolean);
var aa:string;
begin
  //
  end;
procedure TFrm_Sjcj.Timer1Timer(Sender: TObject);
var Pp:string;
  a1,a2,a3,a4:string;
begin
    data.G_con.Open();
    Pp:= 'select * from mr_xfb where xfrq=' +quotedstr( Formatdatetime('yyyy年mm月dd日',now));//+'  and xfsj >='+ quotedstr(Formatdatetime('hh:mm:ss',now)) ;
     data.G_cj.SQL.Clear;
    data.G_cj.SQL.Add(pp);
    data.G_cj.ExecSQL;
    data.G_cj.Open;
    self.Lvw_lb.Items.Clear;
       While Not data.G_cj.EOF do
         begin
                  a1:=data.G_cj.FieldValues['kh'];
                  a2:=data.G_cj.FieldValues['xm'];
                  a3:=data.G_cj.FieldValues['xflx'];
                  a4:=data.G_cj.FieldValues['xfrq'];
                 with  Lvw_lb.Items.Add do
                     begin
                      caption:=a1;
                      SubItems.Add(a2);
                      SubItems.Add(a3);
                      SubItems.Add(a4);
                  end;

                data.G_cj.Next;
         end;
            data.G_cj.Close;


end;

procedure TFrm_Sjcj.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  self.Timer1.Interval:=0;
end;

end.