main_unit.~pas

网上搜索来的进销存源码

    Qx_Form := Tqx_Form.Create(self);
  end;
  Qx_Form.Show;
end;

procedure Tmain_form.ShowMenu;  //显示可用菜单
var
  Path: string;
begin
  Path := ExtractFilePath(Application.ExeName);
  Adoquery1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + Path + 'mdb\jxc.mdb;Persist Security Info=False';
  with Adoquery1 do
  begin
    Close;
    Sql.Clear;
    Sql.Add('select * from Qx');
    try
      Open;
    except
    end;
  end;
  if Adoquery1.Locate('username', G_UserName, []) then
  begin
    if Adoquery1.Fields.Fields[1].AsString = '1' then
    begin
      N26.Enabled := True;
    end
    else
    begin
      N26.Enabled := False;
    end;
    //
    if Adoquery1.Fields.Fields[2].AsString = '1' then
    begin
      N27.Enabled := True;
    end
    else
    begin
      N27.Enabled := False;
    end;
    //
    if Adoquery1.Fields.Fields[3].AsString = '1' then
    begin
      N38.Enabled := True;
    end
    else
    begin
      N38.Enabled := False;
    end;
    //
    if Adoquery1.Fields.Fields[4].AsString = '1' then
    begin
      N8.Enabled := True;
      SpeedButton1.Enabled := True;
    end
    else
    begin
      N8.Enabled := False;
      SpeedButton1.Enabled := False;
    end;
    //
    if Adoquery1.Fields.Fields[5].AsString = '1' then
    begin
      N9.Enabled := True;
      SpeedButton2.Enabled := True;
    end
    else
    begin
      N9.Enabled := False;
      SpeedButton2.Enabled := False;
    end;
    //
    if Adoquery1.Fields.Fields[6].AsString = '1' then
    begin
      N10.Enabled := True;
      SpeedButton3.Enabled := True;
    end
    else
    begin
      N10.Enabled := False;
      SpeedButton3.Enabled := False;
    end;
    //
    if Adoquery1.Fields.Fields[7].AsString = '1' then
    begin
      N12.Enabled := True;
      SpeedButton4.Enabled := True;
    end
    else
    begin
      N12.Enabled := False;
      SpeedButton4.Enabled := False;
    end;
    //
    if Adoquery1.Fields.Fields[8].AsString = '1' then
    begin
      N13.Enabled := True;
      SpeedButton5.Enabled := True;
    end
    else
    begin
      N13.Enabled := False;
      SpeedButton5.Enabled := False;
    end;
    //
    if Adoquery1.Fields.Fields[9].AsString = '1' then
    begin
      N14.Enabled := True;
      SpeedButton6.Enabled := True;
    end
    else
    begin
      N14.Enabled := False;
      SpeedButton6.Enabled := False;
    end;
    //
    if Adoquery1.Fields.Fields[10].AsString = '1' then
    begin
      N16.Enabled := True;
      SpeedButton7.Enabled := True;
    end
    else
    begin
      N16.Enabled := False;
      SpeedButton7.Enabled := False;
    end;
    //
    if Adoquery1.Fields.Fields[11].AsString = '1' then
    begin
      N18.Enabled := True;
      SpeedButton8.Enabled := True;
    end
    else
    begin
      N18.Enabled := False;
      SpeedButton8.Enabled := False;
    end;
    //
    if Adoquery1.Fields.Fields[12].AsString = '1' then
    begin
      N19.Enabled := True;
      SpeedButton9.Enabled := True;
    end
    else
    begin
      N19.Enabled := False;
      SpeedButton9.Enabled := False;
    end;
    //
    if Adoquery1.Fields.Fields[13].AsString = '1' then
    begin
      N17.Enabled := True;
    end
    else
    begin
      N17.Enabled := False;
    end;
    //
    if Adoquery1.Fields.Fields[14].AsString = '1' then
    begin
      N21.Enabled := True;
      SpeedButton12.Enabled := True;
    end
    else
    begin
      N21.Enabled := False;
      SpeedButton12.Enabled := False;
    end;
    //
    if Adoquery1.Fields.Fields[15].AsString = '1' then
    begin
      N22.Enabled := True;
      SpeedButton13.Enabled := True;
    end
    else
    begin
      N22.Enabled := False;
      SpeedButton13.Enabled := False;
    end;
    //
    if Adoquery1.Fields.Fields[16].AsString = '1' then
    begin
      N33.Enabled := True;
    end
    else
    begin
      N33.Enabled := False;
    end;
    //
    if Adoquery1.Fields.Fields[17].AsString = '1' then
    begin
      N24.Enabled := True;
      SpeedButton11.Enabled := True;
    end
    else
    begin
      N24.Enabled := False;
      SpeedButton11.Enabled := False;
    end;
    //
    if Adoquery1.Fields.Fields[18].AsString = '1' then
    begin
      SpeedButton10.Enabled := True;
    end
    else
    begin
      SpeedButton10.Enabled := False;
    end;
    //
    if Adoquery1.Fields.Fields[19].AsString = '1' then
    begin
      SpeedButton14.Enabled := True;
    end
    else
    begin
      SpeedButton14.Enabled := False;
    end;
  end;
