pas_deputy.pas

比较详细的功能

unit pas_deputy;

interface

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

type
  TForm_deputy = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Edit_no: TEdit;
    Edit_name: TEdit;
    Edit_phone: TEdit;
    Edit_tel: TEdit;
    Edit_addr: TEdit;
    Label9: TLabel;
    Edit_remarks: TEdit;
    ToolBar1: TToolBar;
    select: TSpeedButton;
    ToolButton5: TToolButton;
    add: TSpeedButton;
    ToolButton7: TToolButton;
    selectevery: TSpeedButton;
    ToolButton3: TToolButton;
    valid: TSpeedButton;
    ToolButton1: TToolButton;
    unvalid: TSpeedButton;
    ToolButton2: TToolButton;
    setUnvalid: TSpeedButton;
    ToolButton4: TToolButton;
    setvalid: TSpeedButton;
    DBGrid: TDBGrid;

    procedure selecteverything();
    procedure selectvalid();
    procedure selectunvalid();

    procedure addClick(Sender: TObject);
    procedure selectClick(Sender: TObject);
    procedure selecteveryClick(Sender: TObject);
    procedure validClick(Sender: TObject);
    procedure unvalidClick(Sender: TObject);
    procedure setUnvalidClick(Sender: TObject);
    procedure setvalidClick(Sender: TObject);
    procedure DBGridCellClick(Column: TColumn);
    procedure DBGridDblClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_deputy: TForm_deputy;

implementation
      uses pas_dm;
{$R *.dfm}

procedure TForm_deputy.addClick(Sender: TObject);
var
   s:string;
