mainform1.pas

来自「思微POS连锁超市管理系统 (商业代码),几年前的东西了」· PAS 代码 · 共 2,254 行 · 第 1/5 页

PAS
2,254 行
字号
12345
  Query1.Parameters[0].Value := Label4.Caption;
  Query1.Parameters[1].Value := '销售出货';
  Query1.open;
  if Query1.RecordCount = 0 then
  begin
    Application.MessageBox('您无权执行该功能。', '提示', MB_OK + MB_ICONWARNING);
    exit;
  end;
  if not MainForm.ExistForm('xschd') then //判断窗体是否存在。
  begin
  //不存在则建立。
    Application.CreateForm(Txschd, xschd);
    xschd.show;
  end
  else
  begin //存在则将其拖到前台。
    xschd.BringToFront;
    xschd.SetFocus;
  end;
end;

procedure TMainForm.N85Click(Sender: TObject);
var
  I: Integer;
begin
  with MainForm do
    for I := MDIChildCount - 1 downto 0 do
      MDIChildren[I].Close;
end;

procedure TMainForm.N53Click(Sender: TObject);
begin
  Query1.close;
  Query1.sql.Clear;
  Query1.sql.add('select * from menu where czyid=:czyid and menuname=:menuname');
  Query1.Parameters[0].Value := Label4.Caption;
  Query1.Parameters[1].Value := '销售收款单';
  Query1.open;
  if Query1.RecordCount = 0 then
  begin
    Application.MessageBox('您无权执行该功能。', '提示', MB_OK + MB_ICONWARNING);
    exit;
  end;
  if not MainForm.ExistForm('xsskd') then //判断窗体是否存在。
  begin
  //不存在则建立。
    Application.CreateForm(Txsskd, xsskd);
    xsskd.show;
  end
  else
  begin //存在则将其拖到前台。
    xsskd.BringToFront;
    xsskd.SetFocus;
  end;
end;

procedure TMainForm.N55Click(Sender: TObject);
begin
  Query1.close;
  Query1.sql.Clear;
  Query1.sql.add('select * from menu where czyid=:czyid and menuname=:menuname');
  Query1.Parameters[0].Value := Label4.Caption;
  Query1.Parameters[1].Value := '采购付款单';
  Query1.open;
  if Query1.RecordCount = 0 then
  begin
    Application.MessageBox('您无权执行该功能。', '提示', MB_OK + MB_ICONWARNING);
    exit;
  end;
  if not MainForm.ExistForm('cgfkd') then //判断窗体是否存在。
  begin
  //不存在则建立。
    Application.CreateForm(Tcgfkd, cgfkd);
    cgfkd.show;
  end
  else
  begin //存在则将其拖到前台。
    cgfkd.BringToFront;
    cgfkd.SetFocus;
  end;
end;

procedure TMainForm.N29Click(Sender: TObject);
begin
  Query1.close;
  Query1.sql.Clear;
  Query1.sql.add('select * from menu where czyid=:czyid and menuname=:menuname');
  Query1.Parameters[0].Value := Label4.Caption;
  Query1.Parameters[1].Value := '销售退货';
  Query1.open;
  if Query1.RecordCount = 0 then
  begin
    Application.MessageBox('您无权执行该功能。', '提示', MB_OK + MB_ICONWARNING);
    exit;
  end;
  if not MainForm.ExistForm('xsthd') then //判断窗体是否存在。
  begin
  //不存在则建立。
    Application.CreateForm(Txsthd, xsthd);
    xsthd.show;
  end
  else
  begin //存在则将其拖到前台。
    xsthd.BringToFront;
    xsthd.SetFocus;
  end;
end;

procedure TMainForm.N33Click(Sender: TObject);
begin
  Query1.close;
  Query1.sql.Clear;
  Query1.sql.add('select * from menu where czyid=:czyid and menuname=:menuname');
  Query1.Parameters[0].Value := Label4.Caption;
  Query1.Parameters[1].Value := '采购退货';
  Query1.open;
  if Query1.RecordCount = 0 then
  begin
    Application.MessageBox('您无权执行该功能。', '提示', MB_OK + MB_ICONWARNING);
    exit;
  end;
  if not MainForm.ExistForm('cgthd') then //判断窗体是否存在。
  begin
  //不存在则建立。
    Application.CreateForm(Tcgthd, cgthd);
    cgthd.show;
  end
  else
  begin //存在则将其拖到前台。
    cgthd.BringToFront;
    cgthd.SetFocus;
  end;
end;

procedure TMainForm.N35Click(Sender: TObject);
begin
  Query1.close;
  Query1.sql.Clear;
  Query1.sql.add('select * from menu where czyid=:czyid and menuname=:menuname');
  Query1.Parameters[0].Value := Label4.Caption;
  Query1.Parameters[1].Value := '仓库对调';
  Query1.open;
  if Query1.RecordCount = 0 then
  begin
    Application.MessageBox('您无权执行该功能。', '提示', MB_OK + MB_ICONWARNING);
    exit;
  end;
  if not MainForm.ExistForm('ckdd') then //判断窗体是否存在。
  begin
  //不存在则建立。
    Application.CreateForm(Tckdd, ckdd);
    ckdd.show;
  end
  else
  begin //存在则将其拖到前台。
    ckdd.BringToFront;
    ckdd.SetFocus;
  end;
