userver.pas

是个办公系统,可以实现财务上的管理和人员的流动

unit Userver;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, Grids, DBGrids, ExtCtrls, ComCtrls, DBCtrls,
  Mask, ImgList;

type
  TfrmServer = class(TForm)
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    DBGrid1: TDBGrid;
    GroupBox5: TGroupBox;
    bbtnKeep: TBitBtn;
    bbtnVisit: TBitBtn;
    GroupBox4: TGroupBox;
    Label11: TLabel;
    Label4: TLabel;
    Label2: TLabel;
    GroupBox2: TGroupBox;
    Label3: TLabel;
    Label7: TLabel;
    Label6: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label1: TLabel;
    Label10: TLabel;
    GroupBox6: TGroupBox;
    HeaderControl1: THeaderControl;
    ComboBox1: TComboBox;
    TreeView1: TTreeView;
    Splitter1: TSplitter;
    Edit7: TEdit;
    ImageList1: TImageList;
    bbtnShowAll: TBitBtn;
    bbtnExit: TBitBtn;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    Edit11: TEdit;
    procedure bbtnVisitClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure TreeView1Click(Sender: TObject);
    procedure ComboBox1DropDown(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure bbtnShowAllClick(Sender: TObject);
    procedure bbtnExitClick(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure bbtnKeepClick(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmServer: TfrmServer;

implementation

uses Ucusserveradd, Userverchg, Userverchart, Uproserveradd, mydata,
  Uservicing;

{$R *.dfm}

procedure TfrmServer.bbtnVisitClick(Sender: TObject);
begin
  frmServiceVisit.Show;
end;

procedure TfrmServer.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=caFree;
end;

procedure TfrmServer.FormShow(Sender: TObject);
var h,j:integer;
    node1,node21,node22,node23,node3:ttreenode;
begin
with dm.AQArea do
  begin
    close;
    sql.Clear;
    sql.Add('select distinct(Area) from Customers,ProjectItem where Customers.CusName=ProjectItem.CustomName and status='''+'是'+'''');
    open;
  end;
for h:=1 to dm.AQArea.Recordcount do
  begin
    node1:=treeview1.Items.Add(nil,dm.AQArea.FieldValues['area']);
    node1.ImageIndex:=2;
    node1.SelectedIndex:=2;
    node21:=treeview1.Items.AddChild(node1,'A类客户');
    node21.ImageIndex:=1;
    node21.SelectedIndex:=1;
    node22:=treeview1.Items.AddChild(node1,'B类客户');
    node22.ImageIndex:=1;
    node22.SelectedIndex:=1;
    node23:=treeview1.Items.AddChild(node1,'C类客户');
    node23.ImageIndex:=1;
    node23.SelectedIndex:=1;
    with dm.AQCus do
      begin
        close;
        sql.Clear;
        sql.Add('select distinct cusname,opinions from service,customers where service.sername=customers.Cusname and area='''+dm.AQArea.FieldValues['area']+'''');
        open;
      end;
    for j:=1 to dm.AQCus.RecordCount do
      begin
        if (dm.AQCus.FieldValues['opinions']='很满意') or (dm.AQCus.FieldValues['opinions']='满意') then
          begin
            node3:=treeview1.Items.AddChild(node21,dm.AQCus.FieldValues['cusname']);
            node3.ImageIndex:=0;
            node3.SelectedIndex:=0;
          end
          else if dm.AQCus.FieldValues['opinions']='一般' then
            begin
             node3:=treeview1.Items.AddChild(node22,dm.AQCus.FieldValues['cusname']);
             node3.ImageIndex:=0;
             node3.SelectedIndex:=0;
            end
          else if dm.AQCus.FieldValues['opinions']='不好' then
            begin
              node3:=treeview1.Items.AddChild(node23,dm.AQCus.FieldValues['cusname']);
              node3.ImageIndex:=0;
              node3.SelectedIndex:=0;
            end;
            dm.AQCus.Next;
      end;
      dm.AQArea.Next;
  end;
end;

procedure TfrmServer.TreeView1Click(Sender: TObject);
var
 Tempstr,opinions1,opinions2:string;
begin
if treeview1.Selected.Level=0 then
  begin
  with dm.AQService do
    begin
     close;
     sql.Clear;
     sql.Add('select Service.* from Service,Customers where Service.SerName=Customers.CusName and Customers.Area='''+treeview1.Selected.Text+'''');
     open;
     dm.ATService.Clone(dm.AQService);
    end;
  end;
if treeview1.Selected.Level=1 then
  begin
    if treeview1.Selected.Text='A类客户' then
     begin
       opinions1:='满意' ;
       opinions2:='很满意' ;
     end
     else if treeview1.Selected.Text='B类客户' then
     begin
       opinions1:='一般';
       opinions2:='';
     end
     else if treeview1.Selected.Text='C类客户' then
     begin
       opinions1:='不好';
       opinions2:='';
     end;
  with dm.AQService do
    begin
     close;
     sql.Clear;
     sql.Add('select Service.* from customers,service where Customers.Cusname=Service.sername and Customers.Area='''+treeview1.Selected.Parent.Text+''' and (service.opinions='''+opinions1+''' or service.opinions='''+opinions2+''')');
     open;
     dm.ATService.Clone(dm.AQService);
    end;
  end;
if TreeView1.Selected.Level=2 then
 begin
   TempStr:=TreeView1.Selected.Parent.Text;
   if TempStr='A类客户' then
    begin
     opinions1:='满意';
       opinions2:='很满意';
    end
   else if TempStr='B类客户' then
    begin
     opinions1:='一般';
       opinions2:='';
    end
   else if TempStr='C类客户' then
    begin
       opinions1:='不好';
       opinions2:='';
    end;
   with dm.AQService do
    begin
     close;
     sql.Clear;
     sql.Add('select Service.* from customers,service where Customers.Cusname=Service.sername and Customers.Area='''+treeview1.Selected.Parent.Parent.Text+''' and (service.opinions='''+opinions1+''' or service.opinions='''+opinions2+''') and Service.SerName='''+TreeView1.Selected.Text+'''');
     open;
     dm.ATService.Clone(dm.AQService);
    end;
 end;
end;

procedure TfrmServer.ComboBox1DropDown(Sender: TObject);
begin
combobox1.Items.Clear;
with dm.AQAll do
  begin
    close;
    sql.Clear;
    sql.Add('select distinct(SerName) from Service where Opinions is not null');
    open;
  end;
while not dm.AQAll.eof do
  begin
  combobox1.Items.Add(dm.AQAll.FieldValues['SerName']);
  dm.AQAll.Next;
  end;
end;

procedure TfrmServer.ComboBox1Change(Sender: TObject);
var
  Tempstr:string;
  i:integer;
begin
  TempStr:=Trim(ComboBox1.Text);
  if TreeView1.Items.GetFirstNode.Text=TempStr then
  begin
    TreeView1.Items.GetFirstNode.Selected:=True;
  end
  else
  begin
    for i:=1 to TreeView1.Items.Count do
    begin
      if TreeView1.Items.Item[i].Text=TempStr then
      begin
        TreeView1.SetFocus;
        TreeView1.Items.Item[i].Selected :=True;
        Break;
      end
      else
        Continue;
    end;
  end;
end;

procedure TfrmServer.bbtnShowAllClick(Sender: TObject);
begin
 dm.ATService.Close;
 dm.ATService.Open;
end;

procedure TfrmServer.bbtnExitClick(Sender: TObject);
begin
  close;
end;

procedure TfrmServer.DBGrid1CellClick(Column: TColumn);
var
 Customer:string;
begin
  if DBGrid1.DataSource.DataSet.IsEmpty then Exit
  else
   Customer:=dm.ATService.FieldValues['Sername'];
  with dm.AQService do
   begin
     close;
     sql.Clear;
     sql.Add('select * from Customers,ProjectItem,Service');
     sql.Add('where Customers.Cusname=ProjectItem.Customname and Customers.Cusname=Service.Sername');
     sql.Add('and Sername='''+Customer+'''');
     open;
   if dm.AQService.RecordCount>0 then
    begin
      Edit1.Text:=dm.AQService.FieldValues['Cusname'];
      Edit2.Text:=dm.AQService.FieldValues['DeptName'];
      Edit3.Text:=dm.AQService.FieldValues['Telephone'];
      Edit4.Text:=dm.AQService.FieldValues['Email'];
      Edit5.Text:=dm.AQService.FieldValues['Area'];
      Edit6.Text:=dm.AQService.FieldValues['WebSite'];
      Edit8.Text:=dm.AQService.FieldValues['Address'];
      Edit9.Text:=dm.AQService.FieldValues['URLType'];
      Edit10.Text:=dm.AQService.FieldValues['CExpand'];
      Edit11.Text:=dm.AQService.FieldValues['URL'];
    end;
   end;
end;

procedure TfrmServer.bbtnKeepClick(Sender: TObject);
var
 Visit:Boolean;
begin
   if DBGrid1.DataSource.DataSet.IsEmpty then Exit;
   Visit:= not dm.ATService.FieldByName('VisitDate').IsNull;
  if Visit then frmServicing.Show;
end;

procedure TfrmServer.DBGrid1DblClick(Sender: TObject);
begin
  self.bbtnKeep.Click;
end;

end.