📄 umain.pas

📁 相关的销售服务管理行业的一个软件
💻 PAS
📖 第 1 页 / 共 2 页
字号:
上一页 12
ShellExecute(handle,'open',pchar(spath+'\help\销售管理帮助.chm'),nil,nil,SW_Shownormal);
end;

procedure Tfrmmain.N18Click(Sender: TObject);
begin
dm.Imy.Add_Class;
end;

procedure Tfrmmain.N25Click(Sender: TObject);
begin
 dm.Imy.Cus_Detail;
end;

procedure Tfrmmain.N3Click(Sender: TObject);
begin
  if frmlogin = nil then Application.CreateForm(Tfrmlogin,frmlogin);
  frmlogin.Showmodal;
end;

procedure Tfrmmain.N4Click(Sender: TObject);
begin
   if Application.MessageBox('您真的要注销吗？','提示',4+32)=IDNO then
   exit;
   n15.Enabled :=false;   n1.Enabled :=false;
   n2.Enabled :=false;    n3.Enabled :=true;
   N4.Enabled :=false;    N17.Enabled :=false;
   N21.Enabled :=false;
   n41.Enabled:=false;
   StatusBar1.Panels[0].Text :='  就绪';
   StatusBar1.Panels[2].Text :='  操作员：  ';
   StatusBar1.Panels[3].Text :='  销售管理';
   StatusBar1.Panels[4].Text :='  日期：  ';
   frmmain.Outlook1.Enabled:=false;
end;

procedure Tfrmmain.N17Click(Sender: TObject);
begin
  //Outlook1.Visible:=False;
  //Panel2.Visible:=False;
  if frmChangePass=nil then Application.CreateForm(TfrmChangePass,frmChangePass);
  frmChangePass.ShowModal;
end;

procedure Tfrmmain.Outlook1TabChange(Sender: TObject; Item: String);
begin
  //ListBox1.Items.Add('The OnTabChange Event has occured: Tab has changed to '+ Item);
end;

procedure Tfrmmain.N35Click(Sender: TObject);
begin
  if frmDatabaseSet = nil then Application.CreateForm(TfrmDatabaseSet,frmDatabaseSet);
   frmDatabaseSet.Showmodal;
end;

procedure Tfrmmain.N37Click(Sender: TObject);
begin
  TileMode := tbHorizontal;
  Tile;
end;

procedure Tfrmmain.N38Click(Sender: TObject);
begin
  TileMode := tbVertical;
  Tile;
end;

procedure Tfrmmain.N39Click(Sender: TObject);
begin
  Cascade;
end;

procedure Tfrmmain.N40Click(Sender: TObject);
begin
  ArrangeIcons;
end;

procedure Tfrmmain.N42Click(Sender: TObject);
begin
  N42.Checked := not N42.Checked ;
  StatusBar1.Visible := N42.Checked ;
end;

procedure Tfrmmain.FormShow(Sender: TObject);
begin
   outlook1.ActiveTab:=2;
end;

procedure Tfrmmain.FormCreate(Sender: TObject);
begin

  ShortDateFormat:='yyyy-mm-dd';
  Application.Title:='销售管理系统';
end;

procedure Tfrmmain.N43Click(Sender: TObject);
begin
   if frmnxcx=nil then
 frmnxcx:=Tfrmnxcx.Create(nil);
 frmnxcx.Caption :='商场调拨出库';
 if frmnxcx.ADOQuery1.active=false then
   frmnxcx.ADOQuery1.open;
 frmnxcx.DBLookupComboBox1.Visible :=true;
 frmnxcx.Label1.Visible :=true;
 frmnxcx.ShowModal ;
 if frmnxcx.ModalResult =mrok then
 begin
    if (frmhzqd5=nil) then
          frmhzqd5:=Tfrmhzqd5.Create(nil);
    frmhzqd5.Label3.caption:=frmnxcx.DBLookupComboBox1.text;
    frmhzqd5.Label4.Caption :='时间：' +datetostr(frmnxcx.DateTimePicker1.date)+' 到 '+datetostr(frmnxcx.DateTimePicker2.date);
    frmhzqd5.ADOStoredProc1.close;
    frmhzqd5.ADOStoredProc1.Parameters.ParamByName('@nckcode').value:=Trim(frmnxcx.DBEdit1.Text);
    frmhzqd5.ADOStoredProc1.Parameters.ParamByName('@nDate1').value:=FormatDateTime('yyyy-mm-dd',frmnxcx.DateTimePicker1.DateTime);
    frmhzqd5.ADOStoredProc1.Parameters.ParamByName('@nDate2').value:=FormatDateTime('yyyy-mm-dd',frmnxcx.DateTimePicker2.DateTime);;
    frmhzqd5.ADOStoredProc1.open;
    frmhzqd5.Show;
 end;
end;