end;

procedure TMainForm.N76Click(Sender: TObject);
begin
  Query1.close;
  Query1.sql.Clear;
  Query1.sql.add('select * from menu where czyid=:czyid and menuname=:menuname');
  Query1.Parameters[0].Value := Label4.Caption;
  Query1.Parameters[1].Value := '直接进仓';
  Query1.open;
  if Query1.RecordCount = 0 then
  begin
    Application.MessageBox('您无权执行该功能。', '提示', MB_OK + MB_ICONWARNING);
    exit;
  end;
  if not MainForm.ExistForm('sprk') then //判断窗体是否存在。
  begin
  //不存在则建立。
    Application.CreateForm(Tsprk, sprk);
    sprk.show;
  end
  else
  begin //存在则将其拖到前台。
    sprk.BringToFront;
    sprk.SetFocus;
  end;
end;

procedure TMainForm.N36Click(Sender: TObject);
begin
  Query1.close;
  Query1.sql.Clear;
  Query1.sql.add('select * from menu where czyid=:czyid and menuname=:menuname');
  Query1.Parameters[0].Value := Label4.Caption;
  Query1.Parameters[1].Value := '领料单';
  Query1.open;
  if Query1.RecordCount = 0 then
  begin
    Application.MessageBox('您无权执行该功能。', '提示', MB_OK + MB_ICONWARNING);
    exit;
  end;
  if not MainForm.ExistForm('lld') then //判断窗体是否存在。
  begin
  //不存在则建立。
    Application.CreateForm(Tlld, lld);
    lld.show;
  end
  else
  begin //存在则将其拖到前台。
    lld.BringToFront;
    lld.SetFocus;
  end;
end;

procedure TMainForm.N46Click(Sender: TObject);
begin
  Query1.close;
  Query1.sql.Clear;
  Query1.sql.add('select * from menu where czyid=:czyid and menuname=:menuname');
  Query1.Parameters[0].Value := Label4.Caption;
  Query1.Parameters[1].Value := '退料单';
  Query1.open;
  if Query1.RecordCount = 0 then
  begin
    Application.MessageBox('您无权执行该功能。', '提示', MB_OK + MB_ICONWARNING);
    exit;
  end;
  if not MainForm.ExistForm('tld') then //判断窗体是否存在。
  begin
  //不存在则建立。
    Application.CreateForm(Ttld, tld);
    tld.show;
  end
  else
  begin //存在则将其拖到前台。
    tld.BringToFront;
    tld.SetFocus;
  end;
end;

procedure TMainForm.N47Click(Sender: TObject);
begin
  Query1.close;
  Query1.sql.Clear;
  Query1.sql.add('select * from menu where czyid=:czyid and menuname=:menuname');
  Query1.Parameters[0].Value := Label4.Caption;
  Query1.Parameters[1].Value := '货品损溢';
  Query1.open;
  if Query1.RecordCount = 0 then
  begin
    Application.MessageBox('您无权执行该功能。', '提示', MB_OK + MB_ICONWARNING);
    exit;
  end;
  if not MainForm.ExistForm('syd') then //判断窗体是否存在。
  begin
  //不存在则建立。
    Application.CreateForm(Tsyd, syd);
    syd.show;
  end
  else
  begin //存在则将其拖到前台。
    syd.BringToFront;
    syd.SetFocus;
  end;
end;

procedure TMainForm.N74Click(Sender: TObject);
begin
  Query1.close;
  Query1.sql.Clear;
  Query1.sql.add('select * from menu where czyid=:czyid and menuname=:menuname');
  Query1.Parameters[0].Value := Label4.Caption;
  Query1.Parameters[1].Value := '货品组装';
  Query1.open;
  if Query1.RecordCount = 0 then
  begin
    Application.MessageBox('您无权执行该功能。', '提示', MB_OK + MB_ICONWARNING);
    exit;
  end;
  if not MainForm.ExistForm('spzzd') then //判断窗体是否存在。
  begin
  //不存在则建立。
    Application.CreateForm(Tspzzd, spzzd);
    spzzd.show;
  end
  else
  begin //存在则将其拖到前台。
    spzzd.BringToFront;
    spzzd.SetFocus;
  end;
end;

procedure TMainForm.N75Click(Sender: TObject);
begin
  Query1.close;
  Query1.sql.Clear;
  Query1.sql.add('select * from menu where czyid=:czyid and menuname=:menuname');
  Query1.Parameters[0].Value := Label4.Caption;
  Query1.Parameters[1].Value := '货品拆卸';
  Query1.open;
  if Query1.RecordCount = 0 then
  begin
    Application.MessageBox('您无权执行该功能。', '提示', MB_OK + MB_ICONWARNING);
    exit;
  end;
  if not MainForm.ExistForm('spcxd') then //判断窗体是否存在。
  begin
  //不存在则建立。
    Application.CreateForm(Tspcxd, spcxd);
    spcxd.show;
  end
  else
  begin //存在则将其拖到前台。
    spcxd.BringToFront;
    spcxd.SetFocus;
  end;
