depts.pas

三層源碼,DELPHI寫的三層源碼,三層源碼,

unit depts;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, Grids, DBGrids, xpButton, StdCtrls,ComCtrls, Menus;

type
  Tdept = class(TForm)
    Bevel1: TBevel;
    DBGrid1: TDBGrid;
    Label1: TLabel;
    ListBox1: TListBox;
    Label2: TLabel;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    StatusBar1: TStatusBar;
    xpButton1: TxpButton;
    xpButton2: TxpButton;
    xpButton3: TxpButton;
    xpButton4: TxpButton;
    xpButton5: TxpButton;
    xpButton6: TxpButton;
    xpButton7: TxpButton;
    procedure FormShow(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure xpButton1Click(Sender: TObject);
    procedure xpButton2Click(Sender: TObject);
    procedure xpButton3Click(Sender: TObject);
    procedure xpButton4Click(Sender: TObject);
    procedure xpButton5Click(Sender: TObject);
    procedure xpButton6Click(Sender: TObject);
    procedure xpButton7Click(Sender: TObject);
  private
    lstring,pstring:string;
    procedure refreshlist;
    procedure refreshlists;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dept: Tdept;
                           // Q_get_worktype_list
implementation
uses sldata,shareunit;
{$R *.DFM}

procedure tdept.refreshlist;
begin
listbox1.Clear;
sl_data.getdeptlist(listbox1.items);
sl_data.querys.close;
end;

procedure tdept.refreshlists;
var msg:string;
begin
if lstring<>'' then
 begin
  with tstringlist.create do
     try
     add(makeparams('operid',inttostr(Query_dept)));
     add(makeparams('funid',inttostr(public_infor)));
     add(makeparams('tuid',lstring));
     msg:=text;
     finally
     free;
     end;
  sl_data.querys.data:=sl_data.querys.datarequest(msg);
  end;
end;

procedure Tdept.FormShow(Sender: TObject);
begin
refreshlist;
end;

procedure Tdept.FormPaint(Sender: TObject);
begin
sl_data.formonpaint(self);
end;

procedure Tdept.ListBox1Click(Sender: TObject);
begin
if listbox1.SelCount<>0 then
   begin
   lstring:=listbox1.items.strings[listbox1.ItemIndex];
   statusbar1.Panels.items[0].Text:=lstring;
   statusbar1.Panels.items[1].Text:='';
   refreshlists;
   end;
end;

procedure Tdept.DBGrid1CellClick(Column: TColumn);
begin
if sl_data.querys.Active then
if sl_data.querys.recordcount>0 then
   begin
   pstring:=dbgrid1.fields[0].AsString;
   statusbar1.Panels.items[1].Text:=pstring;
   end;
end;

procedure Tdept.xpButton1Click(Sender: TObject);
var msg,s:String;
begin
s:=inputbox('增加部门','请输入部门名称:','');
if s<>'' then
  begin
  with tstringlist.create do
    try
    add(makeparams('tuid',s));
    msg:=text;
    finally
    free;
    end;
  if sl_data.dept_model(public_add,msg) then
    begin
    showmessage('部门添加成功!');
    refreshlist;
    end;
  end;
end;

procedure Tdept.xpButton2Click(Sender: TObject);
var s,msg:string;
begin
if lstring<>'' then
s:=inputbox('修改部门名称','请输入修改後的名称:',lstring);
if s<>lstring then
   begin
    with tstringlist.create do
      try
      add(makeparams('tolduid',lstring));
      add(makeparams('tnewuid',s));
      msg:=text;
      finally
      free;
      end;
    if sl_data.dept_model(public_modify,msg) then
      begin
      showmessage('部门修改成功!');
      refreshlist;
      end;
   end;
end;

procedure Tdept.xpButton3Click(Sender: TObject);
var msg:string;
begin
if lstring<>'' then
if messagebox(handle,pchar('是否要删除部门名称为:'+lstring+'的记录'),pchar('提示'),1)=1 then
   begin
    with tstringlist.create do
      try
      add(makeparams('tuid',lstring));
      msg:=text;
      finally
      free;
      end;
    if sl_data.dept_model(public_del,msg) then
      begin
      showmessage('部门删除成功!');
      refreshlist;
      end;
   end;
end;

procedure Tdept.xpButton4Click(Sender: TObject);
var s,msg:string;
begin
if lstring<>'' then
s:=inputbox('复制部门:'+lstring,'请输入复制後的部门名称:',lstring);
if s<>lstring then
   begin
    with tstringlist.create do
      try
      add(makeparams('tnewuid',s));
      add(makeparams('tolduid',lstring));
      msg:=text;
      finally
      free;
      end;
    if sl_data.dept_model(public_copy,msg) then
      begin
      showmessage('部门复制成功!');
      refreshlist;
      end;
   end;
end;

procedure Tdept.xpButton5Click(Sender: TObject);
var s,msg:String;
begin
if lstring<>'' then
  begin
  s:=inputbox('增加部门工种','请输入要添加到部门:'+lstring+' 的工种名称:','');
  if s<>'' then
     begin
      with tstringlist.create do
        try
        add(makeparams('tuid',s));
        add(makeparams('tdept',lstring));
        msg:=text;
        finally
        free;
        end;
      if sl_data.dept_model(public_add_temp,msg) then
        begin
        showmessage('工种添加成功!');
        refreshlists;
        end;
     end;
  end;
end;

procedure Tdept.xpButton6Click(Sender: TObject);
var s,msg:string;
begin
if (lstring<>'')and(pstring<>'')then
s:=inputbox('修改部门:'+lstring+'的工种名称','请输入修改後的工种名称:',pstring);
if s<>pstring then
   begin
    with tstringlist.create do
      try
      add(makeparams('tnewuid',s));
      add(makeparams('tolduid',pstring));
      add(makeparams('tdept',lstring));
      msg:=text;
      finally
      free;
      end;
    if sl_data.dept_model(public_clear_temp,msg) then
      begin
      showmessage('工种修改成功!');
      refreshlists;
      end;
   end;
end;

procedure Tdept.xpButton7Click(Sender: TObject);
var msg:string;
begin
if (lstring<>'')and(pstring<>'')then
   begin
    with tstringlist.create do
      try
      add(makeparams('tuid',pstring));
      add(makeparams('tdept',lstring));
      msg:=text;
      finally
      free;
      end;
    if sl_data.dept_model(public_del_temp,msg) then
      begin
      showmessage('工种删除成功!');
      refreshlists;
      end;
   end;
end;

end.