procedure bbtnOKClick(Sender: TObject);
procedure ComboBox2DropDown(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmLogIn: TfrmLogIn;
LogTimes:Integer=0;
DeptName:string;
LogInTime:TDateTime;
UserName:string;
implementation
uses Umain, MyData, UtodayWork;
{$R *.dfm}
procedure TfrmLogIn.bbtnCancelClick(Sender: TObject);
begin
Application.Terminate;
end;
procedure TfrmLogIn.ComboBox1DropDown(Sender: TObject);
begin
ComboBox1.Items.Clear;
with dm.AQDept do
begin
close;
sql.Clear;
sql.Add('select distinct department from Users');
begin
close;
sql.Clear;
sql.Add('delete from Service where SerName='''+CustomerName+'''');
ExecSQL;
end;
end;
end;
procedure TfrmCustomer.A1Click(Sender: TObject);
var
CustomerId :string;
begin
CustomerId :=dm.ATCustInfo.FieldValues['CustomerID'];
try
if Application.MessageBox('您确实要把此客户移到A区吗？','系统提示',MB_YESNO)=6 then
begin
with dm.AQCustInfo do
begin
close;
sql.Clear;
sql.Text :='update Customers set Intension=''一定'' where CustomerID='''+CustomerId+'''';
ExecSql;
end;
showmessage('成功移动到A区！');
self.FormShow(Sender);
end;
except
showmessage('移动到A区失败！');
end;
end;
procedure TfrmCustomer.B1Click(Sender: TObject);
var
CustomerId :string;
begin
CustomerId :=dm.ATCustInfo.FieldValues['CustomerID'];
try
if Application.MessageBox('您确实要把此客户移到B区吗？','系统提示',MB_YESNO)=6 then
begin
with dm.AQCustInfo do
begin
close;
sql.Clear;
sql.Text :='update Customers set Intension=''初定'' where CustomerID='''+CustomerId+'''';
ExecSql;
end;
showmessage('成功移动到B区！');
self.FormShow(Sender);
end;
except
showmessage('移动到B区失败！');
end;
end;
procedure TfrmCustomer.C1Click(Sender: TObject);
var
CustomerId :string;
be