unit_enterprise.pas

来自「美汇美容网网站管理系统」· PAS 代码 · 共 497 行 · 第 1/2 页

    try
      dm.adoc.open;
    except
      application.MessageBox('连接数据库失败.'+#13+'请进入系统设置,设置ODBC.','提示',MB_OK);
      close;
      exit;
    end;
  end;

  try
    dm.atProvinceCity.Open;
  except
    application.MessageBox('打开省市表失败.'+#13+'请与软件作者联系.','提示',MB_OK);
    close;
    exit;
  end;

  try
    with dm.adsEnterprise do
    begin
      close;
      commandtext:='SELECT * From Enterprise ORDER BY iNo DESC LIMIT 0,200';
      open;
    end;
  except
    application.MessageBox('打开经销商表失败.'+#13+'请与软件作者联系.','提示',MB_OK);
    close;
    exit;
  end;

  try
    with dm.atOrderItem do
    begin
      open;
    end;
  except
    application.MessageBox('打开订单明细表失败.'+#13+'请与软件作者联系.','提示',MB_OK);
    close;
    exit;
  end;
  
end;

procedure TForm_Enterprise.tbCloseClick(Sender: TObject);
begin
  close;
end;

procedure TForm_Enterprise.DBGrid2DblClick(Sender: TObject);
begin
  if dbgrid2.DataSource.DataSet.RecordCount>0 then
  begin
    application.CreateForm(TForm_Order,form_Order);
    AnimateWindow(form_Order.Handle,500,AW_BLEND);

  {参数说明：
  1。hwnd : 一个你要显示窗体的句柄。
  2。dwTime : 完成显示操作的时间。（一般为500-1000，你可以自己调　　　　　　　　节）
　3。dwFlags :　这是一个关键的东东，它决定了你的子窗体弹出的方　　　　　　　　　式。
　dwFlags其中包括9种基本弹出方式，当然你可以组合它们使用，下面我就对者9种方法做个简单的介绍：
　a. AW_SLIDE : 表示用滑动方式显示；
　b. AW_BLEND : 表示用淡出或淡入方式显示；(Windows 2000菜单显示)
　c. AW_CENTER : 表示窗体从小窗体沿对角线扩大至窗体定义的大小；
　d. AW_HIDE : 顾名思义，就是隐藏窗体；
　e. AW_HOR_POSITIVE :窗体从左向右生成生成显示
　f. AW_HOR_NEGATIVE :窗体从右向左生成生成显示
　g. AW_VER_NEGATIVE :窗体从下向上生成生成显示
　h: AW_VER_POSITIVE :窗体从上向下生成生成显示
　i: AW_ACTIVATE :顾名思义，就是激活窗体；}

  form_Order.Show;
  form_Order.Visible:=false;
  form_Order.ShowModal;
  form_Order.Free;
  end;
end;

procedure TForm_Enterprise.tbAddClick(Sender: TObject);
begin
  application.CreateForm(TForm_Enterprise_manage,form_Enterprise_manage);
  AnimateWindow(form_Enterprise_manage.Handle,500,AW_BLEND);

  {参数说明：
  1。hwnd : 一个你要显示窗体的句柄。
  2。dwTime : 完成显示操作的时间。（一般为500-1000，你可以自己调　　　　　　　　节）
　3。dwFlags :　这是一个关键的东东，它决定了你的子窗体弹出的方　　　　　　　　　式。
　dwFlags其中包括9种基本弹出方式，当然你可以组合它们使用，下面我就对者9种方法做个简单的介绍：
　a. AW_SLIDE : 表示用滑动方式显示；
　b. AW_BLEND : 表示用淡出或淡入方式显示；(Windows 2000菜单显示)
　c. AW_CENTER : 表示窗体从小窗体沿对角线扩大至窗体定义的大小；
　d. AW_HIDE : 顾名思义，就是隐藏窗体；
　e. AW_HOR_POSITIVE :窗体从左向右生成生成显示
　f. AW_HOR_NEGATIVE :窗体从右向左生成生成显示
　g. AW_VER_NEGATIVE :窗体从下向上生成生成显示
　h: AW_VER_POSITIVE :窗体从上向下生成生成显示
　i: AW_ACTIVATE :顾名思义，就是激活窗体；}

  form_Enterprise_manage.caption:='新增经销商';
  form_enterprise_manage.manage_type:='add';
  form_enterprise_manage.edUserName.text:='';
  form_enterprise_manage.edPassword.text:='';
  form_enterprise_manage.edCheckPassword.text:='';
  form_enterprise_manage.edName.text:='';
  form_enterprise_manage.edPrincipal.text:='';
  form_enterprise_manage.edPhone.text:='';
  form_enterprise_manage.edEmail.text:='';
  form_enterprise_manage.edAddress.text:='';
  form_enterprise_manage.cbbProvince.text:='';
  form_enterprise_manage.cbbCity.text:='';
  form_Enterprise_manage.Show;
  form_Enterprise_manage.Visible:=false;
  form_Enterprise_manage.ShowModal;
  form_Enterprise_manage.Free;

end;

procedure TForm_Enterprise.tbEditClick(Sender: TObject);
begin
  application.CreateForm(TForm_Enterprise_manage,form_Enterprise_manage);
  AnimateWindow(form_Enterprise_manage.Handle,500,AW_BLEND);

  {参数说明：
  1。hwnd : 一个你要显示窗体的句柄。
  2。dwTime : 完成显示操作的时间。（一般为500-1000，你可以自己调　　　　　　　　节）
　3。dwFlags :　这是一个关键的东东，它决定了你的子窗体弹出的方　　　　　　　　　式。
　dwFlags其中包括9种基本弹出方式，当然你可以组合它们使用，下面我就对者9种方法做个简单的介绍：
　a. AW_SLIDE : 表示用滑动方式显示；
　b. AW_BLEND : 表示用淡出或淡入方式显示；(Windows 2000菜单显示)
　c. AW_CENTER : 表示窗体从小窗体沿对角线扩大至窗体定义的大小；
　d. AW_HIDE : 顾名思义，就是隐藏窗体；
　e. AW_HOR_POSITIVE :窗体从左向右生成生成显示
　f. AW_HOR_NEGATIVE :窗体从右向左生成生成显示
　g. AW_VER_NEGATIVE :窗体从下向上生成生成显示
　h: AW_VER_POSITIVE :窗体从上向下生成生成显示
　i: AW_ACTIVATE :顾名思义，就是激活窗体；}

  form_Enterprise_manage.caption:='修改经销商';
  form_enterprise_manage.manage_type:='edit';
  form_enterprise_manage.edUserName.text:=dbeUserName.Text;
  form_enterprise_manage.edPassword.text:='';
  form_enterprise_manage.edCheckPassword.text:='';
  form_enterprise_manage.edName.text:=dbeName.Text;
  form_enterprise_manage.edPrincipal.text:=dbePrin.Text;
  form_enterprise_manage.edPhone.text:=dbePhone.Text;
  form_enterprise_manage.edEmail.text:=dbeEmail.Text;
  form_enterprise_manage.edAddress.text:=dbeAddress.Text;
  form_enterprise_manage.cbbProvince.text:=format('%s.%s',[inttostr(dm.adsEnterprise.fieldvalues['iProvince']),dbeProvince.Text]);
  form_enterprise_manage.cbbCity.text:=format('%s.%s',[inttostr(dm.adsEnterprise.fieldvalues['iCity']),dbeCity.Text]);
  form_Enterprise_manage.Show;
  form_Enterprise_manage.Visible:=false;
  form_Enterprise_manage.ShowModal;
  form_Enterprise_manage.Free;

end;

procedure TForm_Enterprise.tbDelClick(Sender: TObject);
begin
    if dm.adsEnterprise.RecordCount>0 then
    if application.MessageBox('你确定要删除经销商吗？'+#13+'[注意] 这个经销商所下的所有订单都将被删除.','提示',MB_YESNO)=IDYES then
        dm.adsEnterprise.Delete;
end;

procedure TForm_Enterprise.N11Click(Sender: TObject);
begin
  with dm.adsEnterprise do
  begin
    close;
    commandtext:='select * from enterprise';
    open;
  end;
end;

procedure TForm_Enterprise.tbListClick(Sender: TObject);
begin
  pcEnterprise.ActivePage:=tsList;
end;

procedure TForm_Enterprise.DBGrid1DblClick(Sender: TObject);
begin
  if dbgrid1.DataSource.DataSet.RecordCount>0 then
  begin
    with dm.adsOrder do
    begin
      close;
      commandtext:='select * from enterprise_order where iEnterpriseNo='+inttostr(dbgrid1.DataSource.DataSet.FieldValues['iNo']);
      open;
    end;
    pcEnterprise.ActivePage:=tsParticular;
  end;
end;

procedure TForm_Enterprise.N7Click(Sender: TObject);
begin
  pcEnterprise.ActivePage:=tslist;
  application.CreateForm(TForm_Locate,Form_Locate);
  AnimateWindow(Form_Locate.Handle,500,AW_BLEND);

  {参数说明：
  1。hwnd : 一个你要显示窗体的句柄。
  2。dwTime : 完成显示操作的时间。（一般为500-1000，你可以自己调　　　　　　　　节）
　3。dwFlags :　这是一个关键的东东，它决定了你的子窗体弹出的方　　　　　　　　　式。
　dwFlags其中包括9种基本弹出方式，当然你可以组合它们使用，下面我就对者9种方法做个简单的介绍：
　a. AW_SLIDE : 表示用滑动方式显示；
　b. AW_BLEND : 表示用淡出或淡入方式显示；(Windows 2000菜单显示)
　c. AW_CENTER : 表示窗体从小窗体沿对角线扩大至窗体定义的大小；
　d. AW_HIDE : 顾名思义，就是隐藏窗体；
　e. AW_HOR_POSITIVE :窗体从左向右生成生成显示
　f. AW_HOR_NEGATIVE :窗体从右向左生成生成显示
　g. AW_VER_NEGATIVE :窗体从下向上生成生成显示
　h: AW_VER_POSITIVE :窗体从上向下生成生成显示
　i: AW_ACTIVATE :顾名思义，就是激活窗体；}

  Form_Locate.Show;
  Form_Locate.Visible:=false;
  Form_Locate.ShowModal;
  dm.adsEnterprise.Locate('vName',Form_Locate.edit1.text,[loPartialKey]);
  Form_Locate.Free;
end;

procedure TForm_Enterprise.N8Click(Sender: TObject);
begin
  pcEnterprise.ActivePage:=tslist;
  application.CreateForm(TForm_Enterprise_Search,Form_Enterprise_Search);
  AnimateWindow(Form_Enterprise_Search.Handle,500,AW_BLEND);

  {参数说明：
  1。hwnd : 一个你要显示窗体的句柄。
  2。dwTime : 完成显示操作的时间。（一般为500-1000，你可以自己调　　　　　　　　节）
　3。dwFlags :　这是一个关键的东东，它决定了你的子窗体弹出的方　　　　　　　　　式。
　dwFlags其中包括9种基本弹出方式，当然你可以组合它们使用，下面我就对者9种方法做个简单的介绍：
　a. AW_SLIDE : 表示用滑动方式显示；
　b. AW_BLEND : 表示用淡出或淡入方式显示；(Windows 2000菜单显示)
　c. AW_CENTER : 表示窗体从小窗体沿对角线扩大至窗体定义的大小；
　d. AW_HIDE : 顾名思义，就是隐藏窗体；
　e. AW_HOR_POSITIVE :窗体从左向右生成生成显示
　f. AW_HOR_NEGATIVE :窗体从右向左生成生成显示
　g. AW_VER_NEGATIVE :窗体从下向上生成生成显示
　h: AW_VER_POSITIVE :窗体从上向下生成生成显示
　i: AW_ACTIVATE :顾名思义，就是激活窗体；}

  Form_Enterprise_Search.Show;
  Form_Enterprise_Search.Visible:=false;
  Form_Enterprise_Search.ShowModal;
  Form_Enterprise_Search.Free;
end;

end.