📄 hyszunt.pas

📁 商品销售系统完全的功能SQL和JAVA
💻 PAS
字号:
unit hyszunt;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, StdCtrls,db,ADODB, Grids, DBGridEh;

type
  Thyszfrm = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    BitBtn1: TBitBtn;
    Label6: TLabel;
    Edit6: TEdit;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    CheckBox5: TCheckBox;
    CheckBox6: TCheckBox;
    CheckBox7: TCheckBox;
    CheckBox8: TCheckBox;
    CheckBox9: TCheckBox;
    CheckBox10: TCheckBox;
    CheckBox11: TCheckBox;
    CheckBox12: TCheckBox;
    CheckBox13: TCheckBox;
    Label3: TLabel;
    ComboBox1: TComboBox;
    BitBtn2: TBitBtn;
    CheckBox21: TCheckBox;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    Label5: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    CheckBox14: TCheckBox;
    CheckBox15: TCheckBox;
    CheckBox16: TCheckBox;
    CheckBox17: TCheckBox;
    Label11: TLabel;
    CheckBox18: TCheckBox;
    CheckBox19: TCheckBox;
    Label12: TLabel;
    CheckBox20: TCheckBox;
    CheckBox22: TCheckBox;
    DBGridEh1: TDBGridEh;
    DataSource1: TDataSource;
    CheckBox23: TCheckBox;
    CheckBox24: TCheckBox;
    CheckBox25: TCheckBox;
    CheckBox26: TCheckBox;
    CheckBox27: TCheckBox;
    CheckBox28: TCheckBox;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn1Click(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure DBGridEh1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
    procedure DBGridEh1CellClick(Column: TColumnEh);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure Edit1Enter(Sender: TObject);
    procedure Edit1Exit(Sender: TObject);
    procedure Edit2Enter(Sender: TObject);
    procedure Edit2Exit(Sender: TObject);
    procedure Edit6Enter(Sender: TObject);
    procedure Edit6Exit(Sender: TObject);
    procedure ComboBox1Enter(Sender: TObject);
    procedure ComboBox1Exit(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

const StartKey	=888;
var
  hyszfrm: Thyszfrm;

implementation
  uses  datam,data;
{$R *.dfm}

procedure Thyszfrm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
hyszfrm:=nil;
hyszfrm.Free;
end;

procedure Thyszfrm.BitBtn1Click(Sender: TObject);
begin
close;
end;

procedure Thyszfrm.ComboBox1Change(Sender: TObject);
begin
//系统设置
checkbox1.Checked:=read_pms(trim(combobox1.Text),'xpsz');
checkbox2.Checked:=read_pms(trim(combobox1.Text),'qxsz');
checkbox3.Checked:=read_pms(trim(combobox1.Text),'dyzlwh');
checkbox5.Checked:=read_pms(trim(combobox1.Text),'xscssz');
//资料维护
checkbox6.Checked:=read_pms(trim(combobox1.Text),'vipzlwh');
checkbox7.Checked:=read_pms(trim(combobox1.Text),'thyywh');
checkbox14.Checked:=read_pms(trim(combobox1.Text),'spjgwh');
checkbox26.Checked:=read_pms(trim(combobox1.Text),'thwh');
// 调拨管理
checkbox8.Checked:=read_pms(trim(combobox1.Text),'bddr');
checkbox9.Checked:=read_pms(trim(combobox1.Text),'bddc');
checkbox23.Checked:=read_pms(trim(combobox1.Text),'drwh');
checkbox24.Checked:=read_pms(trim(combobox1.Text),'dcwh');
//销售分析
checkbox10.Checked:=read_pms(trim(combobox1.Text),'mrxsqd');
checkbox11.Checked:=read_pms(trim(combobox1.Text),'yxsfx');
checkbox21.Checked:=read_pms(trim(combobox1.Text),'hyxfphb');
checkbox15.Checked:=read_pms(trim(combobox1.Text),'spxsphb');
//查询
checkbox12.Checked:=read_pms(trim(combobox1.Text),'hycx');
checkbox13.Checked:=read_pms(trim(combobox1.Text),'kccx');
checkbox16.Checked:=read_pms(trim(combobox1.Text),'drcx');
checkbox17.Checked:=read_pms(trim(combobox1.Text),'dccx');
checkbox25.Checked:=read_pms(trim(combobox1.Text),'thcx');
//数据维护
checkbox4.Checked:=read_pms(trim(combobox1.Text),'sjkwh');
checkbox18.Checked:=read_pms(trim(combobox1.Text),'sjbf');
checkbox19.Checked:=read_pms(trim(combobox1.Text),'sjhy');
CheckBox27.Checked:=read_pms(trim(combobox1.Text),'pd');
CheckBox28.Checked:=read_pms(trim(combobox1.Text),'up');
 //查看店员记录
checkbox20.Checked:=read_pms(trim(combobox1.Text),'ckdycz');
checkbox22.Checked:=read_pms(trim(combobox1.Text),'ckdyly');
end;

procedure Thyszfrm.BitBtn2Click(Sender: TObject);
begin
try
if combobox1.Text='' then exit;
 //系统设置
 write_pms(trim(combobox1.Text),'xpsz',checkbox1.Checked);
 write_pms(trim(combobox1.Text),'qxsz',checkbox2.Checked);
 write_pms(trim(combobox1.Text),'dyzlwh',checkbox3.Checked);
 write_pms(trim(combobox1.Text),'xscssz',checkbox5.Checked);
 //资料维护
 write_pms(trim(combobox1.Text),'vipzlwh',checkbox6.Checked);
 write_pms(trim(combobox1.Text),'thyywh',checkbox7.Checked);
 write_pms(trim(combobox1.Text),'spjgwh',checkbox14.Checked);
  write_pms(trim(combobox1.Text),'thwh',checkbox26.Checked);
 // 调拨管理
 write_pms(trim(combobox1.Text),'bddr',checkbox8.Checked);
 write_pms(trim(combobox1.Text),'bddc',checkbox9.Checked);
 write_pms(trim(combobox1.Text),'drwh',checkbox23.Checked);
 write_pms(trim(combobox1.Text),'dcwh',checkbox24.Checked);
 //销售分析
 write_pms(trim(combobox1.Text),'mrxsqd',checkbox10.Checked);
 write_pms(trim(combobox1.Text),'yxsfx',checkbox11.Checked);
 write_pms(trim(combobox1.Text),'hyxfphb',checkbox21.Checked);
 write_pms(trim(combobox1.Text),'spxsphb',checkbox15.Checked);
 //查询
 write_pms(trim(combobox1.Text),'hycx',checkbox12.Checked);
 write_pms(trim(combobox1.Text),'kccx',checkbox13.Checked);
 write_pms(trim(combobox1.Text),'drcx',checkbox16.Checked);
 write_pms(trim(combobox1.Text),'dccx',checkbox17.Checked);
 write_pms(trim(combobox1.Text),'thcx',checkbox25.Checked);
 //数据维护
 write_pms(trim(combobox1.Text),'sjkwh',checkbox4.Checked);
 write_pms(trim(combobox1.Text),'sjbf',checkbox18.Checked);
 write_pms(trim(combobox1.Text),'sjhy',checkbox19.Checked);
 write_pms(trim(combobox1.Text),'pd',CheckBox27.Checked);
 write_pms(trim(combobox1.Text),'up',CheckBox28.Checked);
 //查看店员记录
 write_pms(trim(combobox1.Text),'ckdycz',checkbox20.Checked);
 write_pms(trim(combobox1.Text),'ckdyly',checkbox22.Checked);

 showmessage('角色功能修改成功!!');
except
 abort;
end;
end;

procedure Thyszfrm.FormActivate(Sender: TObject);
begin
edit1.Text:='';
edit2.Text:='';
edit6.Text:='';
combobox1.Text:='';
edit1.SetFocus;
with dataman.thmainQuery do
  begin
   close;
   sql.Clear;
   sql.Add('select yonghu as 店员 from syslogin');
   open;
  end;
end;

procedure Thyszfrm.BitBtn3Click(Sender: TObject);
begin
if (edit1.Text='') or (edit2.Text='') or (edit6.Text='') then exit;
if edit2.Text<> edit6.Text then
 begin
   showmessage('两次输入的密码不一致!');
   exit;
 end;
 try
  with Dataman.vipQuery do
   begin
    close;
    sql.Clear;
    sql.Add('select * from syslogin where yonghu='''+edit1.text+'''');
    open;
    if not IsEmpty then
     begin
     showmessage('对不起已经有这个用户了！');
     exit;
     end
     else
    sql.Clear;
    sql.Add('insert into syslogin (yonghu,jiese,mima)');
    sql.Add('values('''+trim(edit1.Text)+''','''+trim(combobox1.Text)+''','''+en_crypt(edit2.Text,StartKey)+''')');
    execsql;
    showmessage('新增用户成功!');
   end;
  except
  abort;
  end;
edit1.Text:='';
edit2.Text:='';
edit6.Text:='';
end;

procedure Thyszfrm.BitBtn4Click(Sender: TObject);
begin
 try
  with Dataman.vipQuery do
   begin
    close;
    sql.Clear;
    sql.Add('delete from syslogin where yonghu='''+edit1.text+'''');
    execsql;
   end;
   showmessage('删除职员成功！');
  except
   abort;
  end;
end;

procedure Thyszfrm.DBGridEh1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumnEh;
  State: TGridDrawState);
begin
with dbgrideh1 do
  begin
      Canvas.Pen.Mode:=pmmask;
          if gdSelected in State  then
            begin
              Canvas.Brush.Color:=clinfobk;
              Canvas.FillRect(Rect);
              Canvas.Font.Color:=clred;
              Canvas.Font.Style:=[fsBold];
            end;
    DefaultDrawColumnCell(Rect, DataCol, Column, State);
  end;
end;

procedure Thyszfrm.DBGridEh1CellClick(Column: TColumnEh);
begin
  edit1.Text:=dbgrideh1.Fields[0].Value;
end;

procedure Thyszfrm.FormKeyPress(Sender: TObject; var Key: Char);
begin
    if key=#13 then
    begin
      Perform(CM_DialogKey,Vk_TAB,0);
      key:=#0;
    end;
end;

procedure Thyszfrm.Edit1Enter(Sender: TObject);
begin
Edit1.Color:=clSkyBlue;
end;

procedure Thyszfrm.Edit1Exit(Sender: TObject);
begin
Edit1.color:=clWindow;
end;

procedure Thyszfrm.Edit2Enter(Sender: TObject);
begin
  Edit2.Color:=clSkyBlue;
end;

procedure Thyszfrm.Edit2Exit(Sender: TObject);
begin
Edit2.color:=clWindow
end;

procedure Thyszfrm.Edit6Enter(Sender: TObject);
begin
  Edit6.Color:=clSkyBlue;
end;

procedure Thyszfrm.Edit6Exit(Sender: TObject);
begin
Edit6.color:=clWindow;
end;

procedure Thyszfrm.ComboBox1Enter(Sender: TObject);
begin
ComboBox1.Color:=clSkyBlue;
end;

procedure Thyszfrm.ComboBox1Exit(Sender: TObject);
begin
ComboBox1.color:=clWindow;
end;

end.
⌨️ 快捷键说明

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