mryzyqx.pas

生产管理系统：系统具有数据备份及数据还原功能。能够保证系统数据的安全性方便的全方位的数据查询。在相应的权限下

unit MRYZYQX;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, Grids, DBGrids, StdCtrls, DBCtrls, Buttons;

type
  TFRM_YZYQX = class(TForm)
    GroupBox1: TGroupBox;
    DBGrid1: TDBGrid;
    Datalb: TDataSource;
    GroupBox2: TGroupBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    CheckBox5: TCheckBox;
    CheckBox6: TCheckBox;
    CheckBox7: TCheckBox;
    CheckBox8: TCheckBox;
    CheckBox9: TCheckBox;
    CheckBox10: TCheckBox;
    CheckBox11: TCheckBox;
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FRM_YZYQX: TFRM_YZYQX;
  tb : integer = 0;
implementation
  uses MR_DATA;
{$R *.dfm}

procedure TFRM_YZYQX.FormShow(Sender: TObject);
begin
  with data.ADOa do
  begin
    close;
    sql.Clear;
    sql.Add('select * from tb_user');
    open;
  end;
  datalb.DataSet := data.ADOa;
  if data.ADOa.FieldByName('1').AsString = '1' then
    CheckBox1.Checked := true
  else
    CheckBox1.Checked := false;
  if data.ADOa.FieldByName('2').AsString = '1' then
    CheckBox2.Checked := true
  else
    CheckBox2.Checked := false;
  if data.ADOa.FieldByName('3').AsString = '1' then
    CheckBox3.Checked := true
  else
    CheckBox3.Checked := false;
  if data.ADOa.FieldByName('4').AsString = '1' then
    CheckBox4.Checked := true
  else
    CheckBox4.Checked := false;
  if data.ADOa.FieldByName('5').AsString = '1' then
    CheckBox5.Checked := true
  else
    CheckBox5.Checked := false;
  if data.ADOa.FieldByName('6').AsString = '1' then
    CheckBox6.Checked := true
  else
    CheckBox6.Checked := false;
  if data.ADOa.FieldByName('7').AsString = '1' then
    CheckBox7.Checked := true
  else
    CheckBox7.Checked := false;
  if data.ADOa.FieldByName('8').AsString = '1' then
    CheckBox8.Checked := true
  else
    CheckBox8.Checked := false;
  if data.ADOa.FieldByName('9').AsString = '1' then
    CheckBox9.Checked := true
  else
    CheckBox9.Checked := false;
  if data.ADOa.FieldByName('10').AsString = '1' then
    CheckBox10.Checked := true
  else
    CheckBox10.Checked := false;
  if data.ADOa.FieldByName('11').AsString = '1' then
    CheckBox11.Checked := true
  else
    CheckBox11.Checked := false;

end;

procedure TFRM_YZYQX.BitBtn1Click(Sender: TObject);
begin
  tb := 1;
  GroupBox2.Enabled := true;
end;

procedure TFRM_YZYQX.BitBtn2Click(Sender: TObject);
begin
  if tb = 1 then
  begin
    GroupBox2.Enabled := false;
    data.ADOa.Edit;
    data.ADOa.FieldByName('czysj').AsDateTime := date();
    if CheckBox1.Checked = true then
      data.ADOa.FieldByName('1').AsString := '1'
    else
      data.ADOa.FieldByName('1').AsString := '0';
    if CheckBox2.Checked = true then
      data.ADOa.FieldByName('2').AsString := '1'
    else
      data.ADOa.FieldByName('2').AsString := '0';
    if CheckBox3.Checked = true then
      data.ADOa.FieldByName('3').AsString := '1'
    else
      data.ADOa.FieldByName('3').AsString := '0';
    if CheckBox4.Checked = true then
      data.ADOa.FieldByName('4').AsString := '1'
    else
      data.ADOa.FieldByName('4').AsString := '0';
    if CheckBox5.Checked = true then
      data.ADOa.FieldByName('5').AsString := '1'
    else
      data.ADOa.FieldByName('5').AsString := '0';
    if CheckBox6.Checked = true then
      data.ADOa.FieldByName('6').AsString := '1'
    else
      data.ADOa.FieldByName('6').AsString := '0';
    if CheckBox7.Checked = true then
      data.ADOa.FieldByName('7').AsString := '1'
    else
      data.ADOa.FieldByName('7').AsString := '0';
    if CheckBox8.Checked = true then
      data.ADOa.FieldByName('8').AsString := '1'
    else
      data.ADOa.FieldByName('8').AsString := '0';
    if CheckBox9.Checked = true then
      data.ADOa.FieldByName('9').AsString := '1'
    else
      data.ADOa.FieldByName('9').AsString := '0';
    if CheckBox10.Checked = true then
      data.ADOa.FieldByName('10').AsString := '1'
    else
      data.ADOa.FieldByName('10').AsString := '0';
    if CheckBox11.Checked = true then
      data.ADOa.FieldByName('11').AsString := '1'
    else
      data.ADOa.FieldByName('11').AsString := '0';
    data.ADOa.Post;
    FRM_YZYQX.FormShow(Sender);
  end;
  tb := 0;
end;

procedure TFRM_YZYQX.DBGrid1CellClick(Column: TColumn);
begin
  if data.ADOa.FieldByName('1').AsString = '1' then
    CheckBox1.Checked := true
  else
    CheckBox1.Checked := false;
  if data.ADOa.FieldByName('2').AsString = '1' then
    CheckBox2.Checked := true
  else
    CheckBox2.Checked := false;
  if data.ADOa.FieldByName('3').AsString = '1' then
    CheckBox3.Checked := true
  else
    CheckBox3.Checked := false;
  if data.ADOa.FieldByName('4').AsString = '1' then
    CheckBox4.Checked := true
  else
    CheckBox4.Checked := false;
  if data.ADOa.FieldByName('5').AsString = '1' then
    CheckBox5.Checked := true
  else
    CheckBox5.Checked := false;
  if data.ADOa.FieldByName('6').AsString = '1' then
    CheckBox6.Checked := true
  else
    CheckBox6.Checked := false;
  if data.ADOa.FieldByName('7').AsString = '1' then
    CheckBox7.Checked := true
  else
    CheckBox7.Checked := false;
  if data.ADOa.FieldByName('8').AsString = '1' then
    CheckBox8.Checked := true
  else
    CheckBox8.Checked := false;
  if data.ADOa.FieldByName('9').AsString = '1' then
    CheckBox9.Checked := true
  else
    CheckBox9.Checked := false;
  if data.ADOa.FieldByName('10').AsString = '1' then
    CheckBox10.Checked := true
  else
    CheckBox10.Checked := false;
  if data.ADOa.FieldByName('11').AsString = '1' then
    CheckBox11.Checked := true
  else
    CheckBox11.Checked := false;

end;

procedure TFRM_YZYQX.BitBtn3Click(Sender: TObject);
begin
  FRM_YZYQX.FormShow(Sender);
  GroupBox2.Enabled := false;
  tb := 0;
end;

procedure TFRM_YZYQX.BitBtn4Click(Sender: TObject);
begin
  close;
end;

end.