📄 unitmain.pas

📁 众星小超市管理系统-条型码方式管理用的access库,(也有sql版本的qq3885652)
💻 PAS
📖 第 1 页 / 共 2 页
字号:
上一页 12









procedure TForm2.N23Click(Sender: TObject);
begin
  {用户列表}ShowFrame(1);
end;

procedure TForm2.N7Click(Sender: TObject);
begin
  {商品列表}ShowFrame(2);
end;

procedure TForm2.ShowFrame(FrameNo:Integer);
var
  i: integer;
begin
  if (UserType<>'管理员') and (FrameNo<>3) then
  begin
    messagebox(handle,'没有足够的权限！','权限不足',MB_ICONWARNING+mb_ok);
    exit;
  end;
  {清除所有的Frame}
  for i:=0 to self.ComponentCount-1 do
    if (self.Components[i] is Tframe) then (self.Components[i] as Tframe).Free;
  {建立相应的Frame}
  case FrameNo of
    1:
    begin
      with TFrameUserList.Create(self) do
      begin
        Parent := Form2;
        Left := 220;
        Top := 195;
        ADOQuery1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+DataFile+';Persist Security Info=False';
        ADOQuery1.Active := True;
        Show;
      end;
    end;
    2:
    begin
      with TFrameProdList.Create(self) do
      begin
        Parent := Form2;
        Left := 220;
        Top := 195;
        ADOQuery1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+DataFile+';Persist Security Info=False';
        ADOQuery1.Active := True;
        Show;
      end;
    end;
    3:
    begin
      with TFrameSell.Create(self) do
      begin
        Parent := Form2;
        Left := 220;
        Top := 195;
        ADOQuery1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+DataFile+';Persist Security Info=False';
        Show;
      end;
    end;
    4:
    begin
      with TFrameDbBuckup.Create(self) do
      begin
        Parent := Form2;
        Left := 220;
        Top := 195;
        Show;
      end;
    end;
    5:
    begin
      with TFrameSellHistory.Create(self) do
      begin
        Parent := Form2;
        Left := 220;
        Top := 195;
        ADOQuery1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+DataFile+';Persist Security Info=False';
        ADOQuery1.Active := True;
        Show;
      end;
    end;
  end;
end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  IsCreat := True;
  sndplaysound(pchar(ExeRoot+'\sound\logout.wav'),snd_async);
  form1.Show;
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
  CurrBar := 3;
  IsCreat := True;
end;

procedure TForm2.N15Click(Sender: TObject);
begin
  ShowFrame(3);
end;

procedure TForm2.N19Click(Sender: TObject);
begin
  if (UserType<>'管理员') then
  begin
    messagebox(handle,'没有足够的报表权限！','权限不足',MB_ICONWARNING+mb_ok);
    exit;
  end;
  DbReportProd.ADOQuery1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+DataFile+';Persist Security Info=False;';
  DbReportProd.ADOQuery1.Active := True;
  DbReportProd.ADOQuery1.close ;
  DbReportProd.ADOQuery1.open ;
  DbRePortProd.QuickRep1.Refresh;
  DbReportProd.QuickRep1.Preview;
end;

procedure TForm2.FormActivate(Sender: TObject);
begin
  if IsCreat then
  begin
    sndplaysound(pchar(ExeRoot+'\sound\login.wav'),snd_async);
    ShowBar(3);
    ShowFrame(3);
    IsCreat := False;
  end;
end;

procedure TForm2.N9Click(Sender: TObject);
begin
  ShowFrame(4);
end;


procedure TForm2.N20Click(Sender: TObject);
begin
  if (UserType<>'管理员') then
  begin
    messagebox(handle,'没有足够的销售报表权限！','权限不足',MB_ICONWARNING+mb_ok);
    exit;
  end;
  DbReportSell.ADOQuery1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+DataFile+';Persist Security Info=False;';

  DbReportSell.ADOQuery1.Active := True;
  DbReportSell.ADOQuery1.close ;
  DbReportSell.ADOQuery1.open ;
  DbRePortSell.QuickRep1.Refresh;
  DbReportSell.QuickRep1.Preview;
end;

procedure TForm2.N5Click(Sender: TObject);
begin
  Application.Terminate;
end;

procedure TForm2.N16Click(Sender: TObject);
var
  ADOQuery1: TADOQuery;
begin
  if (UserType<>'管理员') then
  begin
    messagebox(handle,'没有足够的日销售额权限！','权限不足',MB_ICONWARNING+mb_ok);
    exit;
  end;
  ADOQuery1:= TADOQuery.Create(self);
  ADOQuery1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+DataFile+';Persist Security Info=False;';
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('select sum(sell_prod_price*sell_number-sell_price) as TDResult from t_sell where year(sell_time)=year(now()) and month(sell_time)=month(now()) and day(sell_time)=day(now())');
  ADOQuery1.Open;
  messagebox(handle,PChar('扣除让利合计 '+ADOQuery1.FieldByName('TDResult').AsString+' 元。'),'今日盘点',MB_ICONinformation+mb_ok);
  ADOQuery1.Free;
end;
procedure TForm2.N10Click(Sender: TObject);
var
  ADOQuery1: TADOQuery;
