czydawh1.pas

思微POS连锁超市管理系统 (商业代码),几年前的东西了

unit czydawh1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  DBTables, Menus, Db, StdCtrls, Buttons, CheckLst,
  wwSpeedButton, wwDBNavigator, ExtCtrls, wwclearpanel, EHGrids, DBGridEh,
  ComCtrls, ADODB, dxTL, dxDBCtrl, dxDBGrid, dxCntner;

type
  Tczydawh = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    DataSource1: TDataSource;
    wwDBNavigator1: TwwDBNavigator;
    wwDBNavigator1First: TwwNavButton;
    wwDBNavigator1Prior: TwwNavButton;
    wwDBNavigator1Next: TwwNavButton;
    wwDBNavigator1Last: TwwNavButton;
    wwDBNavigator1Insert: TwwNavButton;
    wwDBNavigator1Edit: TwwNavButton;
    wwDBNavigator1Button: TwwNavButton;
    wwDBNavigator1Post: TwwNavButton;
    wwDBNavigator1Cancel: TwwNavButton;
    wwDBNavigator1Refresh: TwwNavButton;
    wwDBNavigator1FilterDialog: TwwNavButton;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    BitBtn5: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    Table1: TADOTable;
    Query1: TADOQuery;
    Table1czyid: TStringField;
    Table1czyname: TStringField;
    Table1pass: TStringField;
    dxDBGrid1: TdxDBGrid;
    dxDBGrid1czyid: TdxDBGridMaskColumn;
    dxDBGrid1czyname: TdxDBGridMaskColumn;
    CheckListBox1: TCheckListBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure N1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure PageControl1Change(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure BitBtn9Click(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
    procedure BitBtn10Click(Sender: TObject);
    procedure Table1PostError(DataSet: TDataSet; E: EDatabaseError;
      var Action: TDataAction);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn11Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure wwDBNavigator1ButtonClick(Sender: TObject);
    procedure Table1BeforeEdit(DataSet: TDataSet);
    procedure BitBtn12Click(Sender: TObject);
    procedure BitBtn13Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  czydawh: Tczydawh;

implementation

uses MainForm1;

{$R *.DFM}

procedure Tczydawh.N1Click(Sender: TObject);
begin
  Table1.Edit;
  Table1.FieldByName('password').asstring := '';
  Table1.Post;
end;

procedure Tczydawh.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  action := cafree;
end;

procedure Tczydawh.PageControl1Change(Sender: TObject);
var i: integer;
begin
  if Table1.RecordCount = 0 then PageControl1.ActivePageIndex := 0;
  if PageControl1.ActivePageIndex = 1 then
  begin
    Label2.Caption := Table1.fieldbyname('czyname').asstring;
    for i := 0 to CheckListBox1.Items.Count - 1 do
    begin
      Query1.close;
      Query1.sql.clear;
      Query1.sql.add('select * from menu where menuname=:menuname and czyid=:czyid');
      Query1.Parameters[0].Value := CheckListBox1.Items.Strings[i];
      Query1.Parameters[1].Value := Table1.fieldbyname('czyid').asstring;
      Query1.open;
      if Query1.RecordCount > 0 then
      begin
        CheckListBox1.Checked[i] := true;
      end
      else
      begin
        CheckListBox1.Checked[i] := false;
      end;
    end;
  end;
{  for i := 0 to CheckListBox2.Items.Count - 1 do
  begin
    Query1.close;
    Query1.sql.clear;
    Query1.sql.add('select * from menu where menuname=:menuname and czyid=:czyid');
    Query1.Parameters[0].Value := CheckListBox2.Items.Strings[i];
    Query1.Parameters[1].Value := Table1.fieldbyname('czyid').asstring;
    Query1.open;
    if Query1.RecordCount > 0 then
    begin
      CheckListBox2.Checked[i] := true;
    end
    else
    begin
      CheckListBox2.Checked[i] := false;
    end;
  end;
  for i := 0 to CheckListBox3.Items.Count - 1 do
  begin
    Query1.close;
    Query1.sql.clear;
    Query1.sql.add('select * from menu where menuname=:menuname and czyid=:czyid');
    Query1.Parameters[0].Value := CheckListBox3.Items.Strings[i];
    Query1.Parameters[1].Value := Table1.fieldbyname('czyid').asstring;
    Query1.open;
    if Query1.RecordCount > 0 then
    begin
      CheckListBox3.Checked[i] := true;
    end
    else
    begin
      CheckListBox3.Checked[i] := false;
    end;
  end;
  for i := 0 to CheckListBox4.Items.Count - 1 do
  begin
    Query1.close;
    Query1.sql.clear;
    Query1.sql.add('select * from menu where menuname=:menuname and czyid=:czyid');
    Query1.Parameters[0].Value := CheckListBox4.Items.Strings[i];
    Query1.Parameters[1].Value := Table1.fieldbyname('czyid').asstring;
    Query1.open;
    if Query1.RecordCount > 0 then
    begin
      CheckListBox4.Checked[i] := true;
    end
    else
    begin
      CheckListBox4.Checked[i] := false;
    end;
  end;
  for i := 0 to CheckListBox5.Items.Count - 1 do
  begin
    Query1.close;
    Query1.sql.clear;
    Query1.sql.add('select * from menu where menuname=:menuname and czyid=:czyid');
    Query1.Parameters[0].Value := CheckListBox5.Items.Strings[i];
    Query1.Parameters[1].Value := Table1.fieldbyname('czyid').asstring;
    Query1.open;
    if Query1.RecordCount > 0 then
    begin
      CheckListBox5.Checked[i] := true;
    end
    else
    begin
      CheckListBox5.Checked[i] := false;
    end;
  end;
  for i := 0 to CheckListBox6.Items.Count - 1 do
  begin
    Query1.close;
    Query1.sql.clear;
    Query1.sql.add('select * from menu where menuname=:menuname and czyid=:czyid');
    Query1.Parameters[0].Value := CheckListBox6.Items.Strings[i];
    Query1.Parameters[1].Value := Table1.fieldbyname('czyid').asstring;
    Query1.open;
    if Query1.RecordCount > 0 then
    begin
      CheckListBox6.Checked[i] := true;
    end
    else
    begin
      CheckListBox6.Checked[i] := false;
    end;
  end; }
end;

procedure Tczydawh.BitBtn5Click(Sender: TObject);
var i: integer;
begin
  for i := 0 to CheckListBox1.Items.Count - 1 do
  begin
    Query1.close;
    Query1.sql.clear;
    Query1.sql.add('delete from menu where menuname=:menuname and czyid=:czyid');
    Query1.Parameters[0].Value := CheckListBox1.Items.Strings[i];
    Query1.Parameters[1].Value := Table1.fieldbyname('czyid').asstring;
    Query1.ExecSQL; ;
    if CheckListBox1.Checked[i] = true then
    begin
      Query1.close;
      Query1.sql.clear;
      Query1.sql.add('insert into menu(czyid,menuname,czyname)');
      Query1.sql.add('values(:czyid,:menuname,:czyname)');
      Query1.Parameters[0].Value := Table1.fieldbyname('czyid').asstring;
      Query1.Parameters[2].Value := Table1.fieldbyname('czyname').asstring;
      Query1.Parameters[1].Value := CheckListBox1.Items.Strings[i];
      Query1.ExecSQL; ;
    end;
  end;
{  for i := 0 to CheckListBox2.Items.Count - 1 do
  begin
    Query1.close;
    Query1.sql.clear;
    Query1.sql.add('delete from menu where menuname=:menuname and czyid=:czyid');
    Query1.Parameters[0].Value := CheckListBox2.Items.Strings[i];
    Query1.Parameters[1].Value := Table1.fieldbyname('czyid').asstring;
    Query1.ExecSQL; ;
    if CheckListBox2.Checked[i] = true then
    begin
      Query1.close;
      Query1.sql.clear;
      Query1.sql.add('insert into menu(czyid,menuname,czyname)');
      Query1.sql.add('values(:czyid,:menuname,:czyname)');
      Query1.Parameters[0].Value := Table1.fieldbyname('czyid').asstring;
      Query1.Parameters[2].Value := Table1.fieldbyname('czyname').asstring;
      Query1.Parameters[1].Value := CheckListBox2.Items.Strings[i];
      Query1.ExecSQL; ;
    end;
  end;
  for i := 0 to CheckListBox3.Items.Count - 1 do
  begin
    Query1.close;
    Query1.sql.clear;
    Query1.sql.add('delete from menu where menuname=:menuname and czyid=:czyid');
    Query1.Parameters[0].Value := CheckListBox3.Items.Strings[i];
    Query1.Parameters[1].Value := Table1.fieldbyname('czyid').asstring;
    Query1.ExecSQL; ;
    if CheckListBox3.Checked[i] = true then
    begin
      Query1.close;
      Query1.sql.clear;
      Query1.sql.add('insert into menu(czyid,menuname,czyname)');
      Query1.sql.add('values(:czyid,:menuname,:czyname)');
      Query1.Parameters[0].Value := Table1.fieldbyname('czyid').asstring;
      Query1.Parameters[2].Value := Table1.fieldbyname('czyname').asstring;
      Query1.Parameters[1].Value := CheckListBox3.Items.Strings[i];
      Query1.ExecSQL; ;
    end;
  end;
  for i := 0 to CheckListBox4.Items.Count - 1 do
  begin
    Query1.close;
    Query1.sql.clear;
    Query1.sql.add('delete from menu where menuname=:menuname and czyid=:czyid');
    Query1.Parameters[0].Value := CheckListBox4.Items.Strings[i];
    Query1.Parameters[1].Value := Table1.fieldbyname('czyid').asstring;
    Query1.ExecSQL; ;
    if CheckListBox4.Checked[i] = true then
    begin
      Query1.close;
      Query1.sql.clear;
      Query1.sql.add('insert into menu(czyid,menuname,czyname)');
      Query1.sql.add('values(:czyid,:menuname,:czyname)');
      Query1.Parameters[0].Value := Table1.fieldbyname('czyid').asstring;
      Query1.Parameters[2].Value := Table1.fieldbyname('czyname').asstring;
      Query1.Parameters[1].Value := CheckListBox4.Items.Strings[i];
      Query1.ExecSQL; ;
    end;
  end;
  for i := 0 to CheckListBox5.Items.Count - 1 do
  begin
    Query1.close;
    Query1.sql.clear;
    Query1.sql.add('delete from menu where menuname=:menuname and czyid=:czyid');
    Query1.Parameters[0].Value := CheckListBox5.Items.Strings[i];
    Query1.Parameters[1].Value := Table1.fieldbyname('czyid').asstring;
    Query1.ExecSQL; ;
    if CheckListBox5.Checked[i] = true then
    begin
      Query1.close;
      Query1.sql.clear;
      Query1.sql.add('insert into menu(czyid,menuname,czyname)');
      Query1.sql.add('values(:czyid,:menuname,:czyname)');
      Query1.Parameters[0].Value := Table1.fieldbyname('czyid').asstring;
      Query1.Parameters[2].Value := Table1.fieldbyname('czyname').asstring;
      Query1.Parameters[1].Value := CheckListBox5.Items.Strings[i];
      Query1.ExecSQL; ;
    end;
  end;
  for i := 0 to CheckListBox6.Items.Count - 1 do
  begin
    Query1.close;
    Query1.sql.clear;
    Query1.sql.add('delete from menu where menuname=:menuname and czyid=:czyid');
    Query1.Parameters[0].Value := CheckListBox6.Items.Strings[i];
    Query1.Parameters[1].Value := Table1.fieldbyname('czyid').asstring;
    Query1.ExecSQL; ;
    if CheckListBox5.Checked[i] = true then
    begin
      Query1.close;
      Query1.sql.clear;
      Query1.sql.add('insert into menu(czyid,menuname,czyname)');
      Query1.sql.add('values(:czyid,:menuname,:czyname)');
      Query1.Parameters[0].Value := Table1.fieldbyname('czyid').asstring;
      Query1.Parameters[2].Value := Table1.fieldbyname('czyname').asstring;
      Query1.Parameters[1].Value := CheckListBox6.Items.Strings[i];
      Query1.ExecSQL; ;
    end;
  end;}
  application.MessageBox('保存成功。', '提示信息', mb_ok + MB_ICONINFORMATION);
end;

procedure Tczydawh.BitBtn1Click(Sender: TObject);
var i: integer;
begin
  for i := 0 to CheckListBox1.Items.Count - 1 do
  begin
    CheckListBox1.Checked[i] := true;
  end;
end;

procedure Tczydawh.BitBtn2Click(Sender: TObject);
var i: integer;
begin
  for i := 0 to CheckListBox1.Items.Count - 1 do
  begin
    CheckListBox1.Checked[i] := false;
  end;
end;

procedure Tczydawh.BitBtn7Click(Sender: TObject);
var i: integer;
begin
end;

procedure Tczydawh.BitBtn9Click(Sender: TObject);
var i: integer;
begin
end;

procedure Tczydawh.BitBtn8Click(Sender: TObject);
var i: integer;
begin
end;

procedure Tczydawh.BitBtn10Click(Sender: TObject);
var i: integer;
begin
end;

procedure Tczydawh.Table1PostError(DataSet: TDataSet; E: EDatabaseError;
  var Action: TDataAction);
begin
  application.MessageBox('操作员编码不能重复。', '提示信息', mb_ok + MB_ICONWARNING);

end;

procedure Tczydawh.BitBtn3Click(Sender: TObject);
var i: integer;
begin
end;

procedure Tczydawh.BitBtn6Click(Sender: TObject);
var i: integer;
begin
end;

procedure Tczydawh.BitBtn11Click(Sender: TObject);
var i: integer;
begin
end;

procedure Tczydawh.BitBtn4Click(Sender: TObject);
var i: integer;
begin
end;

procedure Tczydawh.wwDBNavigator1ButtonClick(Sender: TObject);
begin
  if Table1czyid.Value = 'SYSTEM' then exit;
  if Application.MessageBox('是否要删除此操作员？', '提示', MB_YESNO + MB_ICONQUESTION) = IDYES then
  begin
    try
      Table1.Delete;
    except
      Application.MessageBox('某些档案正在使用中,不能删除.', '提示', MB_OK + MB_ICONWARNING);
    end;
  end;
end;

procedure Tczydawh.Table1BeforeEdit(DataSet: TDataSet);
begin
  if Table1czyid.Value = 'SYSTEM' then
  begin
    abort;
  end;
end;

procedure Tczydawh.BitBtn12Click(Sender: TObject);
var i: integer;
begin
end;

procedure Tczydawh.BitBtn13Click(Sender: TObject);
var i: integer;
begin
end;
end.