unitmain.pas

一般的进销存软件不过界面还可以

  case FrameNo of
    1:
    begin
      with TFrameUserList.Create(self) do
      begin
        Parent := Form2;
        Left := 181;
        Top := 203;
        ADOQuery1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+DataFile+'; Jet OLEDB:Database Password=None; Persist Security Info=False;';
        ADOQuery1.Active := True;
        Show;
      end;
    end;
    2:
    begin
      with TFrameProdList.Create(self) do
      begin
        Parent := Form2;
        Left := 181;
        Top := 203;
        ADOQuery1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+DataFile+'; Jet OLEDB:Database Password=None; Persist Security Info=False;';
        ADOQuery1.Active := True;
        Show;
      end;
    end;
    3:
    begin
      with TFrameSell.Create(self) do
      begin
        Parent := Form2;
        Left := 181;
        Top := 203;
        ADOQuery1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+DataFile+'; Jet OLEDB:Database Password=None; Persist Security Info=False;';
        Show;
      end;
    end;
    4:
    begin
      with TFrameDbBuckup.Create(self) do
      begin
        Parent := Form2;
        Left := 181;
        Top := 203;
        Show;
      end;
    end;
    5:
    begin
      with TFrameSellHistory.Create(self) do
      begin
        Parent := Form2;
        Left := 181;
        Top := 203;
        ADOQuery1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+DataFile+'; Jet OLEDB:Database Password=None; 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(ExeRootPath+'/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,pChar(LangNoright),pChar(LangSysmsgTitle),MB_ICONWARNING+mb_ok);
    exit;
  end;
  DbReportProd.ADOQuery1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+DataFile+'; Jet OLEDB:Database Password=None; Persist Security Info=False;';
  DbReportProd.ADOQuery1.Active := True;
  DbRePortProd.QuickRep1.Refresh;
  DbReportProd.QuickRep1.Preview;
end;

procedure TForm2.FormActivate(Sender: TObject);
begin
  if IsCreat then
  begin
    sndplaysound(pchar(ExeRootPath+'/sound/login.wav'),snd_async);
    ShowBar(2);
    ShowFrame(2);
    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,pChar(LangNoright),pChar(LangSysmsgTitle),MB_ICONWARNING+mb_ok);
    exit;
  end;
  DbReportSell.ADOQuery1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+DataFile+'; Jet OLEDB:Database Password=None; Persist Security Info=False;';
  DbReportSell.ADOQuery1.Active := True;
  DbRePortSell.QuickRep1.Refresh;
  DbReportSell.QuickRep1.Preview;
end;

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

procedure TForm2.N16Click(Sender: TObject);
begin
  if (UserType<>'管理员') then
  begin
    messagebox(handle,pChar(LangNoright),pChar(LangSysmsgTitle),MB_ICONWARNING+mb_ok);
    exit;
  end;
  ADOQuery1:= TADOQuery.Create(self);
  ADOQuery1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+DataFile+'; Jet OLEDB:Database Password=None; Persist Security Info=False;';
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('select sum(sell_prod_price*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(LangSellnum1+ADOQuery1.FieldByName('TDResult').AsString+LangSellnum2),pChar(LangSysmsgTitle),MB_ICONinformation+mb_ok);
  ADOQuery1.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
  PopupMenu4.Popup(Form2.Left +Image142.Left ,Form2.Top + Image142.Top + Image142.Height + 1);
end;

procedure TForm2.ImageBar11Click(Sender: TObject);
begin
  if (Lang='cn') then
  begin
    LoadEn();
  end
  else
  begin
    LoadCn();
  end;
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
  N13Click(Self);
end;

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

procedure TForm2.N12Click(Sender: TObject);
begin
  if (Lang='cn') then LoadEn();
end;

procedure TForm2.N11Click(Sender: TObject);
begin
  if (Lang='en') then LoadCn();
end;

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

procedure TForm2.FormShow(Sender: TObject);
begin
  if(Lang='cn') then LoadCn();
  if(Lang='en') then LoadEn();
end;

procedure TForm2.LoadCn();
var
  i: integer;
begin
  Lang := 'cn';
  ParaIni.WriteString('sys','lang','cn');



  {根据图片对象的名字，重载相应的文件图形}
  for i:=0 to self.ComponentCount-1 do
    if (self.Components[i] is TImage) then
      (self.Components[i] as TImage).Picture.LoadFromFile(ExeRootPath+'/images/'+self.Components[i].name+'.jpg');

  N11.Checked := True;
  N12.Checked := False;

  N10.Caption := '语言设置';
    N11.Caption := '中文';
    N12.Caption := '英语';
  N9.Caption := '备份管理';
  N3.Caption := '退出登录';
  N5.Caption := '关闭系统';

  N7.Caption := '商品管理';
  N19.Caption := '商品报表';

  N15.Caption := '销售商品';
  N20.Caption := '销售报表';
  N6.Caption := '销售历史';
  N16.Caption := '今日盘点';

  N13.Caption := '用户管理';

  N1.Caption := '帮助主题';
  N2.Caption := '关于软件';

  LangNoright := '没有足够的权限！';
  LangSellnum1 := '今日销售额为 ';
  LangSellnum2 := ' 元。';


end;

procedure TForm2.LoadEn();
var
  i: integer;
begin
  Lang := 'en';
  ParaIni.WriteString('sys','lang','en');


  {根据图片对象的名字，重载相应的文件图形}
  for i:=0 to self.ComponentCount-1 do
    if (self.Components[i] is TImage) then
      (self.Components[i] as TImage).Picture.LoadFromFile(ExeRootPath+'/images/'+self.Components[i].name+'_en.jpg');


  N11.Checked := False;
  N12.Checked := True;
  
  N10.Caption := 'Language';
    N11.Caption := 'Chinese';
    N12.Caption := 'English';
  N9.Caption := 'Buckup';
  N3.Caption := 'Logout';
  N5.Caption := 'Shutoff';


  N7.Caption := 'Manage';
  N19.Caption := 'Report';

  N15.Caption := 'Sell';
  N20.Caption := 'Report';
  N6.Caption := 'History';
  N16.Caption := 'Check';

  N13.Caption := 'Users';

  N1.Caption := 'Index';
  N2.Caption := 'About';

  LangNoright := 'No Right';
  LangSellnum1 := 'Today''s income is ';
  LangSellnum2 := ' Yuan.';

end;



end.