procedure Tfrmmain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose:= (Application.MessageBox('确实要退出此应用程序吗？','提示',36)=IDYes);
end;

procedure Tfrmmain.N011Click(Sender: TObject);
begin
  {frm_DengDan:=Tfrm_DengDan.Create(self);
  frm_DengDan.show;}
end;

procedure Tfrmmain.N44Click(Sender: TObject);
begin
  if FXStore = nil then FXStore := TFXStore.Create(Application);
  FXStore.Show;
end;

procedure Tfrmmain.N45Click(Sender: TObject);
begin
  if frmxsrb = nil then frmxsrb := Tfrmxsrb.Create(Application);
   //frmxsrb.FormMode := fmBrowse;
  frmxsrb.Show;
end;

procedure Tfrmmain.N50Click(Sender: TObject);
begin
   frmnxcx:=Tfrmnxcx.Create(nil);
   frmnxcx.Caption :='货品销售情况';
   frmnxcx.ShowModal ;
   if frmnxcx.ModalResult=mrok then
   begin
     if (Frmhzqd2=nil) then
      frmhzqd2:=Tfrmhzqd2.Create(nil);
      frmhzqd2.tag:=2;
      frmhzqd2.Label2.Caption:='时间：'+datetostr(frmnxcx.DateTimePicker1.date)+ ' 到 '+datetostr(frmnxcx.DateTimePicker2.date);
      frmhzqd2.ADOStoredProc1.close;
      frmhzqd2.ADOStoredProc1.Parameters.ParamByName('@nDate1').value:=FormatDateTime('yyyy-mm-dd',frmnxcx.DateTimePicker1.DateTime);
      frmhzqd2.ADOStoredProc1.Parameters.ParamByName('@nDate2').value:=FormatDateTime('yyyy-mm-dd',frmnxcx.DateTimePicker2.DateTime);
      frmhzqd2.ADOStoredProc1.open;
      frmhzqd2.Show;
   end;  

end;

procedure Tfrmmain.N52Click(Sender: TObject);
begin
    if FindFrameForm1=nil then
    FindFrameForm1 := TFindFrameForm1.Create(Application);
  FindFrameForm1.Title := '分销店销售查询';
  FindFrameForm1.Show;

end;

procedure Tfrmmain.N49Click(Sender: TObject);
begin
  frmckcon:=Tfrmckcon.Create(nil);
  Frmckcon.ShowModal ;
   if (Frmckcon.ModalResult=mrok)   then
     begin
            if (Frmhzqd=nil) then
                 frmhzqd:=Tfrmhzqd.Create(nil);
            frmhzqd.Caption :=Frmckcon.DBLookupComboBox1.Text+'的库存情况' ;

            frmhzqd.Label1.caption:='商场：'+Frmckcon.DBLookupComboBox1.Text ;
            frmhzqd.Label2.caption:='单位：双';
            frmhzqd.Label4.Caption :='时间:'+datetostr(Frmckcon.DateTimePicker1.date);
            frmhzqd.ADOStoredProc1.close;
            frmhzqd.ADOStoredProc1.Parameters.ParamByName('@ckcode').value:=Trim(Frmckcon.DBEdit1.Text);
            frmhzqd.ADOStoredProc1.Parameters.ParamByName('@nDate1').value:=FormatDateTime('yyyy-mm-dd',Frmckcon.DateTimePicker1.DateTime);
            frmhzqd.ADOStoredProc1.open;
            //frmhzqd.adoquery1.open;
            frmhzqd.Show;
    end;
end;

procedure Tfrmmain.N54Click(Sender: TObject);
begin
  if DailyProductStatForm=nil then
    DailyProductStatForm := TDailyProductStatForm.Create(Application);
  DailyProductStatForm.Title := '产品销售统计';
  DailyProductStatForm.Show;
end;

procedure Tfrmmain.N23Click(Sender: TObject);
begin
  ShellExecute(handle,'open',pchar(spath+'\help\销售管理帮助.chm'),nil,nil,SW_Shownormal);
end;

procedure Tfrmmain.N41Click(Sender: TObject);
begin
  SetReport(Application.Handle,DM.ADOConnection.ConnectionString,'0','eexs');
end;

procedure Tfrmmain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if dm.Imy<>nil then
  dm.Imy.Des;
end;

procedure Tfrmmain.N21Click(Sender: TObject);
begin
  dm.Imy.Cus_Class;
end;

procedure Tfrmmain.N32Click(Sender: TObject);
var
   s:string;
