datacspas.~pas

来自「本软件是一套功能完整成熟的固定资产管理系统,具有固定资产管理系统的相应全部功能」· ~PAS 代码 · 共 273 行

unit datacspas;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, DB, ADODB;

type
  Tw_xtcs = class(TForm)
    GroupBox1: TGroupBox;
    qxxx: TCheckBox;
    zyxx: TCheckBox;
    bmxx: TCheckBox;
    gysxx: TCheckBox;
    cjxx: TCheckBox;
    zcmc: TCheckBox;
    zcxh: TCheckBox;
    zcyt: TCheckBox;
    zclb: TCheckBox;
    zcxx: TCheckBox;
    Button1: TButton;
    Button2: TButton;
    Image1: TImage;
    cscx: TADOQuery;
    procedure zyxxClick(Sender: TObject);
    procedure bmxxClick(Sender: TObject);
    procedure zcxxClick(Sender: TObject);
    procedure zcmcClick(Sender: TObject);
    procedure zcytClick(Sender: TObject);
    procedure zclbClick(Sender: TObject);
    procedure zcxhClick(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  w_xtcs: Tw_xtcs;

implementation

{$R *.dfm}

procedure Tw_xtcs.zyxxClick(Sender: TObject);
begin
if zyxx.Checked then
begin
qxxx.Checked:=true;
qxxx.Enabled:=false;
end else
qxxx.Enabled:=true;
end;

procedure Tw_xtcs.bmxxClick(Sender: TObject);
begin
if bmxx.checked then
begin
qxxx.Checked:=true;
zyxx.Checked:=true;
qxxx.Enabled:=false;
zyxx.Enabled:=false;
end else
begin
qxxx.Enabled:=true;
zyxx.Enabled:=true;
end;
end;

procedure Tw_xtcs.zcxxClick(Sender: TObject);
begin
if zcxx.Checked then
begin
cjxx.Checked:=true;
cjxx.Enabled:=false;
end else
cjxx.Enabled:=true;
end;

procedure Tw_xtcs.zcmcClick(Sender: TObject);
begin
if zcmc.Checked then
begin
cjxx.Checked:=true;
cjxx.Enabled:=false;
zcxx.Checked:=true;
zcxx.Enabled:=false;
end else
begin
cjxx.Enabled:=true;
zcxx.Enabled:=true;
end;

end;

procedure Tw_xtcs.zcytClick(Sender: TObject);
begin
if zcyt.Checked then
begin
cjxx.Checked:=true;
cjxx.Enabled:=false;
zcxx.Checked:=true;
zcxx.Enabled:=false;
end else
begin
cjxx.Enabled:=true;
zcxx.Enabled:=true;
end;
end;

procedure Tw_xtcs.zclbClick(Sender: TObject);
begin
if zclb.Checked then
begin
cjxx.Checked:=true;
cjxx.Enabled:=false;
zcxx.Checked:=true;
zcxx.Enabled:=false;
zcmc.Checked:=true;
zcmc.Enabled:=false;
zcyt.Checked:=true;
zcyt.Enabled:=false;
zcxh.Checked:=true;
zcxh.Enabled:=false;
end else
begin
cjxx.Enabled:=true;
zcxx.Enabled:=true;
zcmc.Enabled:=true;
zcyt.Enabled:=true;
zcxh.Enabled:=true;
end;

end;

procedure Tw_xtcs.zcxhClick(Sender: TObject);
begin
if zcxh.Checked then
begin
cjxx.Checked:=true;
cjxx.Enabled:=false;
zcxx.Checked:=true;
zcxx.Enabled:=false;
zcmc.Checked:=true;
zcmc.Enabled:=false;
end else
begin
cjxx.Enabled:=true;
zcxx.Enabled:=true;
zcmc.Enabled:=true;
end;

end;

procedure Tw_xtcs.Button2Click(Sender: TObject);
begin
if messagedlg('确认要初始系统吗,这样做可能会带来严重的后果，考虑好了吗?',mtwarning,[mbyes,mbno],0)=mryes then
begin
if qxxx.Checked then
with cscx do
begin
close;
sql.clear;
sql.add('delete from 职员权限表');
prepared;
execsql;
end;
if zyxx.Checked then
with cscx do
begin
close;
sql.clear;
sql.add('delete from 职员编码表');
prepared;
execsql;
end;
if bmxx.Checked then
with cscx do
begin
close;
sql.clear;
sql.add('delete from 部门编码表');
prepared;
execsql;
end;
if gysxx.Checked then
with cscx do
begin
close;
sql.clear;
sql.add('delete from 供应商编码表');
prepared;
execsql;
end;
if cjxx.Checked then
with cscx do
begin
close;
sql.clear;
sql.add('delete from 固定资产借用表');
prepared;
execsql;
end;
if zcxx.Checked then
with cscx do
begin
close;
sql.clear;
sql.add('delete from 固定资产信息表');
prepared;
execsql;
end;
if zcmc.Checked then
with cscx do
begin
close;
sql.clear;
sql.add('delete from 固定资产名称表');
prepared;
execsql;
end;
if zcxh.Checked then
with cscx do
begin
close;
sql.clear;
sql.add('delete from 固定资产型号表');
prepared;
execsql;
end;
if zcyt.Checked then
with cscx do
begin
close;
sql.clear;
sql.add('delete from 固定资产用途表');
prepared;
execsql;
end;
if zclb.Checked then
with cscx do
begin
close;
sql.clear;
sql.add('delete from 固定资产类别表');
prepared;
execsql;
end;
with cscx do
begin
close;
sql.Clear;
sql.add('select 职员编码 from 职员编码表 where 职员编码=9999');
prepared;
open;
if isempty then
begin
close;
sql.clear;
sql.add('insert into 职员编码表 (职员编码,职员姓名) values(9999,:zyxm)');
parameters.ParamByName('zyxm').value:='管理员';
prepared;
execsql;
end;
end;
messagedlg('系统数据已经初始,你可以重新开始构建数据了!',mtconfirmation,[mbok],0);
end;
end;

end.