07-10-14, 12:22 AM
الصفحات : 1 2
07-10-14, 12:32 AM
السلام عليكم
بدي يوم اضغط ع زر معين على الكيبورت ينفذ شي يعني مثلا اضغط على F2 ينفذ لي امر وهل لغة السي شارب اقدر اغير الماوس واتحكم
بدي يوم اضغط ع زر معين على الكيبورت ينفذ شي يعني مثلا اضغط على F2 ينفذ لي امر وهل لغة السي شارب اقدر اغير الماوس واتحكم
07-10-14, 12:46 AM
(07-10-14, 12:32 AM)lissa كتب : [ -> ]السلام عليكم
بدي يوم اضغط ع زر معين على الكيبورت ينفذ شي يعني مثلا اضغط على F2 ينفذ لي امر وهل لغة السي شارب اقدر اغير الماوس واتحكم
وعليكم السلام
بالنسبه للسؤال الاول
كود :
private void Form1_KeyDown(object sender, KeyEventArgs e)
{ // اغلق لي البرنامج f10 يعني اذا اذا ضغط في الكيبورت على if هنا نستخدم اداة
if (e.KeyCode == Keys.F10)
this.Close(); // MUDZ
}
}
}
انسخ كما هو
اما السؤال الثاني فموضوعو من هنا
اخوكم محمد الرشيدي
07-10-14, 03:16 PM
On error resume next
Dim name , str as string
("بحث"،"ادخل الاسم المطلوب") name = input
[align=left] if len ( name ) = 0 then
MsgBox " لم تقم بادخال اي بيانات "
Exit sub
End If
('الاسم المطلوب'=str = "name=' " + name + " ' " 'str= ( name
Adodc1.recordset.findfirst
If adodc1 . Recordset. Nomath = true then
"هذا الاسم غير موجود"Msgbox
Else
txt1.text= adodc1. recordset! name
End if
Dim name , str as string
("بحث"،"ادخل الاسم المطلوب") name = input
[align=left] if len ( name ) = 0 then
MsgBox " لم تقم بادخال اي بيانات "
Exit sub
End If
('الاسم المطلوب'=str = "name=' " + name + " ' " 'str= ( name
Adodc1.recordset.findfirst
If adodc1 . Recordset. Nomath = true then
"هذا الاسم غير موجود"Msgbox
Else
txt1.text= adodc1. recordset! name
End if
07-10-14, 03:24 PM
السلام عليكم ورحمه الله هذا الكود هو تطبيق على عمليه البحث بس من انفذه على مشرؤعي يضهر عندي خطا بالايعازات
Adodc1 .recordset .findfirst str
If adodc1 .recordset. nomatch =ture then
يضهر الخطا هنا عند هاي النقطتين
واصلا من استدعي بعد adodc يضهر فقد find لا يوجد ف
Findfirst وكذالك بالنسبه الى nomatch مدا اعرف شنو السبب بس اتمنى احد يجاؤبني وربي يؤفقكم جميعاا
Adodc1 .recordset .findfirst str
If adodc1 .recordset. nomatch =ture then
يضهر الخطا هنا عند هاي النقطتين
واصلا من استدعي بعد adodc يضهر فقد find لا يوجد ف
Findfirst وكذالك بالنسبه الى nomatch مدا اعرف شنو السبب بس اتمنى احد يجاؤبني وربي يؤفقكم جميعاا
08-10-14, 06:36 AM
(07-10-14, 03:24 PM)هدى كتب : [ -> ]السلام عليكم ورحمه الله هذا الكود هو تطبيق على عمليه البحث بس من انفذه على مشرؤعي يضهر عندي خطا بالايعازات
Adodc1 .recordset .findfirst str
If adodc1 .recordset. nomatch =ture then
يضهر الخطا هنا عند هاي النقطتين
واصلا من استدعي بعد adodc يضهر فقد find لا يوجد ف
Findfirst وكذالك بالنسبه الى nomatch مدا اعرف شنو السبب بس اتمنى احد يجاؤبني وربي يؤفقكم جميعاا
وعليكم السلام ورحمة الله
انت في المكان الخاطئ هنا قسم C# just
وانت طرحت لغة دوت نت من نوع VB
يمكنك سؤال في قسم الدوت نت vb وسوف يساعدوك.وتعلم أين الخطأ في الكود من هنا
شكرا ويسرنا مساعدتك
08-10-14, 06:38 PM
الزميل الغالي
لدي مشكلة عند طباعة فاتورة مصممة بالكريستال على طابعة "EPSON LQ-300+ /II ESC/P 2" حيث تتم طباعة الفاتورة بمنتصف صفحة A4 رغم إعداد حجم الورق بالتقرير إلى 23x14 والكود المستخدم هو
(private void btnprint_Click(object sender, EventArgs
{
DataTable dat = new DataTable();
dat = orddet.searchbill("orderid",textnumorder.Text.Trim());
grd3.DataSource = dat;
reports.RByInv2_E0 myreport = new reports.RByInv2_E0();
myreport.SetDataSource(dat);
reports.FrmReportBill myform = new sales.reports.FrmReportBill();
myreport.PrintOptions.PrinterName = "EPSON LQ-300+ /II ESC/P 2";
myreport.PrintToPrinter(1,false,0,0);
}
حيث يتم سحب 2 فاتورة من طابعة EPSON على الرغم من إعداد التقرير والطابعة بمقاس ورق LETER
والفاتورة مقاسها نصف A4 أي ِِA5 عرضي
هل لديك حل فأنا تعبت من البحث عن حل لهذه المشكلة
لدي مشكلة عند طباعة فاتورة مصممة بالكريستال على طابعة "EPSON LQ-300+ /II ESC/P 2" حيث تتم طباعة الفاتورة بمنتصف صفحة A4 رغم إعداد حجم الورق بالتقرير إلى 23x14 والكود المستخدم هو
(private void btnprint_Click(object sender, EventArgs
{
DataTable dat = new DataTable();
dat = orddet.searchbill("orderid",textnumorder.Text.Trim());
grd3.DataSource = dat;
reports.RByInv2_E0 myreport = new reports.RByInv2_E0();
myreport.SetDataSource(dat);
reports.FrmReportBill myform = new sales.reports.FrmReportBill();
myreport.PrintOptions.PrinterName = "EPSON LQ-300+ /II ESC/P 2";
myreport.PrintToPrinter(1,false,0,0);
}
حيث يتم سحب 2 فاتورة من طابعة EPSON على الرغم من إعداد التقرير والطابعة بمقاس ورق LETER
والفاتورة مقاسها نصف A4 أي ِِA5 عرضي
هل لديك حل فأنا تعبت من البحث عن حل لهذه المشكلة
12-11-15, 12:44 PM
السلام عليكم
اخي ممكنن مساعد
قمت بانشاء مشروع مبيعات بلغة السي شارب وباستخدام sql server 2008
وقد قمت بتنزيل sql في جهاز العميل وعملت attach لقاعدة البيانات
وعند عمل رن للبرنامج علي جهاز العميل يحدث خطأ ولاتوجد بيانات
علماً باني لاعرف كيفية تغيير sqlconnction ( اسم قاعدة البيانات واسم السيرفر ) عند نقلة
sqlconnction =new sqlconntion (" data source = pc-ema; inital catalig= em ; integrated security =true )
اخي ممكنن مساعد
قمت بانشاء مشروع مبيعات بلغة السي شارب وباستخدام sql server 2008
وقد قمت بتنزيل sql في جهاز العميل وعملت attach لقاعدة البيانات
وعند عمل رن للبرنامج علي جهاز العميل يحدث خطأ ولاتوجد بيانات
علماً باني لاعرف كيفية تغيير sqlconnction ( اسم قاعدة البيانات واسم السيرفر ) عند نقلة
sqlconnction =new sqlconntion (" data source = pc-ema; inital catalig= em ; integrated security =true )
12-11-15, 02:00 PM
(12-11-15, 12:44 PM)esmail91 كتب : [ -> ]السلام عليكمبعد اذن المشرفين وصاحب الموضوع ..
اخي ممكنن مساعد
قمت بانشاء مشروع مبيعات بلغة السي شارب وباستخدام sql server 2008
وقد قمت بتنزيل sql في جهاز العميل وعملت attach لقاعدة البيانات
وعند عمل رن للبرنامج علي جهاز العميل يحدث خطأ ولاتوجد بيانات
علماً باني لاعرف كيفية تغيير sqlconnction ( اسم قاعدة البيانات واسم السيرفر ) عند نقلة
sqlconnction =new sqlconntion (" data source = pc-ema; inital catalig= em ; integrated security =true )
اخي العزيز أولا اذا كنت تستخدم هذا الاتصال في كل class عندك في المشروع فهذا خطا يجب تصحيحه وقد وقعت فيه من قبل... لولا تنبيهي من أحد المبرمجين بضروره بناء تطبيق متعدد الطبقات n-Tire Application
ثانيا: انا استخدم ملف appllication config وطريقته اسهل بحيث يمكنك التعديل في connection string بسهوله
الطريقه هي : كليك يمين علي المشروع في الفيجوال استوديو ثم Add New Item ثم اختيار Application Configuration file ثم موافق تلاحظ بعدها انه تم عمل ملف App.config داخل مشروع تفتح الملف وتضيف السطر الموجود
كود :
<?xml version="1.0"?>
<configuration>
<configSections>
</configSections>
<connectionStrings>
<<add name="em" connectionString="Data Source=pc-ema;Initial Catalog=em;integrated security =true;"/>
</connectionStrings>
<startup><supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.0"/></startup></configuration>
وهذا هو connection string معمم علي مستوي مشروعك والذي تستخدمه كDataAccessLayer حاول اولا تجربتها علي جهازك فان عملت بنجاح فيمكنك تغيير الاتصال بسهوله علي اي جهاز اخر طبعا بعد تحزيم البرنامج يجب ان يتضمن ملف App.Config وبمجرد فتح الملف في اي كمبيوتر يمكنك تعديل الاتصال بسهوله بواسطه:
data source وهي مصدر قاعده البيانات (اسم جهاز الكمبيوتر المحمل عليه قاعده البيانات او السيرفر مثلا 192.168.1.100 أو pc-Name
اسم جهاز الكمبيوتر تعرفه بسهوله من Computer-Pproperties مع ملاحظه انه اذا تم تغيير اسم الكمبيوتر او السيرفر فلا يعمل البرنامج لوجود اخطاء بالاتصال
Initial Catalog وهي اسم قاعده البيانات التي قمت بانشائها او عمل Attach لها
طريقتك علي ماعتقد انه يجب اولا معرفه اسم الكمبيوتر الذي سيتم تشغيل البرنامج عليه ثم بعد تعديل اسم الكمبيوتر في الكود تعمل rebuild للبرنامج ؟؟؟
ان كنت اخطات بشئ فارجوا من المشرفين تصحيح خطأي ...
09-12-15, 06:34 PM
سلمت ايداك
الصفحات : 1 2