end;

procedure TMainForm.N94Click(Sender: TObject);
begin
  Query1.close;
  Query1.sql.Clear;
  Query1.sql.add('select * from menu where czyid=:czyid and menuname=:menuname');
  Query1.Parameters[0].Value := Label4.Caption;
  Query1.Parameters[1].Value := '收银员日结账';
  Query1.open;
  if Query1.RecordCount = 0 then
  begin
    Application.MessageBox('您无权执行该功能。', '提示', MB_OK + MB_ICONWARNING);
    exit;
  end;
  if not MainForm.ExistForm('syjk') then //判断窗体是否存在。
  begin
  //不存在则建立。
    Application.CreateForm(Tsyjk, syjk);
    syjk.show;
  end
  else
  begin //存在则将其拖到前台。
    syjk.BringToFront;
    syjk.SetFocus;
  end;
end;

procedure TMainForm.N95Click(Sender: TObject);
begin
  Query1.close;
  Query1.sql.Clear;
  Query1.sql.add('select * from menu where czyid=:czyid and menuname=:menuname');
  Query1.Parameters[0].Value := Label4.Caption;
  Query1.Parameters[1].Value := '收银员日结账查询';
  Query1.open;
  if Query1.RecordCount = 0 then
  begin
    Application.MessageBox('您无权执行该功能。', '提示', MB_OK + MB_ICONWARNING);
    exit;
  end;
  if not MainForm.ExistForm('syyjkcx') then //判断窗体是否存在。
  begin
  //不存在则建立。
    Application.CreateForm(Tsyyjkcx, syyjkcx);
    syyjkcx.show;
  end
  else
  begin //存在则将其拖到前台。
    syyjkcx.BringToFront;
    syyjkcx.SetFocus;
  end;
end;

procedure TMainForm.N90Click(Sender: TObject);
begin
  Query1.close;
  Query1.sql.Clear;
  Query1.sql.add('select * from menu where czyid=:czyid and menuname=:menuname');
  Query1.Parameters[0].Value := Label4.Caption;
  Query1.Parameters[1].Value := '收银员档案';
  Query1.open;
  if Query1.RecordCount = 0 then
  begin
    Application.MessageBox('您无权执行该功能。', '提示', MB_OK + MB_ICONWARNING);
    exit;
  end;
  if not MainForm.ExistForm('syyda') then //判断窗体是否存在。
  begin
  //不存在则建立。
    Application.CreateForm(Tsyyda, syyda);
    syyda.show;
  end
  else
  begin //存在则将其拖到前台。
    syyda.BringToFront;
    syyda.SetFocus;
  end;
end;

procedure TMainForm.N92Click(Sender: TObject);
begin
  Query1.close;
  Query1.sql.Clear;
  Query1.sql.add('select * from menu where czyid=:czyid and menuname=:menuname');
  Query1.Parameters[0].Value := Label4.Caption;
  Query1.Parameters[1].Value := '付款方式';
  Query1.open;
  if Query1.RecordCount = 0 then
  begin
    Application.MessageBox('您无权执行该功能。', '提示', MB_OK + MB_ICONWARNING);
    exit;
  end;
  if not MainForm.ExistForm('syfkfsda') then //判断窗体是否存在。
  begin
  //不存在则建立。
    Application.CreateForm(Tsyfkfsda, syfkfsda);
    syfkfsda.show;
  end
  else
  begin //存在则将其拖到前台。
    syfkfsda.BringToFront;
    syfkfsda.SetFocus;
  end;
end;

procedure TMainForm.N91Click(Sender: TObject);
begin
  Query1.close;
  Query1.sql.Clear;
  Query1.sql.add('select * from menu where czyid=:czyid and menuname=:menuname');
  Query1.Parameters[0].Value := Label4.Caption;
  Query1.Parameters[1].Value := 'POS机设置';
  Query1.open;
  if Query1.RecordCount = 0 then
  begin
    Application.MessageBox('您无权执行该功能。', '提示', MB_OK + MB_ICONWARNING);
    exit;
  end;
  if not MainForm.ExistForm('possz') then //判断窗体是否存在。
  begin
  //不存在则建立。
    Application.CreateForm(Tpossz, possz);
    possz.show;
  end
  else
  begin //存在则将其拖到前台。
    possz.BringToFront;
    possz.SetFocus;
  end;
end;

procedure TMainForm.N101Click(Sender: TObject);
begin
  Query1.close;
  Query1.sql.Clear;
  Query1.sql.add('select * from menu where czyid=:czyid and menuname=:menuname');
12345

mainform1.pas - 源码说明

本页面展示了「思微POS连锁超市管理系统 (商业代码),几年前的东西了」中的 mainform1.pas 源码文件，采用 PAS 编程语言编写，共 2,254 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与POS相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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