SOLO.NET

الاخ محمد فؤاد حاول الوصول الى المقطع المراد تشفيره بالفئة ConfigurationSection Dim config As Configuration = ConfigurationManager.OpenExeConfiguration(ConfigurationUserLevel.None)Dim protectedSection As ConfigurationSection = config.GetSection("userSettings/ChangeConnectionstring.My.MySettings")' handle the exption and make sure its not null or readonly or locked protectedSection.SectionInformation.ProtectSection(Nothing) protectedSection.SectionInformation.ForceSave = True config.Save(ConfigurationSaveMode.Full)

السلام عليكم   لتشفير نص الاتصال بقواعد البيانات و/او اى Section  بداخل AppConfig.Exe.Config  الذى نستخدمه ويرفق بالمشروع ويتم ارفاق نص الاتصال به لتعديله حسب بيانات العميل وحيث انه قد يحوى كلمة سر وبيانات لا نريدها ظاهرة للعيان قد تحتاج لاضافة مرجع لــSystem.Configuration ومن ثم عمل Imports System.Configuration الكلاسConfiguration نجد به الميثود ProtectSection  والذى يقوم بتشفير Section  المراد بواسطة خوارزمين هما   DPAPIProtectedConfigurationProviderRSAProtectedConfigurationProviderالاخير هو المزود الافتراضى بتمرير Nothing  للميثود السابق ذكره   لنفرض ان لدينا نص الاتصال هكذا بملف AppConfig.Exe.Config <?xml version="1.0" encoding="utf-8" ?><configuration> <configSections> </configSections> <connectionStrings> <add name="ChangeAndEncryptConnectionString.My.MySettings.Conn" connectionString="Data Source=.\SQL2012;Initial Catalog=Test;Integrated Security=True" providerName="System.Data.SqlClient" /> </connectionStrings> <startup> <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.0,Profile=Client" /> </startup></configuration>فاذا اردنا تشفيره ولاتقلق بشأن فك التشفير  حيث سيتم بشكل تلقائى ويمكن قراءة البيانات كانها غير مشفرة Dim config As Configuration = ConfigurationManager.OpenExeConfiguration(ConfigurationUserLevel.None) config.ConnectionStrings.SectionInformation.ProtectSection(Nothing) config.Save(ConfigurationSaveMode.Full, True)لقراءة او تعديل نص الاتصال config.ConnectionStrings.ConnectionStrings.Item("ChangeAndEncryptConnectionString.My.MySettings.Conn").ConnectionString = "Data Source=-\SQL2012;Initial Catalog=Test;Integrated Security=False"للمزيد  http://msdn.microsoft.com/en-us/library/system.configuration.sectioninformation.aspx

السؤوال غير واضح فجملة select  التى كتبتها صحيحة SELECT sum(f1*f2) FROM t3

