main.pas

PosEasy收银系统源码,Pos机前后台管理代码

          tmpquery.SQL.Clear;
          tmpquery.SQL.Add(tmpsql);
          tmpquery.Prepare;
          tmpquery.ExecSQL;
       end
     else
     begin
        showmessage('商品库存不为0,不能删除该商品');
        tmpquery.free;
        exit;
     end;
  end;

if not tmpquery.Eof then
      begin
        tmpsql:='delete goodsbase where 条码='+tiaoma+'';
        tmpquery.Close;
        tmpquery.SQL.Clear;
        tmpquery.SQL.Add(tmpsql);
        tmpquery.Prepare;
        tmpquery.ExecSQL;
        tmpsql:='delete pricebase where 条码='+tiaoma+'';
        tmpquery.Close;
        tmpquery.SQL.Clear;
        tmpquery.SQL.Add(tmpsql);
        tmpquery.Prepare;
        tmpquery.ExecSQL;
     end;
tabdelgoods.Active:=false;
tabdelgoods.Active:=true;
DBGrid5.DataSource.DataSet:=tabdelgoods;
//tabdelgoods.Refresh;
tmpquery.Free;
end;


procedure Tmainfm.SpeedButton3Click(Sender: TObject);
begin
 Application.CreateForm(TManufacturer,Manufacturer);
 Manufacturer.ShowModal;
end;

procedure Tmainfm.SpeedButton5Click(Sender: TObject);
begin
  Application.CreateForm(TParticular,Particular);
  Particular.ShowModal;
end;



procedure Tmainfm.DBGrid2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if key=vk_return then
  begin
    Application.CreateForm(Tdetailfm, detailfm);
    detailfm.showmodal ;
  end;
 if key=vk_escape then
  notebook1.PageIndex:=0;
end;













procedure Tmainfm.SpeedButton13Click(Sender: TObject);
begin
 application.Terminate ;
end;