begin
//   frmckcon:=Tfrmckcon.Create(nil);
 //  Frmckcon.ShowModal ;
 //  frmckcon.Free;
     FrmCxgoods:=TFrmCxgoods.create(nil);
     FrmCxgoods.showmodal;
     if FrmCxgoods.ModalResult=mrok then
     begin
         if (frmgoodsck=nil) then
           frmgoodsck:=Tfrmgoodsck.Create(nil);
         s:=  FrmCxgoods.ADOQuery1.FieldByName('nGdCode').Asstring;
         frmgoodsck.Label2.caption:='型体：'+FrmCxgoods.ADOQuery1.FieldByName('ngdName').Asstring;
         frmgoodsck.Label4.Caption :='时间：'+Datetostr(FrmCxgoods.DateTimePicker1.date)+' 到 '+Datetostr(FrmCxgoods.DateTimePicker2.date);
         frmgoodsck.ADOStoredProc1.Close ;
         frmgoodsck.ADOStoredProc1.Parameters.ParamByName('@nGdcode').value:=s;
         frmgoodsck.ADOStoredProc1.Parameters.ParamByName('@nDate1').value:=FormatDateTime('yyyy-mm-dd',FrmCxgoods.DateTimePicker1.DateTime);
         frmgoodsck.ADOStoredProc1.Parameters.ParamByName('@nDate2').value:=FormatDateTime('yyyy-mm-dd',FrmCxgoods.DateTimePicker2.DateTime);
         frmgoodsck.ADOStoredProc1.open;
         frmgoodsck.show;
     end;

end;

procedure Tfrmmain.N51Click(Sender: TObject);
begin
 if frmnxcx=nil then
 frmnxcx:=Tfrmnxcx.Create(nil);
 frmnxcx.Caption :='商场销售情况';
 if frmnxcx.ADOQuery1.active=false then
   frmnxcx.ADOQuery1.open;
 frmnxcx.DBLookupComboBox1.Visible :=true;
 frmnxcx.Label1.Visible :=true;
 frmnxcx.ShowModal ;
 if frmnxcx.ModalResult =mrok then
 begin
    if (Frmhzqd3=nil) then
          frmhzqd3:=Tfrmhzqd3.Create(nil);
    frmhzqd3.Label3.caption:=frmnxcx.DBLookupComboBox1.text;
    frmhzqd3.Label4.Caption :='时间：' +datetostr(frmnxcx.DateTimePicker1.date)+' 到 '+datetostr(frmnxcx.DateTimePicker2.date);
    frmhzqd3.ADOStoredProc1.close;
    frmhzqd3.ADOStoredProc1.Parameters.ParamByName('@nckcode').value:=Trim(frmnxcx.DBEdit1.Text);
    frmhzqd3.ADOStoredProc1.Parameters.ParamByName('@nDate1').value:=FormatDateTime('yyyy-mm-dd',frmnxcx.DateTimePicker1.DateTime);
    frmhzqd3.ADOStoredProc1.Parameters.ParamByName('@nDate2').value:=FormatDateTime('yyyy-mm-dd',frmnxcx.DateTimePicker2.DateTime);;
    frmhzqd3.ADOStoredProc1.open;
    frmhzqd3.Show;
 end;
end;

procedure Tfrmmain.N48Click(Sender: TObject);
begin
  Outlook1.Visible:=False;
  Panel1.Visible:=true;
  Panel2.Visible:=false;
TfrmHPFBJK.Create(self);
end;

procedure Tfrmmain.N33Click(Sender: TObject);
begin
   if frmnxcx=nil then
 frmnxcx:=Tfrmnxcx.Create(nil);
 frmnxcx.Caption :='商场入库情况';
 if frmnxcx.ADOQuery1.active=false then
   frmnxcx.ADOQuery1.open;
 frmnxcx.DBLookupComboBox1.Visible :=true;
 frmnxcx.Label1.Visible :=true;
 frmnxcx.ShowModal ;
 if frmnxcx.ModalResult =mrok then
 begin
    if (frmhzqd4=nil) then
          frmhzqd4:=Tfrmhzqd4.Create(nil);
    frmhzqd4.Label3.caption:=frmnxcx.DBLookupComboBox1.text;
    frmhzqd4.Label4.Caption :='时间：' +datetostr(frmnxcx.DateTimePicker1.date)+' 到 '+datetostr(frmnxcx.DateTimePicker2.date);
    frmhzqd4.ADOStoredProc1.close;
    frmhzqd4.ADOStoredProc1.Parameters.ParamByName('@nckcode').value:=Trim(frmnxcx.DBEdit1.Text);
    frmhzqd4.ADOStoredProc1.Parameters.ParamByName('@nDate1').value:=FormatDateTime('yyyy-mm-dd',frmnxcx.DateTimePicker1.DateTime);
    frmhzqd4.ADOStoredProc1.Parameters.ParamByName('@nDate2').value:=FormatDateTime('yyyy-mm-dd',frmnxcx.DateTimePicker2.DateTime);;
    frmhzqd4.ADOStoredProc1.open;
    frmhzqd4.Show;
 end;
end;

end.
上一页 12
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -