mainform1.pas

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

PAS
2,254 行
字号
12345
    FPrevClientProc := Pointer(GetWindowLong(ClientHandle, GWL_WNDPROC));
    SetWindowLong(ClientHandle, GWL_WNDPROC, LongInt(FClientInstance));
  except
  end;
end;

procedure TMainForm.N5Click(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('lbda') then //判断窗体是否存在。
  begin
  //不存在则建立。
    Application.CreateForm(Tlbda, lbda);
    lbda.show;
  end
  else
  begin //存在则将其拖到前台。
    lbda.BringToFront;
    lbda.SetFocus;
  end;
end;

procedure TMainForm.FormResize(Sender: TObject);
begin
  with MainForm do
  begin
    if Height < 480 then Height := 480;
    if Width < 640 then Width := 640;
  end;
end;

procedure TMainForm.N11Click(Sender: TObject);
begin
  if not MainForm.ExistForm('ywdh') then //判断窗体是否存在。
  begin
  //不存在则建立。
    Application.CreateForm(Tywdh, ywdh);
    ywdh.show;
  end
  else
  begin //存在则将其拖到前台。
    ywdh.WindowState := wsNormal;
    ywdh.BringToFront;
    ywdh.SetFocus;
  end;
end;

procedure TMainForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose := true;
  if Application.MessageBox('是否要退出程序？', '提示', MB_YESNO + MB_ICONQUESTION) = IDNO then
  begin
    CanClose := false;
  end;
end;

procedure TMainForm.N8Click(Sender: TObject);
begin
  N85.Click;
  login.ShowModal;
end;

procedure TMainForm.N12Click(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('dqda') then //判断窗体是否存在。
  begin
  //不存在则建立。
    Application.CreateForm(Tdqda, dqda);
    dqda.show;
  end
  else
  begin //存在则将其拖到前台。
    dqda.BringToFront;
    dqda.SetFocus;
  end;
end;

procedure TMainForm.N6Click(Sender: TObject);
begin
  close;
end;

procedure TMainForm.N18Click(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('qyda') then //判断窗体是否存在。
  begin
  //不存在则建立。
    Application.CreateForm(Tqyda, qyda);
    qyda.show;
  end
  else
  begin //存在则将其拖到前台。
    qyda.BringToFront;
    qyda.SetFocus;
  end;
end;

procedure TMainForm.N19Click(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('ckda') then //判断窗体是否存在。
  begin
  //不存在则建立。
    Application.CreateForm(Tckda, ckda);
    ckda.show;
  end
  else
  begin //存在则将其拖到前台。
    ckda.BringToFront;
    ckda.SetFocus;
  end;
end;

procedure TMainForm.N15Click(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('khdawh') then //判断窗体是否存在。
  begin
  //不存在则建立。
    Application.CreateForm(Tkhdawh, khdawh);
    khdawh.show;
  end
  else
  begin //存在则将其拖到前台。
    khdawh.BringToFront;
    khdawh.SetFocus;
  end;
end;

procedure TMainForm.N16Click(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('ghsdawh') then //判断窗体是否存在。
  begin
  //不存在则建立。
    Application.CreateForm(Tghsdawh, ghsdawh);
    ghsdawh.show;
  end
  else
  begin //存在则将其拖到前台。
    ghsdawh.BringToFront;
    ghsdawh.SetFocus;
  end;
end;

procedure TMainForm.N22Click(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('bmda') then //判断窗体是否存在。
  begin
  //不存在则建立。
    Application.CreateForm(Tbmda, bmda);
    bmda.show;
  end
  else
  begin //存在则将其拖到前台。
    bmda.BringToFront;
    bmda.SetFocus;
  end;
end;

procedure TMainForm.N23Click(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('ryda') then //判断窗体是否存在。
  begin
  //不存在则建立。
    Application.CreateForm(Tryda, ryda);
    ryda.show;
  end
  else
  begin //存在则将其拖到前台。
    ryda.BringToFront;
    ryda.SetFocus;
  end;
end;

procedure TMainForm.N20Click(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('spdawh') then //判断窗体是否存在。
  begin
  //不存在则建立。
    Application.CreateForm(Tspdawh, spdawh);
    spdawh.show;
  end
  else
  begin //存在则将其拖到前台。
    spdawh.BringToFront;
    spdawh.SetFocus;
  end;
end;

procedure TMainForm.N38Click(Sender: TObject);
begin
  Application.CreateForm(Txtzc, xtzc);
  xtzc.ShowModal;
end;

procedure TMainForm.N14Click(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('hydawh') then //判断窗体是否存在。
  begin
  //不存在则建立。
    Application.CreateForm(Thydawh, hydawh);
    hydawh.show;
  end
  else
  begin //存在则将其拖到前台。
    hydawh.BringToFront;
    hydawh.SetFocus;
  end;
end;

procedure TMainForm.N31Click(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('cgdd') then //判断窗体是否存在。
  begin
  //不存在则建立。
    Application.CreateForm(Tcgdd, cgdd);
    cgdd.show;
  end
  else
  begin //存在则将其拖到前台。
    cgdd.BringToFront;
    cgdd.SetFocus;
  end;
end;

procedure TMainForm.N78Click(Sender: TObject);
begin
  Tile;
end;

procedure TMainForm.N79Click(Sender: TObject);
begin
  cascade;
end;

procedure TMainForm.N80Click(Sender: TObject);
begin
  ArrangeIcons;
end;

procedure TMainForm.N81Click(Sender: TObject);
begin
  Previous;
end;

procedure TMainForm.N82Click(Sender: TObject);
begin
  Next;
end;

procedure TMainForm.N27Click(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('xsdd') then //判断窗体是否存在。
  begin
  //不存在则建立。
    Application.CreateForm(Txsdd, xsdd);
    xsdd.show;
  end
  else
  begin //存在则将其拖到前台。
    xsdd.BringToFront;
    xsdd.SetFocus;
  end;
end;

procedure TMainForm.N32Click(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('cgrkd') then //判断窗体是否存在。
  begin
  //不存在则建立。
    Application.CreateForm(Tcgrkd, cgrkd);
    cgrkd.show;
  end
  else
  begin //存在则将其拖到前台。
    cgrkd.BringToFront;
    cgrkd.SetFocus;
  end;
end;

procedure TMainForm.N64Click(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('kcda') then //判断窗体是否存在。
  begin
  //不存在则建立。
    Application.CreateForm(Tkcda, kcda);
    kcda.show;
  end
  else
  begin //存在则将其拖到前台。
    kcda.BringToFront;
    kcda.SetFocus;
  end;
end;

procedure TMainForm.N28Click(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 + -
显示快捷键?