procedure Tmainfm.TreeView1Click(Sender: TObject);
var
tmpsql,tmpflag:string;
begin


  if treeview1.Selected.Text='新增商品' then
   begin
     tmpsql:='select iscode, cname as 厂家名称, cstyle as 厂家类型, caddress as 厂家地址, ';
     tmpsql:=tmpsql+'cconnector as 厂家联系人, ccreatedate as 创建日期, cratifier as 批准人,';
     tmpsql:=tmpsql+'cbooker as 登记人, cnote as 备注 from supplierlistbase';
     with Querysupplier do
       begin
         close;
         sql.Clear;
         sql.Add(tmpsql);
         prepare;
         open;
       end;
     notebook1.PageIndex:=1;
   end;
  if treeview1.Selected.Text='取消商品' then
   begin
     tmpsql:='select  * from deptnamebase';
     tmpqueryspe.Close;
     tmpqueryspe.SQL.Clear;
     tmpqueryspe.SQL.Add(tmpsql);
     tmpqueryspe.Prepare;
     tmpqueryspe.Open;
     ComboBox2.Items.Clear;
     while not tmpqueryspe.Eof do
       begin
        ComboBox2.Items.Add(tmpqueryspe['部门名称']);
        tmpqueryspe.Next;
       end;
     SpeedButton20.Enabled:=false;
     notebook1.PageIndex:=2;
     tabdelgoods.active:=false;
     tabdelgoods.active:=true;
   end;
  if treeview1.Selected.Text='部门进货' then
   begin
     sbutchanges.Enabled:=false;
     tmpsql:='select  * from deptnamebase ';
     tmpqueryspe.Close;
     tmpqueryspe.SQL.Clear;
     tmpqueryspe.SQL.Add(tmpsql);
     tmpqueryspe.Prepare;
     tmpqueryspe.Open;
     ComboBoxdep.Items.Clear;
     while not tmpqueryspe.Eof do
       begin
        ComboBoxdep.Items.Add(tmpqueryspe['部门名称']);
        tmpqueryspe.Next;
       end;
     notebook1.PageIndex:=3;
     tabdepappend.Active:=false;
     tabdepappend.Active:=true;
     //tmpqueryspe.Free;
  end;
  // tabdepappend.Refresh;
  if treeview1.Selected.Text='部门返货' then
   begin
     sbutchange.Enabled:=false;
     tmpsql:='select  * from deptnamebase';
     tmpqueryspe1.Close;
     tmpqueryspe1.SQL.Clear;
     tmpqueryspe1.SQL.Add(tmpsql);
     tmpqueryspe1.Prepare;
     tmpqueryspe1.Open;
     ComboBox1.Items.Clear;
     while not tmpqueryspe1.Eof do
       begin
        ComboBox1.Items.Add(tmpqueryspe1['部门名称']);
        tmpqueryspe1.Next;
       end;
     notebook1.PageIndex:=4;
     tabdepback.Active:=false;
     tabdepback.Active:=true;
   end;
   //tabdepback.Refresh;
  if treeview1.Selected.Text='部门库存查询' then
   begin
    tmpsql:='select * from goodsbase';
    with querygoodsquery do
    begin
      close;
      sql.Clear;
      sql.Add(tmpsql);
      prepare;
      open;
      notebook1.PageIndex:=5;
      dsgoodsquery.DataSet:=querygoodsquery;
    end;
   end;
  if treeview1.Selected.Text='销售查询' then
   begin
    tmpsql:='select a=sum(销售金额) from goodsflowbase';
    querygoodsflow.Close;
    querygoodsflow.SQL.Clear;
    querygoodsflow.SQL.Add(tmpsql);
    querygoodsflow.Prepare;
    querygoodsflow.Open;
    if querygoodsflow['a']=null then edit5.Text:='0'
    else edit5.Text:=querygoodsflow['a'];
    tmpsql:='select b=sum(销售金额) from goodsflowbase where 支付方式=''现金''';
    querygoodsflow.Close;
    querygoodsflow.SQL.Clear;
    querygoodsflow.SQL.Add(tmpsql);
    querygoodsflow.Prepare;
    querygoodsflow.Open;
    if querygoodsflow['b']=null then edit6.Text:='0'
    else edit6.Text:=querygoodsflow['b'];
    tmpsql:='select c=sum(销售金额) from goodsflowbase where 支付方式=''支票''';
    querygoodsflow.Close;
    querygoodsflow.SQL.Clear;
    querygoodsflow.SQL.Add(tmpsql);
    querygoodsflow.Prepare;
    querygoodsflow.Open;
    if querygoodsflow['c']=null then edit7.Text:='0'
    else edit7.Text:=querygoodsflow['c'];
    tmpsql:='select d=(销售金额) from goodsflowbase where 支付方式=''信用卡''';
    querygoodsflow.Close;
    querygoodsflow.SQL.Clear;
    querygoodsflow.SQL.Add(tmpsql);
    querygoodsflow.Prepare;
    querygoodsflow.Open;
    if querygoodsflow['d']=null then edit8.Text:='0'
    else edit8.Text:=querygoodsflow['d'];
    tmpsql:='select * from goodsflowbase';
    with Querygoodsflow do
    begin
    close;
    sql.Clear;
    sql.Add(tmpsql);
    prepare;
    open;
    notebook1.PageIndex:=6;
    dsgoodsquery.DataSet:=querygoodsquery;
    end;
   end;
   if treeview1.Selected.Text='进货查询' then
   begin
      tmpsql:='select * from storebase';
      Querystorequery.Close;
      Querystorequery.SQL.Clear;
      Querystorequery.SQL.Add(tmpsql);
      Querystorequery.Prepare;
      Querystorequery.Open;
      notebook1.PageIndex:=7;
   end;
  if treeview1.Selected.Text='进价变更' then
    begin
       try
         tmpsql:='select * from supplierlistbase';
         Querystory.Close;
         Querystory.sql.Clear;
         Querystory.SQL.Add(tmpsql);
         Querystory.Prepare;
         Querystory.Open;
         AlignGrid(dbgrid1);
         notebook1.PageIndex:=8;
       except
    Application.MessageBox('系统忙！','消息',MB_IconInformation);
  end;
    end;
 if treeview1.Selected.Text='售价变更' then
    begin
       try
         tmpsql:='select * from supplierlistbase';
         QuerySell.Close;
         QuerySell.sql.Clear;
         QuerySell.SQL.Add(tmpsql);
         QuerySell.Prepare;
         QuerySell.Open;
         AlignGrid(dbgrid1);
         notebook1.PageIndex:=9;
          except
    Application.MessageBox('系统忙！','消息',MB_IconInformation);
    end;
   end;
 if treeview1.Selected.Text='库存查询' then
 begin
  //notebook1.PageIndex:=10;
  TempQuery.Close;
  TempQuery.SQL.Clear;
  TempQuery.SQL.Add('create table #temp (品名 char(20),当前库存 int,库存结算金额 money,进货数量 int,进货结算金额 money,销售数量 int,销售结算金额 money)');
  TempQuery.ExecSQL;
  TempQuery.Close;
  TempQuery.SQL.Clear;
  TempQuery.SQL.Add('select distinct 品名 from goodsbase');
  TempQuery.Open;
  if not Tempquery.Eof  then
  begin
  while not TempQuery.eof do
    begin
      tmpflag:=TempQuery.Fields[0].AsString;
      Query.Close;
      Query.SQL.Clear;
      Query.SQL.Add('insert into #temp(品名) values('''+tmpflag+''')');
      Query.ExecSQL;
      Query.Close;
      Query.SQL.Clear;
      Query.SQL.Add('select 品名,(进价*进货数量)as total into #aa from goodsbase where 品名='''+tmpflag+'''');
      Query.ExecSQL;
      tmpsql:='update #temp set 当前库存=(select sum(当前库存) from goodsbase where 品名=';
      tmpsql:=tmpsql+''''+tmpflag+'''),库存结算金额=(select sum(库存结算金额) from goodsbase where ';
      tmpsql:=tmpsql+'品名='''+tmpflag+'''),进货数量=(select sum(进货数量) from goodsbase where ';
      tmpsql:=tmpsql+'品名='''+tmpflag+'''),进货结算金额=(select sum(total) from #aa where 品名='''+tmpflag+'''';
      tmpsql:=tmpsql+'),销售数量=(select sum(销售数量) from goodsbase ';
      tmpsql:=tmpsql+'where 品名='''+tmpflag+'''),销售结算金额=(select sum(销售结算金额) from ';
      tmpsql:=tmpsql+'goodsbase where 品名='''+tmpflag+''') where 品名='''+tmpflag+'''';
      StockQuery.Close;
      StockQuery.SQL.Clear;
      StockQuery.SQL.Add(tmpsql);
      StockQuery.ExecSQL;
      StockQuery.Close;
      StockQuery.SQL.Clear;
      StockQuery.SQL.Add('select * from #temp');
      StockQuery.Open;
      TempQuery.Next;
      Query.Close;
      Query.SQL.Clear;
      Query.SQL.Add('drop table #aa');
      Query.ExecSQL;
    end;
  AlignGrid(dbgrid4);
  //Dbgrid1.Columns[0].Width:=100;
  Dbgrid4.Columns[1].Width:=50;
  Dbgrid4.Columns[2].Width:=100;
  Dbgrid4.Columns[3].Width:=80;
  Dbgrid4.Columns[4].Width:=100;
  Dbgrid4.Columns[5].Width:=100;
  Dbgrid4.Columns[6].Width:=100;
  end;
  Query.Close;
  Query.SQL.Clear;
  Query.SQL.Add('drop table #temp');
  Query.ExecSQL;
  notebook1.PageIndex:=10;
 end;
  if treeview1.Selected.Text='盘库' then
     begin
       application.CreateForm(tform2,form2);
       form2.ShowModal;
     end;
  if treeview1.Selected.Text='部门管理' then
     begin
       selecttabname:='DeptNameBase';
       selectname:='部门名称';
       application.CreateForm(TModuleForm1,ModuleForm1);
       ModuleForm1.showmodal;
     end;
  if treeview1.Selected.Text='分类管理' then
     begin
       selecttabname:='goodclassingbase';
       selectname:='商品名称';
       application.CreateForm(TModuleForm1,ModuleForm1);
       ModuleForm1.showmodal;
     end;
  if treeview1.Selected.Text='部门销售报表' then
     begin
       application.CreateForm(TFrmdeptab1,Frmdeptab1);
       Frmdeptab1.showmodal;
     end;
  if treeview1.Selected.Text='厂家销售报表' then
     begin
        application.CreateForm(TFrmsuptab2,Frmsuptab2);
        Frmsuptab2.showmodal;
     end;
  if treeview1.Selected.Text='修改商品基本信息' then
     begin
        application.CreateForm(TFormchange1,Formchange1);
        Formchange1.showmodal;
     end;   
end;


procedure Tmainfm.SpeedButton12Click(Sender: TObject);
begin
   (query2.FieldByName('msum') as Tfloatfield).displayformat:='###,###,###';
end;

procedure Tmainfm.Table2CalcFields(DataSet: TDataSet);
begin
 table2resum.Value:=table2mbillsum.value+table2mcardsum.value+table2mothsum.value;
end;

procedure Tmainfm.FormCreate(Sender: TObject);
var
   tmpsql:string;
   tmpquery:tquery;
   i:integer ;
begin
  i:=1;
  tmpqueryspe2:=tquery.Create (self);
  tmpqueryspe2.DatabaseName :='guohua1';
  tmpqueryspe:=tquery.create(self);
  tmpqueryspe.DatabaseName:='guohua1';
  tmpqueryspe1:=tquery.create(self);
  tmpqueryspe1.DatabaseName:='guohua1';
  notebook1.PageIndex:=0;
  tmpsql:='select * from verifytab';
  tmpquery:=tquery.create(self);
  tmpquery.DatabaseName:='guohua1';
  tmpquery.Close;
  tmpquery.SQL.Clear;
  tmpquery.SQL.Add(tmpsql);
  tmpquery.Prepare;
  try
        tmpquery.Open;
     except showmessage('数据库连接失败,情检查连接');
           exit;
       end;
  while not tmpquery.Eof do
     begin
        operator[i]:=tmpquery['username'];
        operatorcode[i]:=tmpquery['password'];
        operatorright[i]:=tmpquery['limit'];
        i:=i+1;
        tmpquery.Next;
     end;
end;


procedure Tmainfm.SpeedButton26Click(Sender: TObject);
var
 tmpsql,tmpsqlx,tmpsqly,tmpsqlz,tmpsqls:string;
begin