begin
    if (edit_no.Text='') or (edit_name.Text='') or (edit_phone.Text='')
    then
    begin
        showmessage('编号/中文名/手机不能为空');
        exit;
    end;
    with pas_dm.DM.Query_deputy do
    begin
      try
          with pas_dm.DM.Query_deputy do
          begin
          Close;
          SQL.Clear;
          s:='insert into deputy(d_no,d_name,d_ename,d_phone,d_tel,d_addr,d_remarks,d_validorno) values('''+trim(edit_no.Text)+''','''+
                trim(edit_name.Text)+''','''','''+trim(edit_phone.Text)+''','''+
                trim(edit_tel.Text)+''','''+trim(edit_addr.Text)+''','''+trim(edit_remarks.Text)+''',1)';
                SQL.Add(s);
          ExecSQL;
          showmessage('添加 '+edit_name.Text+' 成功！');
          end;
          except
          showmessage('添加'+edit_name.Text+'失败！可能是编号重复');
      end;

      selectvalid;
end;
end;

procedure TForm_deputy.selecteverything;
begin
     with pas_dm.DM.Query_deputy do
  begin
    close;
    sql.Clear;
    sql.Add('select d_no 代理人编号,d_name 代理人姓名,d_phone 代理人手机,d_tel 代理人电话,d_addr 代理人地址,d_remarks 代理人备注 from deputy ');
    open;
  end;
end;

procedure TForm_deputy.selectunvalid;
begin
   with pas_dm.DM.Query_deputy do
  begin
    close;
    sql.Clear;
    sql.Add('select d_no 代理人编号,d_name 代理人姓名,d_phone 代理人手机,d_tel 代理人电话,d_addr 代理人地址,d_remarks 代理人备注 from deputy where d_validorno=0 ');
    open;
  end;
end;

procedure TForm_deputy.selectvalid;
begin
  with pas_dm.DM.Query_deputy do
  begin
    close;
    sql.Clear;
    sql.Add('select d_no 代理人编号,d_name 代理人姓名,d_phone 代理人手机,d_tel 代理人电话,d_addr 代理人地址,d_remarks 代理人备注 from deputy where d_validorno=1 ');
    open;
  end;


end;

procedure TForm_deputy.selectClick(Sender: TObject);
var
  s:string;
begin
     if(trim(edit_name.Text)<>'') then
     begin
     s:= ' where d_name like ''%'+trim(edit_name.Text)+'%'' ';
     end
     else
     begin
     s:='';
     end;
     with pas_dm.DM.Query_deputy do
     begin
        close;
        sql.Clear;
        sql.Add(' select d_no as 代理人编号,'+
          ' d_name as 代理人姓名 ,'+
          ' d_phone as 手机,'+
          ' d_tel as 电话,'+
          ' d_addr as 地址,'+
          ' d_remarks as 备注'+
          '   from deputy '+s);
        open;
     end;
end;


procedure TForm_deputy.selecteveryClick(Sender: TObject);
begin
   selecteverything();
end;

procedure TForm_deputy.validClick(Sender: TObject);
begin
  selectvalid();
end;

procedure TForm_deputy.unvalidClick(Sender: TObject);
begin
   selectunvalid()
end;

procedure TForm_deputy.setUnvalidClick(Sender: TObject);
var
  s:string;
begin
   with pas_dm.DM.Query_deputy do
   begin
   if IDOK=messagebox(handle,pchar('编号为 '+dbgrid.Fields[0].AsString+' 的代理人将被设为无效'),'警告', MB_OKCANCEL)
   then
   begin
   try
   s:=dbgrid.Fields[0].AsString;
   Close;
   SQL.Clear;
   SQL.Add('update deputy set d_validorno=0 where d_no='''+s+'''');
   ExecSQL;
   except
      showmessage('出错');
   end;
   if  RowsAffected=1 then
   begin
      showmessage(s+'设置无效成功');
   end;
   end;
   end;
   selectvalid();
end;

procedure TForm_deputy.setvalidClick(Sender: TObject);
var
  s:string;
begin
   with pas_dm.DM.Query_deputy do
   begin
   if IDOK=messagebox(handle,pchar('编号为 '+dbgrid.Fields[0].AsString+' 的代理人将被设为有效'),'警告', MB_OKCANCEL)
   then
   begin
   try
   s:=dbgrid.Fields[0].AsString;
   Close;
   SQL.Clear;
   SQL.Add('update deputy set d_validorno=1 where d_no='''+s+'''');
   ExecSQL;
   except
      showmessage('出错');
   end;
   if  RowsAffected=1 then
   begin
      showmessage(s+'设置有效成功');
   end;
   end;
   end;
   selectvalid();
end;


procedure TForm_deputy.DBGridCellClick(Column: TColumn);
begin
with pas_dm.DM.Query_deputy do
   begin
   if dbgrid.FieldCount=0 then
   begin
    showmessage('没有打开数据库');
    exit;
   end;
    if dbgrid.Fields[0].AsString='' then
    begin
    showmessage('数据库没有数据');
    exit;
    end;
    edit_no.Text:=Fields.Fields[0].AsString;
    edit_name.Text:=Fields.Fields[1].AsString;
    edit_phone.Text:=Fields.Fields[2].AsString;
    edit_tel.Text:=Fields.Fields[3].AsString;
    edit_addr.Text:=Fields.Fields[4].AsString;
    edit_remarks.Text:=Fields.Fields[5].AsString;
  end;
 end;

 
procedure TForm_deputy.DBGridDblClick(Sender: TObject);
var
  s: string;
begin 
with pas_dm.DM.Query_deputy do
 begin
 if dbgrid.FieldCount=0 then
   begin
    showmessage('没有打开数据库');
    exit;
   end;
    if dbgrid.Fields[0].AsString='' then
    begin
    showmessage('数据库没有数据');
    exit;
    end;
    s:= dbgrid.Fields[0].AsString;
 end;
   with pas_dm.DM.AQ1 do
   begin
    close;
    sql.Clear;
    sql.Add('select d_name,valid= case d_validorno when ''1'' then ''有效'' else ''无效'' end from deputy where d_no='''+trim(s)+'''');
    open;
    showmessage(trim(dm.AQ1.Fields.Fields[0].AsString)+' 是'+dm.AQ1.Fields.Fields[1].AsString+'的');
    close;
    sql.Clear;
 end;
end;

procedure TForm_deputy.FormShow(Sender: TObject);
begin
   selectvalid();
end;

end.