begin
  if (UserType<>'管理员') then
  begin
    messagebox(handle,'没有月销售额权限！','权限不足',MB_ICONWARNING+mb_ok);
    exit;
  end;
  ADOQuery1:= TADOQuery.Create(self);
  ADOQuery1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+DataFile+';Persist Security Info=False;';
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('select sum(sell_prod_price*sell_number-sell_price) as TDResult from t_sell where year(sell_time)=year(now()) and month(sell_time)=month(now()) ');
  ADOQuery1.Open;
  messagebox(handle,PChar('扣除让利合计 '+ADOQuery1.FieldByName('TDResult').AsString+' 元。'),'本月盘点',MB_ICONinformation+mb_ok);
  ADOQuery1.Free;
end;

procedure TForm2.N11Click(Sender: TObject); var
  ADOQuery2: TADOQuery;
begin
  if (UserType<>'管理员') then
  begin
    messagebox(handle,'没有库存商品总值权限！','权限不足',MB_ICONWARNING+mb_ok);
    exit;
  end;
  ADOQuery2:= TADOQuery.Create(self);
  ADOQuery2.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+DataFile+';Persist Security Info=False;';
  ADOQuery2.SQL.Clear;
  ADOQuery2.SQL.Add('select sum(prod_in*prod_stock) as TDResult from t_prod ');
  ADOQuery2.Open;
  messagebox(handle,PChar('库存按进价总值 '+ADOQuery2.FieldByName('TDResult').AsString+' 元。'),'库存盘点',MB_ICONinformation+mb_ok);
  ADOQuery2.Free;
end;


procedure TForm2.N6Click(Sender: TObject);
begin
  ShowFrame(5);
end;

procedure TForm2.N2Click(Sender: TObject);
begin
  FormAbout.ShowModal;
end;

procedure TForm2.Image142Click(Sender: TObject);
begin
  if (UserType<>'升级员') then
  begin
    messagebox(handle,'没有足够的权限！','权限不足',MB_ICONWARNING+mb_ok);
    exit;
  end;
  messagebox(handle,'暂不提供','待软件升级！',MB_ICONinformation+mb_ok);
end;



procedure TForm2.ImageBar11Click(Sender: TObject);
begin
  N23Click(Self);
end;

procedure TForm2.ImageBar12Click(Sender: TObject);
begin
  N9Click(Self);
end;

procedure TForm2.ImageBar21Click(Sender: TObject);
begin
  N7Click(Self);
end;

procedure TForm2.ImageBar22Click(Sender: TObject);
begin
  N19Click(Self);
end;

procedure TForm2.ImageBar31Click(Sender: TObject);
begin
  N15Click(Self);
end;

procedure TForm2.ImageBar32Click(Sender: TObject);
begin
  N20Click(Self);
end;

procedure TForm2.ImageBar33Click(Sender: TObject);
begin
  N6Click(Self);
end;

procedure TForm2.ImageBar34Click(Sender: TObject);
begin
  N16Click(Self);
end;

procedure TForm2.ImageBar41Click(Sender: TObject);
begin
  Image142Click(Self);
end;
 procedure TForm2.ImageBar61Click(Sender: TObject);
begin
  Image162Click(Self);
end;

procedure TForm2.N1Click(Sender: TObject);
begin
  FormHelp.WebBrowser1.Navigate(ExeRoot+'\help\index.htm');
  FormHelp.ShowModal;
end;

procedure TForm2.N12Click(Sender: TObject); var
  ADOQuery2: TADOQuery;
begin
  if (UserType<>'管理员') then
  begin
    messagebox(handle,'没有库存服装总数的权限！','权限不足',MB_ICONWARNING+mb_ok);
    exit;
  end;
  ADOQuery2:= TADOQuery.Create(self);
  ADOQuery2.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+DataFile+';Persist Security Info=False;';
  ADOQuery2.SQL.Clear;
  ADOQuery2.SQL.Add('select sum(prod_stock) as TDResult from t_prod ');
  ADOQuery2.Open;
  messagebox(handle,PChar('库存服装总数为 '+ADOQuery2.FieldByName('TDResult').AsString+' 件或套。'),'库存盘点',MB_ICONinformation+mb_ok);
  ADOQuery2.Free;
end;

procedure TForm2.N13Click(Sender: TObject);
var
  ADOQuery1: TADOQuery;
begin
  if (UserType<>'管理员') then
  begin
    messagebox(handle,'没有足够的权限！','权限不足',MB_ICONWARNING+mb_ok);
    exit;
  end;
  ADOQuery1:= TADOQuery.Create(self);
  ADOQuery1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+DataFile+';Persist Security Info=False;';
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('select sum(sell_number) as TDResult from t_sell where year(sell_time)=year(now()) and month(sell_time)=month(now()) and day(sell_time)=day(now()) ');
  ADOQuery1.Open;
  messagebox(handle,PChar('今日销售数为 '+ADOQuery1.FieldByName('TDResult').AsString+' 件。'),'今日盘点',MB_ICONinformation+mb_ok);
  ADOQuery1.Free;
end;

procedure TForm2.N14Click(Sender: TObject);
var
  ADOQuery1: TADOQuery;
begin
  if (UserType<>'管理员') then
  begin
    messagebox(handle,'没有本月销售数的权限！','权限不足',MB_ICONWARNING+mb_ok);
    exit;
  end;
  ADOQuery1:= TADOQuery.Create(self);
  ADOQuery1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+DataFile+';Persist Security Info=False;';
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('select sum(sell_number) as TDResult from t_sell where year(sell_time)=year(now()) and month(sell_time)=month(now())  ');
  ADOQuery1.Open;
  messagebox(handle,PChar('本月销售数为 '+ADOQuery1.FieldByName('TDResult').AsString+' 件或套。'),'本月盘点',MB_ICONinformation+mb_ok);
  ADOQuery1.Free;
end;

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

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