end;

procedure Tmain_form.N20Click(Sender: TObject);
begin
  if not Assigned(Backup_Form) then
  begin
    Backup_Form := TBackup_Form.Create(Self);
  end;
  Backup_Form.ShowModal;
end;

procedure Tmain_form.N25Click(Sender: TObject);
begin
  if not Assigned(Restore_Form) then
  begin
    Restore_Form := TRestore_Form.Create(Self);
  end;
  Restore_Form.ShowModal;
end;

procedure Tmain_form.SpeedButton8Click(Sender: TObject);
begin
  Jh_Form := TJh_Form.Create(self);
  Jh_Form.Show;
end;

procedure Tmain_form.SpeedButton9Click(Sender: TObject);
begin
  if not Assigned(Jh_th_Form) then
  begin
    Jh_th_Form := TJh_th_Form.Create(self);
  end;
  Jh_th_Form.Show;
end;

procedure Tmain_form.SpeedButton10Click(Sender: TObject);
begin
  if not Assigned(Cbhc_Form) then
  begin
    Cbhc_Form := TCbhc_Form.Create(self);
  end;
  Cbhc_Form.Show;
end;

procedure Tmain_form.SpeedButton11Click(Sender: TObject);
begin
  if not Assigned(Kc_Form) then
  begin
    Kc_Form := TKc_Form.Create(self);
  end;
  Kc_Form.Show;
end;

procedure Tmain_form.SpeedButton12Click(Sender: TObject);
begin
  if not Assigned(Xsh_Form) then
  begin
    Xsh_Form := TXsh_Form.Create(self);
  end;
  Xsh_Form.Show;
end;

procedure Tmain_form.SpeedButton13Click(Sender: TObject);
begin
  if not Assigned(Khth_Form) then
  begin
    Khth_Form := TKhth_Form.Create(self);
  end;
  Khth_Form.Show;
end;

procedure Tmain_form.SpeedButton14Click(Sender: TObject);
begin
  if not Assigned(Fx_Form) then
  begin
    Fx_Form := TFx_Form.Create(self);
  end;
  Fx_Form.Show;
end;

procedure Tmain_form.N28Click(Sender: TObject);
begin
  if not Assigned(Reg_Form) then
  begin
    Reg_Form := TReg_Form.Create(Self);
  end;
  Reg_Form.ShowModal;
end;

procedure Tmain_form.SetSkin;
var
  Myini: TIniFile;
  Path: string;
begin
  Path := ExtractFilePath(Application.ExeName);
  Myini := TIniFile.Create(Path + 'Skin.ini');
  if N46.Checked then
  begin
    Myini.WriteString('SkinSet', 'UseSkin', '0');
  end;
  if N47.Checked then
  begin
    Myini.WriteString('SkinSet', 'UseSkin', '1');
  end;
  if N48.Checked then
  begin
    Myini.WriteString('SkinSet', 'UseSkin', '2');
  end;
  if N50.Checked then
  begin
    Myini.WriteString('SkinSet', 'UseSkin', '3');
  end;
  if N51.Checked then
  begin
    Myini.WriteString('SkinSet', 'UseSkin', '4');
  end;
  if N49.Checked then
  begin
    Myini.WriteString('SkinSet', 'UseSkin', '5');
  end;
  ReadSkin;
  Myini.Free;
end;

procedure Tmain_form.N46Click(Sender: TObject);
begin
  N46.Checked := True;
  N47.Checked := False;
  N48.Checked := False;
  N49.Checked := False;
  N50.Checked := False;
  N51.Checked := False;
  SetSkin;
end;

procedure Tmain_form.N47Click(Sender: TObject);
begin
  N46.Checked := False;
  N47.Checked := True;
  N48.Checked := False;
  N49.Checked := False;
  N50.Checked := False;
  N51.Checked := False;
  SetSkin;