try this class NumbersLetterCounter { int number = 0; int fChar = 65; int sChar = 10; bool up = false; public string GetNext() { number++; if (number <= 99) { return string.Format("{0}{1}{2}", (char)sChar, (char)fChar, number.ToString("00")); } number=1; fChar++; if (fChar <= 90) { return string.Format("{0}{1}{2}", (char)sChar, (char)fChar, number.ToString("00")); } fChar = 65;   if (!up ) { sChar = 64; } sChar++; number = 1; up = true; if (sChar <= 90) { return string.Format("{0}{1}{2}", (char)sChar, (char)fChar, number.ToString("00")); } // Here Rise Exption fChar = 100; number = 100; return "out of range:"; } }

using System.Linq; using System.Text; using System.Threading.Tasks; using System.Windows.Forms; namespace WindowsFormsApplication5 { public partial class Form1 : Form { public Form1() { InitializeComponent(); } Form2 f1; private void button1_Click(object sender, EventArgs e) { if (panel1.Controls.Contains(f1)) { return; } f1 = new Form2(); f1.FormBorderStyle = FormBorderStyle.None; f1.TopLevel = false; f1.AutoScroll = true; this.panel1.Controls.Clear(); this.panel1.Controls.Add(f1); f1.Show(); } } }

جرب تنسيق التنسيق  dateTimePicker1.Value.ToString("dd/MM/yyyy")

اجعل شاشة البرنامج الاساسية هى التى يقلع منها البرنامج وفى الحدث Shown افتح فورم شاشة الدخول.... كالتالى Private Sub Form1_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown Dim f As New Form2 If f.ShowDialog = Windows.Forms.DialogResult.Cancel Then Me.Close() End If End Subفى فورم الدخول اجعل خاصية CancelButton للفورم = زر الاالغاء

private void button1_Click(object sender, EventArgs e) { var str = richTextBox1.Text.Split(new Char[] { ' ', '\t' }); richTextBox1.Clear(); foreach (String s in str) { if (s.StartsWith("<*")==false) { richTextBox1.Text += s + " "; } }

لماذا تستخدمprintPreviewDialog1  اذا كنت لا تريد معاينة ما تريد طباعته   اطبع مباشرة //printPreviewDialog1.ShowDialog(); printDocument1.Print();

المثال VS2012

المثالRadioButton.rar

السلام عليكم على افتراض ان لديك 3  RadioButton  على الفورم نجعل خاصية tag  فى RadioButton1=1  وهكذا للثانى 2 والثالث 3 Public Class Form1 Private Enum CurrentCheckedRadioButton None = 0 RadioButton1 = 1 RadioButton2 = 2 RadioButton3 = 3 End Enum Private chekedRadioButton As CurrentCheckedRadioButton = CurrentCheckedRadioButton.None Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.CheckedChanged, RadioButton2.CheckedChanged, RadioButton3.CheckedChanged If CType(sender, Windows.Forms.RadioButton).Name = chekedRadioButton.ToString Then Exit Sub End If Select Case chekedRadioButton Case CurrentCheckedRadioButton.RadioButton1 MessageBox.Show("You Moved form :RadioButton1 to : " + CType(sender, Windows.Forms.RadioButton).Name) Case CurrentCheckedRadioButton.RadioButton2 MessageBox.Show("You Moved form :RadioButton2 to : " + CType(sender, Windows.Forms.RadioButton).Name) Case CurrentCheckedRadioButton.RadioButton3 MessageBox.Show("You Moved form :RadioButton3 to : " + CType(sender, Windows.Forms.RadioButton).Name) End Select chekedRadioButton = CInt(CType(sender, Windows.Forms.RadioButton).Tag) End SubEnd Class

السلام عليكم   انشئ User Control  وضع بها الادوات الثلاث  واضف خاصية لقراءة قيم الادوات لمقارنتها لاحقا using System;using System.Collections.Generic;using System.ComponentModel;using System.Drawing;using System.Data;using System.Linq;using System.Text;using System.Threading.Tasks;using System.Windows.Forms;namespace MyCustomControl{ public partial class UserControlx: UserControl { public string ControlValue { get { return this.comboBoxCostCenter.Text.Trim()+this.numericUpDownAccount.Value.ToString()+this.textBoxValue.Text.Trim(); } } public UserControlx() { InitializeComponent(); } }}للمقارنة private void button1_Click(object sender, EventArgs e) { foreach (MyCustomControl.UserControlx ctrl in this.panel1.Controls) { foreach (MyCustomControl.UserControlx c in this.panel1.Controls) { if (c.Name != ctrl.Name) { if (c.ControlValue == ctrl.ControlValue) { MessageBox.Show("the data are equale in control : " + ctrl.Name + " and :" + c.Name); return; } } } } }CustomControl.rar

RDL-CPICTURE.rar   المثال

السلام عليكم   هذا مثال باستخدام قاعدة بيانات اكسس ...مع النصيحة لا تخزن الصور فى قاعدة البيانات وفقط خزن مسار الملف بينما احفظ الصور بداخل مجلد...حفاظا على حجم قاعدة البيانات المثال عبارة عن فورم وبه reportviewer  و 3 button و picturebox زر لاستعراض الصور من الكمبيوتر وعرضها فى بيكتر بوكس الكود OpenFileDialog openDlg = new OpenFileDialog(); openDlg.Filter = "All jpg files | *.jpg"; string filter = openDlg.Filter; openDlg.Title = "Open a jpg File"; if (openDlg.ShowDialog() == DialogResult.OK) { pictureBox1.Image = Image.FromFile(openDlg.FileName); }زر لحفظ الصورة من البيكشربوكس لقاعدة البيانات DB.ACC الكود OleDbConnection myConnection = null; try { byte[] imagedata = imageToByteArray(pictureBox1.Image); myConnection = new OleDbConnection(ConnectionString); OleDbCommand myCommand = new OleDbCommand("INSERT INTO T1 (PIC) VALUES (?)", myConnection); OleDbParameter myParameter = new OleDbParameter("@PIC", OleDbType.LongVarBinary, imagedata.Length); myParameter.Value = imagedata; myCommand.Parameters.Add(myParameter); myConnection.Open(); myCommand.ExecuteNonQuery(); } finally { myConnection.Close(); }واخير زر لعرض تحميل البيانات من الجدول وعرضها بالتقرير.... حيث تقوم بنشاء تقرير واضافه Dataset  للتقرير وتم تسميتها ds حيث يتم اضافة Image  من ToolBox  للتقرير وتعديل الخصائص لها كالتالى: Select ImageSource =DataBase Use This feild=Choose your filed from dataset that hold photo Use this MIM type=Choose the image type..  الكود using (OleDbConnection cn = new OleDbConnection(ConnectionString)) { cn.Open(); using (OleDbCommand cmd = new OleDbCommand("select * FROM T1", cn)) { using (OleDbDataAdapter da = new OleDbDataAdapter(cmd)) { DataSet ds = new DataSet(); da.Fill(ds); //ReportDataSource rds = new ReportDataSource("DataSet1", ds.Tables[0]); //reportViewer1.LocalReport.DataSources.Clear(); //reportViewer1.LocalReport.DataSources.Add(rds); //reportViewer1.LocalReport.Refresh(); reportViewer1.ProcessingMode = Microsoft.Reporting.WinForms.ProcessingMode.Local; reportViewer1.LocalReport.DataSources.Clear(); reportViewer1.LocalReport.DataSources.Add(new ReportDataSource("ds", ds.Tables[0])); reportViewer1.LocalReport.Refresh(); reportViewer1.RefreshReport(); } } }كود الفورم كامل using Microsoft.Reporting.WinForms;using System;using System.Collections.Generic;using System.ComponentModel;using System.Data;using System.Data.OleDb;using System.Drawing;using System.IO;using System.Linq;using System.Text;using System.Threading.Tasks;using System.Windows.Forms;namespace RDL_CPICTURE{ public partial class Form1 : Form { private string ConnectionString = @"Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\DB.accdb"; public Form1() { InitializeComponent(); } public byte[] imageToByteArray(System.Drawing.Image imageIn) { using (var ms = new MemoryStream()) { imageIn.Save(ms, System.Drawing.Imaging.ImageFormat.Gif); return ms.ToArray(); } } private void button1_Click(object sender, EventArgs e) { OleDbConnection myConnection = null; try { byte[] imagedata = imageToByteArray(pictureBox1.Image); myConnection = new OleDbConnection(ConnectionString); OleDbCommand myCommand = new OleDbCommand("INSERT INTO T1 (PIC) VALUES (?)", myConnection); OleDbParameter myParameter = new OleDbParameter("@PIC", OleDbType.LongVarBinary, imagedata.Length); myParameter.Value = imagedata; myCommand.Parameters.Add(myParameter); myConnection.Open(); myCommand.ExecuteNonQuery(); } finally { myConnection.Close(); } } private void button2_Click(object sender, EventArgs e) { OpenFileDialog openDlg = new OpenFileDialog(); openDlg.Filter = "All jpg files | *.jpg"; string filter = openDlg.Filter; openDlg.Title = "Open a jpg File"; if (openDlg.ShowDialog() == DialogResult.OK) { pictureBox1.Image = Image.FromFile(openDlg.FileName); } } private void Form1_Load(object sender, EventArgs e) { // TODO: This line of code loads data into the 'DBDataSet.T1' table. You can move, or remove it, as needed. this.T1TableAdapter.Fill(this.DBDataSet.T1); this.reportViewer1.RefreshReport(); } private void button3_Click(object sender, EventArgs e) { using (OleDbConnection cn = new OleDbConnection(ConnectionString)) { cn.Open(); using (OleDbCommand cmd = new OleDbCommand("select * FROM T1", cn)) { using (OleDbDataAdapter da = new OleDbDataAdapter(cmd)) { DataSet ds = new DataSet(); da.Fill(ds); //ReportDataSource rds = new ReportDataSource("DataSet1", ds.Tables[0]); //reportViewer1.LocalReport.DataSources.Clear(); //reportViewer1.LocalReport.DataSources.Add(rds); //reportViewer1.LocalReport.Refresh(); reportViewer1.ProcessingMode = Microsoft.Reporting.WinForms.ProcessingMode.Local; reportViewer1.LocalReport.DataSources.Clear(); reportViewer1.LocalReport.DataSources.Add(new ReportDataSource("ds", ds.Tables[0])); reportViewer1.LocalReport.Refresh(); reportViewer1.RefreshReport(); } } } } }}