bm_postu.pas

Delphi办公管理系统

unit BM_POSTU;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ImgList, Grids, DBGrids, ExtCtrls, ComCtrls, Buttons, StdCtrls,
  ToolWin, DB, ADODB;

type
  TBM_POSTF = class(TForm)
    Panel1: TPanel;
    StatusBar1: TStatusBar;
    Panel2: TPanel;
    Splitter1: TSplitter;
    DBGrid1: TDBGrid;
    DSPOST: TDataSource;
    QPOST: TADOQuery;
    qpost2: TADOQuery;
    DSPOST2: TDataSource;
    ListBox1: TListBox;
    Edit1: TEdit;
    SpeedButton1: TSpeedButton;
    Label1: TLabel;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    Edit4: TEdit;
    SpeedButton2: TSpeedButton;
    procedure FormCreate(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);
    procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private declarations }
     procedure int2();
  public
    { Public declarations }
  end;

var
  BM_POSTF: TBM_POSTF;

implementation

uses BM_DMU;

{$R *.dfm}

procedure TBM_POSTF.int2;
var sql1:string;
      i:integer;

begin

    sql1:='select DISTINCT 所属 from 邮编电话';
    LISTBOX1.Items.Clear ;



                  with qPOST do
                  begin
                  close;
                  sql.Clear ;
                  sql.Add(sql1);
                  Open ;
                  first;
                  if qPOST.RecordCount >0 then
                       begin
                                for I:=0 to  qPOST.RecordCount-1 do
                                  begin


                                           if fieldbyname('所属').AsString <>'' then
                                               begin
                                                 LISTBOX1.Items.Add(fieldbyname('所属').AsString);
                                                 
                                                end;

                                     qPOST.Next ;
                                  end;
                        
                      end;


end;
end;

procedure TBM_POSTF.FormCreate(Sender: TObject);
begin
int2;
end;

procedure TBM_POSTF.ListBox1Click(Sender: TObject);
VAR
 sql1:string;
begin
     sql1:='select * from 邮编电话 where 所属="'+LISTBOX1.Items.Strings[LISTBOX1.ItemIndex]+'"';

             with qPOST2 do
                  begin
                  close;
                  sql.Clear ;
                  sql.Add(sql1);
                  Open ;
                  StatusBar1.SimpleText :='共有'+ inttostr(qPOST2.recordcount) +'条记录!';;
              end;
end;

procedure TBM_POSTF.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
inherited;
  With DbGrid1 do
  begin
    if ((State = [gdSelected]) or (State = [gdSelected,gdFocused])) then
      begin
      Canvas.Font.Color := clYellow;
      Canvas.Brush.Color := clNavy;
      end
    else
      begin
      if DataCol mod 2 <> 0  then Canvas.Brush.Color := clWhite
      else Canvas.Brush.Color := $00EAEAEA;
      end;
    DefaultDrawColumnCell(Rect,DataCol,Column,State);
  end;
end;

procedure TBM_POSTF.SpeedButton1Click(Sender: TObject);
VAR
 sql1:string;
begin
   sql1:='select 所属,地区名称,邮政编码,电话区号 from 邮编电话 ';
    if edit1.Text <>'' then
    begin
      sql1:=sql1+'where 所属="'+edit1.Text +'"';
        if edit2.Text <>'' then sql1:=sql1+' and 地区名称="'+edit2.Text +'"';
        if edit3.Text <>'' then sql1:=sql1+' and 邮政编码="'+edit3.Text +'"';
        if edit4.Text <>'' then sql1:=sql1+' and 电话区号="'+edit4.Text +'"';
     end
     else
    ///////////////////////////
     if edit2.Text <>'' then
         begin
            sql1:=sql1+' where 地区名称="'+edit2.Text +'"';
         if edit3.Text <>'' then sql1:=sql1+' and 邮政编码="'+edit3.Text +'"';
         if edit4.Text <>'' then sql1:=sql1+' and 电话区号="'+edit4.Text +'"';
       end
       else//////////////////////
     if edit3.Text <>'' then
         begin
            sql1:=sql1+' where 邮政编码="'+edit3.Text +'"';
           if edit4.Text <>'' then sql1:=sql1+' and 电话区号="'+edit4.Text +'"';
        end
     else
     if  edit4.Text <>'' then sql1:=sql1+' where 电话区号="'+edit4.Text +'"';


             with qPOST2 do
                  begin
                  close;
                  sql.Clear ;
                  sql.Add(sql1);
                  Open ;
                  StatusBar1.SimpleText :='共有'+ inttostr(qPOST2.recordcount) +'条记录!';;
              end;

end;

procedure TBM_POSTF.SpeedButton2Click(Sender: TObject);
begin
close;
end;

procedure TBM_POSTF.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action:=cafree;
end;

procedure TBM_POSTF.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  canclose:=true;
end;

end.