unit113.pas

本系统是SQL SERVER的管理系统

unit Unit113;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  VCLBase, EffBtns, StdCtrls, TFlatComboBoxUnit, TFlatCheckBoxUnit,
  EPButtons, Grids, DBGrids,shellapi;

type
  TForm113 = class(TForm)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    FlatComboBox1: TFlatComboBox;
    FlatComboBox2: TFlatComboBox;
    epEfTrBtn1: TepEfTrBtn;
    epEfTrBtn2: TepEfTrBtn;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    f11: TFlatCheckBox;
    f12: TFlatCheckBox;
    f13: TFlatCheckBox;
    f21: TFlatCheckBox;
    f22: TFlatCheckBox;
    f23: TFlatCheckBox;
    d1: TFlatCheckBox;
    d2: TFlatCheckBox;
    s1: TFlatCheckBox;
    s2: TFlatCheckBox;
    g1: TFlatCheckBox;
    g2: TFlatCheckBox;
    i1: TFlatCheckBox;
    i2: TFlatCheckBox;
    i3: TFlatCheckBox;
    i4: TFlatCheckBox;
    h1: TFlatCheckBox;
    h2: TFlatCheckBox;
    DBGrid1: TDBGrid;
    epEfButton1: TepEfButton;
    epEfButton2: TepEfButton;
    epEfButton3: TepEfButton;
    epEfButton4: TepEfButton;
    FlatCheckBox19: TFlatCheckBox;
    procedure FlatComboBox2Enter(Sender: TObject);
    procedure FlatComboBox1Change(Sender: TObject);
    procedure FlatCheckBox19Click(Sender: TObject);
    procedure epEfTrBtn2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure epEfButton1Click(Sender: TObject);
    procedure epEfButton2Click(Sender: TObject);
    procedure epEfButton3Click(Sender: TObject);
    procedure epEfButton4Click(Sender: TObject);
    procedure epEfTrBtn1Click(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form113: TForm113;

implementation

uses cardata,main;

{$R *.DFM}

procedure helpcarsale(var key:word); {显示帮助文件}
var shelpfile:string;
begin
if key=vk_f1 then
begin
 sHelpFile:=ExtractFilePath(Application.ExeName)+'cardata\carsale.chm';
ShellExecute(0,'open',pchar(shelpfile),nil,nil,SW_SHOWNORMAL);
end;

end;
procedure TForm113.FlatComboBox2Enter(Sender: TObject);
begin
 flatcombobox2.Items.clear;
 with data.usetypetable do
begin
first;
while not eof do
begin
flatcombobox2.items.add(fieldbyname('usetype').asstring);
next;
end;
end;
end;

procedure TForm113.FlatComboBox1Change(Sender: TObject);
begin
if flatcombobox1.text='按用户类型设置' then
begin
label2.Show;
flatcombobox2.show;
form113.Height:=260;
groupbox1.Height:=233;
dbgrid1.hide;
epefbutton1.Hide;
epefbutton2.hide;
epefbutton3.hide;
epefbutton4.hide;
f11.checked:=false;
f12.checked:=false;
f13.checked:=false;
f21.checked:=false;
f22.checked:=false;
f23.checked:=false;
d1.checked:=false;
d2.checked:=false;
s1.checked:=false;
s2.checked:=false;
g1.checked:=false;
g2.checked:=false;
i1.checked:=false;
i2.checked:=false;
i3.checked:=false;
i4.checked:=false;
h1.checked:=false;
h2.checked:=false;
end;
if flatcombobox1.text='按用户单独设置' then
begin
label2.hide;
flatcombobox2.hide;
form113.Height:=405;
groupbox1.Height:=377;
dbgrid1.show;
epefbutton1.show;
epefbutton2.show;
epefbutton3.show;
epefbutton4.show;
 with data.usestable do
begin
f11.checked:=fieldbyname('f11').value;
f12.checked:=fieldbyname('f12').value;
f13.checked:=fieldbyname('f13').value;
f21.checked:=fieldbyname('f21').value;
f22.checked:=fieldbyname('f22').value;
f23.checked:=fieldbyname('f23').value;
d1.checked:=fieldbyname('d1').value;
d2.checked:=fieldbyname('d2').value;
s1.checked:=fieldbyname('s1').value;
s2.checked:=fieldbyname('s2').value;
g1.checked:=fieldbyname('g1').value;
g2.checked:=fieldbyname('g2').value;
i1.checked:=fieldbyname('i1').value;
i2.checked:=fieldbyname('i2').value;
i3.checked:=fieldbyname('i3').value;
i4.checked:=fieldbyname('i4').value;
h1.checked:=fieldbyname('h1').value;
h2.checked:=fieldbyname('h2').value;
end;
end;
end;

procedure TForm113.FlatCheckBox19Click(Sender: TObject);
begin
if flatcheckbox19.Checked=true then
begin
f11.checked:=true;
f12.checked:=true;
f13.checked:=true;
f21.checked:=true;
f22.checked:=true;
f23.checked:=true;
d1.checked:=true;
d2.checked:=true;
s1.checked:=true;
s2.checked:=true;
g1.checked:=true;
g2.checked:=true;
i1.checked:=true;
i2.checked:=true;
i3.checked:=true;
i4.checked:=true;
h1.checked:=true;
h2.checked:=true;
end
else
begin
f11.checked:=false;
f12.checked:=false;
f13.checked:=false;
f21.checked:=false;
f22.checked:=false;
f23.checked:=false;
d1.checked:=false;
d2.checked:=false;
s1.checked:=false;
s2.checked:=false;
g1.checked:=false;
g2.checked:=false;
i1.checked:=false;
i2.checked:=false;
i3.checked:=false;
i4.checked:=false;
h1.checked:=false;
h2.checked:=false;
end;
end;

procedure TForm113.epEfTrBtn2Click(Sender: TObject);
begin
form113.release;

with data.usesquery do
 begin
 close;
 sql.Clear;
 sql.add('select * from uses');
 sql.add('where usename='+''''+main.name+'''');
 prepare;
 open;
 mainform.n12.enabled:=fieldbyname('f11').value; {用户信息}
 mainform.n10.enabled:=fieldbyname('h1').value; {帮助}
 mainform.n11.enabled:=fieldbyname('h2').value; {关于}
 mainform.n13.enabled:=fieldbyname('f12').value; {密码更改}
 mainform.n14.enabled:=fieldbyname('f13').value; {用户权限}
 mainform.n15.enabled:=fieldbyname('f21').value;{数据优化}
 mainform.n16.enabled:=fieldbyname('f22').value;  {数据备份}
 mainform.n17.enabled:=fieldbyname('f23').value;  {数据还原}
 mainform.n18.enabled:=fieldbyname('d1').value;  {车辆入库}
 mainform.n19.enabled:=fieldbyname('d2').value;  {库存}
 mainform.n20.Enabled:=fieldbyname('s1').value;  {车辆销售}
 mainform.n21.enabled:=fieldbyname('s2').value; {销售利润}
 mainform.n22.Enabled:=fieldbyname('g1').value; {查询}
 mainform.n23.enabled:=fieldbyname('g2').value; {统计}
 mainform.n31.enabled:=fieldbyname('i1').value;  {车型}
 mainform.n32.enabled:=fieldbyname('i2').value; {颜色}
 mainform.n33.enabled:=fieldbyname('i3').value;  {车辆来源}
 mainform.n34.enabled:=fieldbyname('i4').value;  {用户类型}
 mainform.toolbutton2.enabled:=true;{重新登陆}
mainform.toolbutton3.enabled:=fieldbyname('f12').value;{密码更改}
mainform.toolbutton5.enabled:=fieldbyname('d1').value;{入库}
mainform.toolbutton6.enabled:=fieldbyname('d2').value;{库存}
mainform.toolbutton8.enabled:=fieldbyname('s1').value;{车辆销售}
mainform.toolbutton9.enabled:=fieldbyname('s2').value;{销售利润}
mainform.toolbutton11.enabled:=fieldbyname('g1').value;{查询}
mainform.toolbutton12.enabled:=fieldbyname('g2').value;{统计}
mainform.toolbutton14.enabled:=fieldbyname('h1').value;{帮助}
 
end;
end;

procedure TForm113.FormClose(Sender: TObject; var Action: TCloseAction);
begin
form113.free;
with data.usesquery do
 begin
 close;
 sql.Clear;
 sql.add('select * from uses');
 sql.add('where usename='+''''+main.name+'''');
 prepare;
 open;
 mainform.n12.enabled:=fieldbyname('f11').value; {用户信息}
 mainform.n10.enabled:=fieldbyname('h1').value; {帮助}
 mainform.n11.enabled:=fieldbyname('h2').value; {关于}
 mainform.n13.enabled:=fieldbyname('f12').value; {密码更改}
 mainform.n14.enabled:=fieldbyname('f13').value; {用户权限}
 mainform.n15.enabled:=fieldbyname('f21').value;{数据优化}
 mainform.n16.enabled:=fieldbyname('f22').value;  {数据备份}
 mainform.n17.enabled:=fieldbyname('f23').value;  {数据还原}
 mainform.n18.enabled:=fieldbyname('d1').value;  {车辆入库}
 mainform.n19.enabled:=fieldbyname('d2').value;  {库存}
 mainform.n20.Enabled:=fieldbyname('s1').value;  {车辆销售}
 mainform.n21.enabled:=fieldbyname('s2').value; {销售利润}
 mainform.n22.Enabled:=fieldbyname('g1').value; {查询}
 mainform.n23.enabled:=fieldbyname('g2').value; {统计}
 mainform.n31.enabled:=fieldbyname('i1').value;  {车型}
 mainform.n32.enabled:=fieldbyname('i2').value; {颜色}
 mainform.n33.enabled:=fieldbyname('i3').value;  {车辆来源}
 mainform.n34.enabled:=fieldbyname('i4').value;  {用户类型}
 mainform.toolbutton2.enabled:=true;{重新登陆}
mainform.toolbutton3.enabled:=fieldbyname('f12').value;{密码更改}
mainform.toolbutton5.enabled:=fieldbyname('d1').value;{入库}
mainform.toolbutton6.enabled:=fieldbyname('d2').value;{库存}
mainform.toolbutton8.enabled:=fieldbyname('s1').value;{车辆销售}
mainform.toolbutton9.enabled:=fieldbyname('s2').value;{销售利润}
mainform.toolbutton11.enabled:=fieldbyname('g1').value;{查询}
mainform.toolbutton12.enabled:=fieldbyname('g2').value;{统计}
mainform.toolbutton14.enabled:=fieldbyname('h1').value;{帮助}
 end;
end;

procedure TForm113.FormShow(Sender: TObject);
begin
label2.Hide;
flatcombobox2.hide;