ucusserveradd.pas

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

unit Ucusserveradd;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ComCtrls, DBCtrls;

type
  TfrmServercusadd = class(TForm)
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Label4: TLabel;
    Label8: TLabel;
    Label11: TLabel;
    Label6: TLabel;
    bbtn_cusserveradd: TBitBtn;
    bbtn_cusservercancle: TBitBtn;
    DBComboBox1: TDBComboBox;
    DBComboBox2: TDBComboBox;
    DBMemo1: TDBMemo;
    DateTimePicker1: TDateTimePicker;
    ComboBox1: TComboBox;
    Label1: TLabel;
    DBComboBox3: TDBComboBox;
    ComboBox4: TComboBox;
    procedure FormShow(Sender: TObject);
    procedure bbtn_cusserveraddClick(Sender: TObject);
    procedure bbtn_cusservercancleClick(Sender: TObject);
    procedure DBComboBox1Change(Sender: TObject);
    procedure DBComboBox1DropDown(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure ComboBox1DropDown(Sender: TObject);
    procedure DBComboBox3DropDown(Sender: TObject);
    procedure DateTimePicker1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmServercusadd: TfrmServercusadd;
  opinions:string;
  visitdate:string;

implementation

uses mydata, Userver;

{$R *.dfm}

procedure TfrmServercusadd.FormShow(Sender: TObject);
begin
dm.AQServeradd.Cancel;
dm.AQserveradd.Append;
datetimepicker1.Date:=date();
visitdate:=datetostr(datetimepicker1.Date);
combobox1.Text:='';
end;

procedure TfrmServercusadd.bbtn_cusserveraddClick(Sender: TObject);
begin
if (dbcombobox3.Text='') or (combobox4.Text='') or (dbcombobox1.Text='') or (dbmemo1.Text='') then
  begin
  showmessage('请将信息填写完整！');
  exit;
  end;
dm.AQserveradd.Post;
with dm.AQAll do
  begin
    close;
    sql.Clear;
    sql.Add('update service set opinions='''+combobox4.Text+''',visitdate='''+visitdate+''' where sername='''+dbcombobox1.Text+'''');
    ExecSQL;
  end;
with dm.AQAll do
  begin
    close;
    sql.Clear;
    sql.Add('update service set visitdate='''+visitdate+''' where serno='''+dbcombobox2.Text+'''');
    execsql;
  end;
if MessageDlg('添加成功,是否继续添加？', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
  begin
  dm.AQserveradd.Append;
  combobox1.Text:='';
  combobox4.Text:='';
  end
 else
  begin
   if opinions<>combobox4.Text then
     begin
       frmserver.TreeView1.Items.Clear;
       frmserver.FormShow(sender);
     end;
  self.Close;
  end;
end;


procedure TfrmServercusadd.bbtn_cusservercancleClick(Sender: TObject);
begin
dm.AQserveradd.Cancel;
self.close;
end;

procedure TfrmServercusadd.DBComboBox1Change(Sender: TObject);
begin
with dm.AQAll do
  begin
    close;
    sql.Clear;
    sql.Add('select distinct cusname,opinions from customers,service where service.sername=customers.customerid and customerid='''+dbcombobox1.Text+'''');
    open;
  end;
if not dm.AQAll.Eof then
  begin
  opinions:=dm.AQAll.FieldValues['opinions'];
  combobox1.Text:=dm.AQAll.FieldValues['cusname'];
  //dbcombobox4.Items.Text:=dm.AQAll.FieldValues['opinions'] ;
  combobox4.Text:=dm.AQAll.FieldValues['opinions'];
  end;
end;

procedure TfrmServercusadd.DBComboBox1DropDown(Sender: TObject);
begin
dbcombobox1.Items.Clear;
with dm.AQAll do
  begin
    close;
    sql.Clear;
    sql.Add('select customerid from customers ');
    open;
  end;
while not dm.AQAll.Eof do
  begin
    dbcombobox1.Items.Add(dm.AQAll.FieldValues['customerid']);
    dm.AQAll.Next;
  end;
end;

procedure TfrmServercusadd.ComboBox1Change(Sender: TObject);
begin
with dm.AQAll do
  begin
    close;
    sql.Clear;
    sql.Add('select customerid,opinions from service,customers where service.sername=customers.customerid and cusname='''+combobox1.Text+'''');
    open;
  end;
if not dm.AQAll.Eof then
begin
opinions:=dm.AQAll.FieldValues['opinions'];
dbcombobox1.Text:=dm.AQAll.FieldValues['customerid'];
combobox4.Text:=dm.AQAll.fieldvalues['opinions'];
end
else
begin
showmessage('此客户不存在！');
combobox1.SetFocus;
end;
end;

procedure TfrmServercusadd.ComboBox1DropDown(Sender: TObject);
begin
combobox1.Items.Clear;
with dm.AQAll do
  begin
    close;
    sql.Clear;
    sql.Add('select cusname from customers ');
    open;
  end;
while not dm.AQAll.Eof do
  begin
    combobox1.Items.Add(dm.AQAll.FieldValues['cusname']);
    dm.AQAll.Next;
  end;
end;

procedure TfrmServercusadd.DBComboBox3DropDown(Sender: TObject);
begin
dbcombobox3.Items.Clear;
with dm.AQAll do
  begin
    close;
    sql.Clear;
    sql.Add('select proname from projectitem where customname='''+combobox1.Text+'''');
    open;
  end;
while not dm.AQAll.Eof do
  begin
    dbcombobox3.Items.Add(dm.AQAll.FieldValues['proname']);
    dm.AQAll.Next;
  end;
end;

procedure TfrmServercusadd.DateTimePicker1Change(Sender: TObject);
begin
visitdate:=datetostr(datetimepicker1.Date);
end;

end.