end;

procedure Tmain_form.N48Click(Sender: TObject);
begin
  N46.Checked := False;
  N47.Checked := False;
  N48.Checked := True;
  N49.Checked := False;
  N50.Checked := False;
  N51.Checked := False;
  SetSkin;
end;

procedure Tmain_form.N49Click(Sender: TObject);
begin
  N46.Checked := False;
  N47.Checked := False;
  N48.Checked := False;
  N49.Checked := True;
  N50.Checked := False;
  N51.Checked := False;
  SetSkin;
end;

procedure Tmain_form.N50Click(Sender: TObject);
begin
  N46.Checked := False;
  N47.Checked := False;
  N48.Checked := False;
  N49.Checked := False;
  N50.Checked := True;
  N51.Checked := False;
  SetSkin;
end;

procedure Tmain_form.N51Click(Sender: TObject);
begin
  N46.Checked := False;
  N47.Checked := False;
  N48.Checked := False;
  N49.Checked := False;
  N50.Checked := False;
  N51.Checked := True;
  SetSkin;
end;

procedure Tmain_form.ReadSkin; //读入保存的皮肤设置
var
  Myini: TiniFile;
  Path: string;
  Skin: string;
begin
  Path := ExtractFilePath(Application.ExeName);
  Myini := TiniFile.Create(Path + 'Skin.ini');
  Skin := Myini.ReadString('SkinSet', 'UseSkin', '0');
  case StrToIntDef(Skin, 0) of
    0:
    begin
      SkinData1.SkinFile := Path + 'skins\Skin01.skn';
      SkinData1.Active := True;
    end;
    1:
    begin
      SkinData1.SkinFile := Path + 'skins\Skin02.skn';
      SkinData1.Active := True;
    end;
    2:
    begin
      SkinData1.SkinFile := Path + 'skins\Skin03.skn';
      SkinData1.Active := True;
    end;
    3:
    begin
      SkinData1.SkinFile := Path + 'skins\Skin04.skn';
      SkinData1.Active := True;
    end;
    4:
    begin
      SkinData1.SkinFile := Path + 'skins\Skin05.skn';
      SkinData1.Active := True;
    end;
    5:
    begin
      SkinData1.Active := False;
    end;
  end;
  Myini.Free;
end;

procedure Tmain_form.FormCreate(Sender: TObject);
begin
  ReadSkin;
  SetDefaultCheckedMenu;
end;

procedure Tmain_form.SetDefaultCheckedMenu;
var
  Path: string;
  Myini: TiniFile;
  i: integer;
begin
  Path := ExtractFilePath(Application.ExeName);
  Myini := TiniFile.Create(Path + 'Skin.ini');
  i := StrToInt(Myini.ReadString('SkinSet', 'UseSkin', '0'));
  case i of
    0: N46.Checked := True;
    1: N47.Checked := True;
    2: N48.Checked := True;
    3: N50.Checked := True;
    4: N51.Checked := True;
    5: N49.Checked := True;
  end;
  Myini.Free;
end;

procedure Tmain_form.ToolButton1Click(Sender: TObject);
begin
  Jh_Form := TJh_Form.Create(self);
  Jh_Form.Show;
end;

procedure Tmain_form.ToolButton2Click(Sender: TObject);
begin
  if not Assigned(Jh_th_Form) then
  begin
    Jh_th_Form := TJh_th_Form.Create(self);
  end;
  Jh_th_Form.Show;
end;

procedure Tmain_form.ToolButton3Click(Sender: TObject);
begin
  if not Assigned(Xsh_Form) then
  begin
    Xsh_Form := TXsh_Form.Create(self);
  end;
  Xsh_Form.Show;
end;

procedure Tmain_form.ToolButton4Click(Sender: TObject);
begin
  if not Assigned(Khth_Form) then
  begin
    Khth_Form := TKhth_Form.Create(self);
  end;
  Khth_Form.Show;
end;

procedure Tmain_form.ToolButton5Click(Sender: TObject);
begin
  if not Assigned(Cbhc_Form) then
  begin
    Cbhc_Form := TCbhc_Form.Create(self);
  end;
  Cbhc_Form.Show;
end;

procedure Tmain_form.ToolButton7Click(Sender: TObject);
begin
  if not Assigned(Kc_Form) then
  begin
    Kc_Form := TKc_Form.Create(self);
  end;
  Kc_Form.Show;
end;

end.