main.pas

适合行业为眼镜业

        end;
        8:   //委托
        begin
        end;
        end;
    end;
end;

procedure Tfrm_Main.Cmd_SaleClick(Sender: TObject);
begin
    frm_Main.Panel_Title.Caption:='【连锁管理系统】->【销售管理】';
    Image_Title.Top:=Cmd_Sale.Top +7;
    TabSheet1.TabVisible:=False;
    TabSheet2.TabVisible:=True;
    TabSheet3.TabVisible:=False;
    TabSheet4.TabVisible:=False;
    TabSheet5.TabVisible:=False;


    ListView1.Visible:=False;
    ListView2.Visible:=True;
    ListView3.Visible:=False;
    ListView4.Visible:=False;

end;

procedure Tfrm_Main.ListView2Click(Sender: TObject);
var i:integer;
begin
    if listview2.Selected <> nil then
    begin
    ///ydy 2004-5-20 modify
    i := listview2.Selected.Index;
        if  listview2.Items[i].Caption = '销售合同' then
        begin
            frm_Sale_Contract:=Tfrm_Sale_Contract.Create(self);
            frm_Sale_Contract.ShowModal;
            frm_Sale_Contract.Free;
            exit;
        end;
        if  listview2.Items[i].Caption = '库存状况' then
        begin
        end;
  end;
end;

procedure Tfrm_Main.ListView3Click(Sender: TObject);
begin
    if listview3.Selected <> nil then
    begin
      if loginlock[listview3.Selected.Index+listview1.Items.Count]=0 then exit;
        case listview3.ItemIndex of
        0:  //非运营性出库
        begin
            Public_Do:='';
            Public_Do:='Storage_Umanage_Fad';
            Public_Do_Result:='';
            frm_Umanage_Fad:=Tfrm_Umanage_Fad.Create(self);
            frm_Umanage_Fad.ShowModal;
            frm_Umanage_Fad.Free;
        end;
        1:
        begin
           Public_Do:='instock_0001';  //入库
           Public_Do_Result:='';
           frmin_stock:=Tfrmin_stock.Create(self);
           frmin_stock.ShowModal;
           frmin_stock.Free;
        end;
        2: //商品报损
        begin
          Public_Do:='';
          Public_Do:='damage_0001';
          fmscrap:=tfmscrap.Create(self);
          fmscrap.ShowModal;
          fmscrap.Free;
        end;
        3:
        begin
          Public_Do:='';
          Public_Do:='Overflow_0001';
          fmOverflow:=tfmOverflow.Create(self);
          fmOverflow.ShowModal;
          fmOverflow.Free;
        end;
        4:  //套餐定义
        begin
          public_do:='';
          public_do:='flatnew';  
          fmflat:=tfmflat.Create(self);
          fmflat.ShowModal;
          fmflat.Free;  
        end;
        5:
        begin   //库存盘点
          Public_Do:='check_001';  //盘点
          fmcheck:=tfmcheck.Create(self);
          fmcheck.ShowModal;
          fmcheck.Free;
        end;
        6:  //库存状况
        begin
          try
          frmstockstates:=Tfrmstockstates.create(self);
          frmstockstates.ShowModal;
          finally
          frmstockstates.Free;
          end;
        end;
        7:     // 预警管理
        begin
          fm_limit_warning:=tfm_limit_warning.Create(self);
          fm_limit_warning.ShowModal;
          fm_limit_warning.Free;
        end;
        8:  //上下限管理
        begin
            fmstockwarnlimit:=Tfmstockwarnlimit.Create(self);
            fmstockwarnlimit.ShowModal;
            fmstockwarnlimit.Free;
        end;
        9:  //价格管理
        begin
          fmsalemoney:=Tfmsalemoney.Create(self);
          fmsalemoney.ShowModal;
          fmsalemoney.Free;
        end;
        10:  //镜片矩形分布
        begin
          fmGlassStaff:=TfmGlassStaff.Create(self);
          fmGlassStaff.ShowModal;
          fmGlassStaff.Free;
        end;
        11:  //赠送商品管理
        begin
          Public_Do:='';
          Public_Do:='new';
          Public_Do_Result:='';
          fmZSmanager:=TfmZSmanager.Create(self);
          fmZSmanager.ShowModal;
          fmZSmanager.Free;
        end;
        12:  //库存退货
        begin
          Public_Do:='';
          FmCancel:=tFmCancel.Create(self);
          FmCancel.ShowModal;
          FmCancel.Free;
        end;
        13:  //财务退货
        begin
          Public_Do:='';
          fmfinanceUnpos:=tfmfinanceUnpos.Create(self);
          fmfinanceUnpos.ShowModal;
          fmfinanceUnpos.Free;
        end;
        end;
    end;
end;

procedure Tfrm_Main.ListView4Click(Sender: TObject);
begin
    if listview4.Selected <> nil then
    begin
      if loginlock[listview4.Selected.Index+listview3.Items.Count+lviewbatch.Items.Count+listview1.Items.Count ]=0 then exit;
        case listview4.ItemIndex of
        0:
        begin
          fmbatchguest:=tfmbatchguest.Create(self);
          try
           fmbatchguest.ShowModal;
          finally
           fmbatchguest.Free;
          end;
        end;
        1:
        begin
          frmzyll:=tfrmzyll.Create(self);
          frmzyll.ShowModal;
          frmzyll.Free;
        end;
        2:
        begin
          fmwldw:=tfmwldw.Create(self);
          fmwldw.ShowModal;
          fmwldw.free;
        end;
        3:
        begin
          fmBatchmanager:=tfmBatchmanager.Create(self);
          fmBatchmanager.ShowModal;
          fmBatchmanager.Free; 
        end;
        4:
        begin
            
         frmsysteminit:=tfrmsysteminit.Create(self);
         frmsysteminit.ShowModal;
         frmsysteminit.Free;    
        end;
        5:
        begin
          fmBasegrid:=TfmBasegrid.Create(self);
          fmBasegrid.ShowModal;
          fmBasegrid.Free;
        end;
        7:
        begin
          fm_company:=Tfm_company.Create(self);
          fm_company.ShowModal;
          fm_company.Free;
        end;
        8:
        begin
          fmBcJg:=tfmBcJg.Create(self);
          fmBcJg.ShowModal;
          fmBcJg.Free;
        end;
        9:
        begin
          fmBcap:=tfmBcap.Create(self);
          fmBcap.ShowModal;
          fmBcap.Free;
        end;
        10:
        begin
          frmkqsj:=tfrmkqsj.Create(self);
          frmkqsj.ShowModal;
          frmkqsj.Free;
        end;
        11:
        begin
          fmKqManager:=tfmKqManager.Create(self);
          fmKqManager.ShowModal;
          fmKqManager.Free;
        end;
        12:
        begin
          dlgkqdata:=tdlgkqdata.Create(self);
          dlgkqdata.ShowModal;
          dlgkqdata.Free;
        end;
        end;
    end;
end;

procedure Tfrm_Main.Cmd_MoneyClick(Sender: TObject);
begin
  Image_Title.Top:=Cmd_Money.Top +7;
  frm_Main.Panel_Title.Caption:='【连锁管理系统】->【财务管理】';
  TabSheet1.TabVisible:=False;
  TabSheet2.TabVisible:=False;
  TabSheet3.TabVisible:=False;
  TabSheet4.TabVisible:=False;
  TabSheet5.TabVisible:=false;
  TabSheet6.TabVisible:=false;
  ListView1.Visible:=False;
  ListView2.Visible:=False;
  ListView3.Visible:=False;
  ListView4.Visible:=false;
  ListView5.Visible:=false;
  TabSheet7.TabVisible:=false;
  Tabcw.TabVisible:=true;
  listview7.Visible:=true;
end;

procedure Tfrm_Main.Cmd_wholesaleClick(Sender: TObject);
begin
  frm_Main.Panel_Title.Caption:='【连锁管理系统】->【决策支持】';
  Image_Title.Top:=Cmd_wholesale.Top +7;
  TabSheet1.TabVisible:=False;
  TabSheet2.TabVisible:=False;
  TabSheet3.TabVisible:=false;
  TabSheet4.TabVisible:=False;
  TabSheet5.TabVisible:=False;
  TabSheet6.TabVisible:=false;
  TabSheet7.TabVisible:=true;
  Tabcw.TabVisible:=false;
end;

procedure Tfrm_Main.Cmd_decisionClick(Sender: TObject);
begin
    Image_Title.Top:=Cmd_decision.Top +7;
    frm_Main.Panel_Title.Caption:='【连锁管理系统】->【系统维护】';
    TabSheet1.TabVisible:=False;
    TabSheet2.TabVisible:=False;
    TabSheet3.TabVisible:=False;
    TabSheet4.TabVisible:=False;
    TabSheet5.TabVisible:=True;
    TabSheet6.TabVisible:=false;
    ListView1.Visible:=False;
    ListView2.Visible:=False;
    ListView3.Visible:=False;
    ListView4.Visible:=false;
    ListView5.Visible:=True;
    TabSheet7.TabVisible:=false;
    Tabcw.TabVisible:=false;
end;

procedure Tfrm_Main.ListView5Click(Sender: TObject);
var
  sql:widestring;
begin
    if listview5.Selected <> nil then
    begin
      if loginlock[listview5.Selected.Index+listview4.Items.Count+listview3.Items.Count+lviewbatch.Items.Count+listview1.Items.Count ]=0 then exit;
        case listview5.ItemIndex of
        0:
        begin
          frm_Login := Tfrm_Login.Create(self);
          frm_Login.model:=1;
          frm_Login.ShowModal;
          frm_Login.Free;
        end;
        1:
        begin
          fm_system:=tfm_system.Create(self);
          fm_system.ShowModal;
          fm_system.Free;
          Tmycolor(SKinid);
        end;
        2:
        begin
          frmbbs:=tfrmbbs.Create(self);
          frmbbs.ShowModal;
          frmbbs.Free; 
        end;
        3:
        begin

           sql:='select * from vpart_storage';
            dmmain.CDSquery.Close;
            dmmain.CDSquery.Data:=null;
            try
              dmmain.CDSquery.Data:=adisp.GetRecord(sql);
              dmmain.CDSquery.Open;
            except
            end;
            fmSystemSet:=TfmSystemSet.Create(self);
            fmSystemSet.ShowModal;
            fmSystemSet.Free;
        end;
        4:
        begin
            fmSetAgion:=TfmSetAgion.Create(self);
            fmSetAgion.ShowModal;
            fmSetAgion.Free;
        end;
        5:
        begin
          fmMsgmanager:=tfmMsgmanager.Create(self);
          fmMsgmanager.ShowModal;
          fmMsgmanager.Free; 
        end;
        6:
        begin
            frm_Examine_Verify:=Tfrm_Examine_Verify.Create(self);
            frm_Examine_Verify.ShowModal;
            frm_Examine_Verify.Free;
        end;
        7:
        begin
          Fm_RemoteDb:=tFm_RemoteDb.create(self);
          Fm_RemoteDb.ShowModal;
          Fm_RemoteDb.Free;
        end;
        end;
    end;
end;

procedure Tfrm_Main.SpeedButton2Click(Sender: TObject);
begin
    frm_Business_Draft:=Tfrm_Business_Draft.Create(self);
    frm_Business_Draft.ShowModal;
    frm_Business_Draft.Free;
end;

procedure Tfrm_Main.spbbatchClick(Sender: TObject);
begin
  frm_Main.Panel_Title.Caption:='【连锁管理系统】->【配送管理】';
  Image_Title.Top:=spbbatch.Top +7;
  TabSheet1.TabVisible:=False;
  TabSheet2.TabVisible:=False;
  TabSheet3.TabVisible:=false;
  TabSheet4.TabVisible:=False;
  TabSheet5.TabVisible:=False;
  TabSheet6.TabVisible:=true;
  TabSheet7.TabVisible:=false;
  Tabcw.TabVisible:=false;
end;

procedure Tfrm_Main.GroupBox3MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
var
  i:Integer;
begin
  for i:=0 to componentcount-1 do
  begin
    if self.Components[i] is TFrame1 then
    if TFrame1(Components[i]).Color=$00FFBFBF then
    begin
      TFrame1(Components[i]).Color:=SELF.Color;
      TFrame1(Components[i]).Label1.Font.Color:=clActiveCaption;
    end;
  end;
end;

procedure Tfrm_Main.lviewbatchClick(Sender: TObject);    //配送管理
begin
  if lviewbatch.Selected <>nil then
    if loginlock[lviewbatch.Selected.Index+listview3.Items.Count+listview1.Items.Count ]=0 then exit;
  case lviewbatch.ItemIndex of
    0:
    begin
      ShowAskGoodsPlanFm('','',501);;//配送申请单；
    end;
    1:
    begin
      fmps_query:=tfmps_query.Create(self); //缺货分析
      fmps_query.ShowModal;
      fmps_query.Free;
    end;
    2:
    begin
      fmPosGoods:=tfmPosGoods.Create(self); //数量找平
      fmPosGoods.ShowModal;