الانتقال الى المشاركة

Primary: Sky Slate Blackcurrant Watermelon Strawberry Orange Banana Apple Emerald Chocolate Marble
Secondary: Sky Slate Blackcurrant Watermelon Strawberry Orange Banana Apple Emerald Chocolate Marble
Pattern: Blank Waves Squares Notes Sharp Wood Rockface Leather Honey Vertical Triangles
مرحبا بك في منتديات ابن خلدون التعليمية

أهلا وسهلا بك زائرنا الكريم، و يشرفنا أن تقوم بالتسجيل إذا رغبت بالمشاركة في المنتدى، أما إذا رغبت بقراءة المواضيع والإطلاع فتفضل بزيارة القسم الذي ترغب أدناه.


تسجيل الدخول التسجيل الآن



صورة

برنامج لتسيير متجر لبيع منتوجات


  • لا تستطيع كتابة موضوع جديد
  • من فضلك قم بتسجيل دخولك لتتمكن من الرد
عدد ردود الموضوع : 4

#1
غير متصل   sabre

sabre

    Advanced Member

  • الأعضاء
  • Pip Pip Pip
  • 50 المشاركات
  • البلد: Country Flag

 بسم الله الرحمن الرحيم
الصلاة والسلام على رسول الله

برنامج لتسيير متجر لبيع منتوجات

مـــــــــــــــــاهـــو رأيكم في البرنامج

أي اخطاء ترونها اعلموني بها
أو اقترحات تحبون اضافتها  وشكرا

1

الوحدة الاولى هي الواجهة الرئيسية للبرنامج فبمجرد الدخول
تستطيع الدخول الى كافة الاقسام في البرنامج

2


الوحدة الثانية
من خلالها تستطيع  تسجيل كافة السلع الموجودة في المحل   و التي ستجلب فيما بعد
فتسجيل كل السلع يجعل البرنامج يعمل بشكل جيد ، فقم بتسجيل كل الموجودات

طريقة التسجيل تكون بكتابة اسم السلعة في المربع الاول وكتابة
الكمية التي تم شراؤها في المربع الثاني
وكتابة ثمن السلعة في المربع الثالث أقصد ثمن البيع وليس ثمن الشراء
وكتابة ثمن شراءالسلعة في مربع حوار يضهر بعد ضغط فوق تسجيل

لأنك عندما تقوم فيما بعد باجراء عملية البيع لن تكون مضطر الى كتابة الثمن
لأنه سيتم جلبه آليا من قاعدة البيانات لأنه مسجل فيها

ملاحظة هامة

البرنامج يقبل الفواصل
أقصد أنه يعمل على كل الاعداد
فأرجــــــــو الانتباه الى ذلك عند تسجيل
مثال : هذه القيمة
546.00 دج
تقرأ خمس مئة وستة واربعون دج


3

الوحدة الثالثة لتحرير فاتــورة ما
كتابة اسم السلعة في المربع الاول
وكتابة عدد السلعة في المربع الثاني
والضغط فوق حساب
ظهور النتيجة في المربع الكبير بالتفصيل لكل سلعة
وظهور المجموع الكلي للسلع التي تم بيعها المربع "المجموع الكلي"

اذا كانت دين اشر على "تسجيل في قائمة الديون" قبل الكتابة اسم الدائن
اختر من القائمة اذا كان من أصحاب الديون الموجودين عندك أو
 أكتب اسم صاحب الدين في المربع السفلي



اذا أردت تسجيل جديد ماعليك سوى الضغط فوق "جديد وحفظ"
ويمكنك حفظ ها في ملف نصي اذا أردت ذلك
وعند المغادرة تطالب بحفظ النتيجة كذلك

4

الوحدة الرابعة

تمثل المجموع الكلي أقصد مجوع المبيعات

ظهور "مجــمــوع المبيعات التي تمّ بيعها" في المربع الاول
كتابة كل ما تم شراه للمحل من سلع  في المربع الثاني
الضغط فوق "تسجيل" وظهوره في الثالث

ظهور النسبة المأوية في المربع الرابع بعد الضقط فوق "حساب"

ديون المحل المتوجب على صاحب المحل سدادها
هي ديون استدان بها صاحب المحل
تكتب في المربع الخامس وظهورها في المربع السادس

لاظهار ديون المحل الضقط فوق  "مجموع الدين"

لحذف الديون الضغط فوق "حـــذف مجــمو ع الديـن"

5
الوحدة الخامسة
لعرض أصحاب الديون
المربع الاول اسم صاحب الدين
المربع الثاني المبلغ والضغط فوق "تسجيل"

المربع الثالث لتحذيرات أقصد عدد السلعة التي سيتم تحذرك به
أكتب فيه عدد السلع مثلا 10 أو 3
اذا بقية لك 10 أو 3 تأتيك رسالة تنبهك على أن السلعة قد نفذت من المحل

المربع الرابع لضريبة تيفيا TVA اكتب في المربع مثلا 17 أو غيرها
اضغط فوق "تسجيل"

وفي الشبكة
سيتم عرض أصحاب الديون المتوجب عليهم سدادها

mediafire . com

رابط تحميل البرنامج
http://www.mediafire...ciiqd/March.rar

2 رابط تحميل البرنامج
http://download1722....ciiqd/March.rar

رابط تحميل الصور لتوضيح عمل البرنامج
http://www.mediafire...jfbi89/imag.rar

رابط تحميل المساعد النصي
http://www.mediafire.../HELP MARCH.txt


====

file-upload . com

رابط تحميل البرنامج
https://www.file-upl...om/valzok28wzwg

رابط تحميل المساعد النصي
https://www.file-upl...om/34pty7cyu8uw

===


up-4ever . com

رابط التحميل البرنامج
https://www.up-4ever.com/qje2ldo1u5qu

رابط التحميل الصور التي تشرح عمل البرنامج
https://www.up-4ever.com/50wek1zn9pmy

رابط التحميل ملف نصي مساعد

 

https://www.up-4ever.com/b3cl8xqleq9t

 

 

 

سيتم وضع الكود سورس خلال ايام   ان شاء الله

 

شكرا
 



#2
غير متصل   sabre

sabre

    Advanced Member

  • الأعضاء
  • Pip Pip Pip
  • 50 المشاركات
  • البلد: Country Flag
 

لم استطع وضع المرفق جاءت رسالة تقول

 

"خطـأ غير مسموح برفع هذة النوعية من الملفات "

 

ماهو الحل شكرا


  • halim_mah معجب بهذا

#3
غير متصل   halim_mah

halim_mah

    المدير

  • المدراء
  • 5825 المشاركات
  • المنطقه Tiaret
  • البلد: Country Flag

ضعها بالميديا فاير 

وضع رابط التحميل المباشر بالمنتدى كما فعلت في الموضوع 


تابع معنا جديد مسابقات التوظيف يوميا من هنا

 

 

تابع معنا كل المباريات يوميا من مختلف الدوريات من هنا 

 

 

بدون الردود تجف المواضيع 

 

 

:P 

 

 

 

قم بالإطلاع على مسابقة المنتدى 

 

 

:wub: من هنا  :wub: 

 

 

 

:)

 

.


#4
غير متصل   sabre

sabre

    Advanced Member

  • الأعضاء
  • Pip Pip Pip
  • 50 المشاركات
  • البلد: Country Flag
    unit Unit2;{educarb.com}
 {educarb.com}
interface{educarb.com}
{educarb.com}
uses{educarb.com}
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,{educarb.com}
  Db, DBTables, StdCtrls, Buttons, Grids, DBGrids, ComCtrls, math;{educarb.com}
{educarb.com}
type{educarb.com}
  TForm2 = class(TForm){educarb.com}
    Table1: TTable;{educarb.com}
    Edit1: TEdit;{educarb.com}
    Edit2: TEdit;{educarb.com}
    Edit3: TEdit;{educarb.com}
    BitBtn1: TBitBtn;{educarb.com}
    DBGrid1: TDBGrid;{educarb.com}
    DataSource1: TDataSource;{educarb.com}
    BitBtn2: TBitBtn;{educarb.com}
    BitBtn3: TBitBtn;{educarb.com}
    ComboBox1: TComboBox;{educarb.com}
    CheckBox1: TCheckBox;{educarb.com}
    BitBtn4: TBitBtn;{educarb.com}
    Label1: TLabel;{educarb.com}
    Label2: TLabel;{educarb.com}
    Label3: TLabel;{educarb.com}
    BitBtn5: TBitBtn;{educarb.com}
    Query1: TQuery;{educarb.com}
    Table1Code: TFloatField;{educarb.com}
    Table1Nom: TStringField;{educarb.com}
    Table1Nombre_P1: TStringField;{educarb.com}
    Table1Nombre_P2: TStringField;{educarb.com}
    Table1Prix: TCurrencyField;{educarb.com}
    Table1DateTimes: TDateTimeField;{educarb.com}
    Query1Code: TFloatField;{educarb.com}
    Query1Nom: TStringField;{educarb.com}
    Query1Nombre_P1: TStringField;{educarb.com}
    Query1Nombre_P2: TStringField;{educarb.com}
    Query1Prix: TCurrencyField;{educarb.com}
    Query1DateTimes: TDateTimeField;{educarb.com}
    CheckBox2: TCheckBox;{educarb.com}
    CheckBox3: TCheckBox;{educarb.com}
    StatusBar1: TStatusBar;{educarb.com}
    Table1Prix_Achet: TCurrencyField;{educarb.com}
    Query1Prix_Achet: TCurrencyField;{educarb.com}
    Table2: TTable;{educarb.com}
    Table2Code: TFloatField;{educarb.com}
    Table2Grand_Prix: TCurrencyField;{educarb.com}
    Table2Grand_Prix1: TCurrencyField;{educarb.com}
    Table2Datetaimes: TDateTimeField;{educarb.com}
    Label4: TLabel;{educarb.com}
    procedure FormClose(Sender: TObject; var Action: TCloseAction);{educarb.com}
    procedure FormActivate(Sender: TObject);{educarb.com}
    procedure FormCreate(Sender: TObject);{educarb.com}
    procedure Table1BeforeOpen(DataSet: TDataSet);{educarb.com}
    procedure BitBtn1Click(Sender: TObject);{educarb.com}
    procedure Edit1Change(Sender: TObject);{educarb.com}
    procedure Edit2Change(Sender: TObject);{educarb.com}
    procedure BitBtn2Click(Sender: TObject);{educarb.com}
    procedure FormShow(Sender: TObject);{educarb.com}
    procedure ComboBox1Change(Sender: TObject);{educarb.com}
    procedure BitBtn3Click(Sender: TObject);{educarb.com}
    procedure CheckBox1Click(Sender: TObject);{educarb.com}
    procedure BitBtn4Click(Sender: TObject);{educarb.com}
    procedure chargComb(Sender: TObject);{educarb.com}
    procedure DBGrid1DblClick(Sender: TObject);{educarb.com}
    procedure CheckBox2Click(Sender: TObject);{educarb.com}
    procedure CheckBox3Click(Sender: TObject);{educarb.com}
    procedure Table2BeforeOpen(DataSet: TDataSet);{educarb.com}
  private public{educarb.com}
  procedure DisplayHint(Sender:TObject);{educarb.com}
  end;{educarb.com}
{educarb.com}
var{educarb.com}
  Form2: TForm2; i: Integer;{educarb.com}
{educarb.com}
implementation{educarb.com}
{educarb.com}
uses Unit1;{educarb.com}
{educarb.com}
{$R *.DFM}{educarb.com}
{educarb.com}
procedure TForm2.chargComb(Sender: TObject);{educarb.com}
begin{educarb.com}
  Combobox1.Clear;{educarb.com}
  Combobox1.Text := 'ÎíÇÑÇÊ';{educarb.com}
{educarb.com}
  Table1.DisableControls;{educarb.com}
  try{educarb.com}
  Table1.First;{educarb.com}
  while not Table1.Eof do{educarb.com}
   begin{educarb.com}
     Combobox1.Items.Add(Table1Nom.Value);{educarb.com}
     Table1.Next;{educarb.com}
   end;{educarb.com}
   finally {educarb.com}
    Table1.EnableControls; end;{educarb.com}
end;{educarb.com}
{educarb.com}
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);{educarb.com}
begin{educarb.com}
  Form1.Visible := True;{educarb.com}
  i := 0;{educarb.com}
  Form1.Timer1.Enabled := True;{educarb.com}
  Query1.Active := False;{educarb.com}
end;{educarb.com}
{educarb.com}
procedure TForm2.FormActivate(Sender: TObject);{educarb.com}
begin{educarb.com}
  Form2.Left := 163;{educarb.com}
  Form2.Top := 86;{educarb.com}
  Form2.Height := 520;{educarb.com}
  Form2.Width := 720; i := 0;{educarb.com}
  Query1.Active := True;{educarb.com}
end;{educarb.com}
{educarb.com}
procedure TForm2.FormCreate(Sender: TObject);{educarb.com}
begin{educarb.com}
  Table1.Open;{educarb.com}
////////  //Query1.Active := True;{educarb.com}
  Application.OnHint :=DisplayHint;{educarb.com}
{educarb.com}
end;{educarb.com}
{educarb.com}
procedure TForm2.Table1BeforeOpen(DataSet: TDataSet);{educarb.com}
begin{educarb.com}
  Session.AddPassword('1962');{educarb.com}
end;{educarb.com}
{educarb.com}
procedure TForm2.BitBtn1Click(Sender: TObject);{educarb.com}
var ba: array[0..1] of string;{educarb.com}
    boo: boolean;{educarb.com}
    InStr: string;{educarb.com}
begin{educarb.com}
  boo := False; InStr := '';{educarb.com}
  ba[1] := Edit1.Text;{educarb.com}
  Table1.Open;{educarb.com}
  Table1.DisableControls;{educarb.com}
  try{educarb.com}
  Table1.First;{educarb.com}
  while not Table1.Eof do{educarb.com}
  begin{educarb.com}
   if ba[1] = Table1Nom.Value then boo := True;{educarb.com}
   Table1.Next;{educarb.com}
  end;{educarb.com}
   finally{educarb.com}
    Table1.EnableControls; end;{educarb.com}
  if boo = False then{educarb.com}
  begin{educarb.com}
   Table1.Last;{educarb.com}
   if Table1Code.Text = '' then i := 0{educarb.com}
     else i := strtoint(Table1Code.Text);{educarb.com}
   i := i + 1;{educarb.com}
   Table1.Append;{educarb.com}
   Table1Code.Text :=  inttostr(i);{educarb.com}
   Table1Nom.Value := Edit1.Text;{educarb.com}
   Table1Nombre_P1.Value := Edit2.Text;{educarb.com}
   Table1Nombre_P2.Value := Edit2.Text;{educarb.com}
   Table1Prix.Value := StrToCurr(Edit3.Text);{educarb.com}
   InStr := InputBox('ÔÑÇÁ ÇáÓáÚ ÈÇáæÍÏÉ ÇÎÊíÇÑí','ÃßÊÈ Ëãä ÔÑÇÁ ÇáÓáÚÉ ÈÇáæÍÏÉ',{educarb.com}
            '');{educarb.com}
   if InStr <> '' then Table1['Prix_Achet'] := InStr;{educarb.com}
{educarb.com}
   Table1DateTimes.Value := Now;{educarb.com}
   Table1.Post;{educarb.com}
{educarb.com}
      //   2016{educarb.com}
{educarb.com}
  Table2.Open;  // 2016{educarb.com}
  Table2.First;   // 2016{educarb.com}
   Table2.Edit;{educarb.com}
  Table2['Grand_Prix1']:=CurrToStr(StrToCurr(InStr)*StrToCurr(Edit2.Text)+{educarb.com}
     Table2Grand_Prix1.Value);{educarb.com}
  Table2.Post;{educarb.com}
{educarb.com}
   ///  2016{educarb.com}
{educarb.com}
   {educarb.com}
  end else if boo = True then{educarb.com}
  begin {educarb.com}
   Table1.Locate('Nom',Edit1.Text,[LopartialKey]);{educarb.com}
   Table1.Edit; {educarb.com}
  Table1['Nombre_P1'] := strtofloat(Table1Nombre_P1.Value) + strtofloat(Edit2.Text);{educarb.com}
  Table1['Nombre_P2'] := strtofloat(Table1Nombre_P2.Value) + strtofloat(Edit2.Text);{educarb.com}
  if Edit3.Text <> '' then{educarb.com}
   Table1Prix.Value := StrToCurr(Edit3.Text);{educarb.com}
   Table1.Post; {educarb.com}
  end; {educarb.com}
  Edit1.Text := ''; Edit2.Text := '';{educarb.com}
  Edit3.Text := ''; {educarb.com}
  BitBtn1.Enabled := False;{educarb.com}
  chargComb(Form2);{educarb.com}
  Edit1.TabOrder := 0; Edit2.TabOrder := 1; Edit3.TabOrder := 2;{educarb.com}
  Query1.Active := false; Query1.Active := true;{educarb.com}
  Query1.Filtered := False;{educarb.com}
  Query1.Last;{educarb.com}
  Edit1.SetFocus;{educarb.com}
end;{educarb.com}
{educarb.com}
procedure TForm2.Edit1Change(Sender: TObject);{educarb.com}
begin{educarb.com}
  if (Edit1.Text <> '')and(Edit2.Text <> '')and(Edit3.Text <> '') then begin{educarb.com}
     BitBtn1.Enabled := True; BitBtn2.Enabled := True;{educarb.com}
     BitBtn4.Enabled := True; end {educarb.com}
     else begin BitBtn1.Enabled := False;{educarb.com}
      BitBtn2.Enabled := False; BitBtn4.Enabled := False;{educarb.com}
  end;{educarb.com}
  {educarb.com}
///////////////////////////////{educarb.com}
{educarb.com}
 Query1.First;{educarb.com}
 Query1.Filter := 'Nom='+chr(39)+Edit1.Text+'*'+chr(39);{educarb.com}
 Query1.Filtered := True;{educarb.com}
 {educarb.com}
end; {educarb.com}
{educarb.com}
procedure TForm2.Edit2Change(Sender: TObject);{educarb.com}
begin{educarb.com}
  if (Edit1.Text <> '')and(Edit2.Text <> '')and(Edit3.Text <> '') then begin{educarb.com}
     BitBtn1.Enabled := True; BitBtn2.Enabled := True;{educarb.com}
     BitBtn4.Enabled := True; end{educarb.com}
     else begin BitBtn1.Enabled := False;{educarb.com}
      BitBtn2.Enabled := False; BitBtn4.Enabled := False; end;{educarb.com}
{educarb.com}
{procedure TForm2.Edit3Change(Sender: TObject);{educarb.com}
begin{educarb.com}
  if (Edit1.Text <> '')and(Edit2.Text <> '')and(Edit3.Text <> '') then begin{educarb.com}
     BitBtn1.Enabled := True; BitBtn2.Enabled := True;{educarb.com}
     BitBtn4.Enabled := True; end{educarb.com}
     else begin BitBtn1.Enabled := False;{educarb.com}
      BitBtn2.Enabled := False; BitBtn4.Enabled := False; end;{educarb.com}
end;{educarb.com}
      {educarb.com}
end;{educarb.com}
{educarb.com}
procedure TForm2.BitBtn2Click(Sender: TObject);{educarb.com}
var
  InStr: string;
  r11,r12,r13: real;
  cur1,cur2,cur3: currency;

begin
  Table1.Locate('Nom',Edit1.Text,[LopartialKey]);{educarb.com}
{educarb.com}
  r12:=Table1Nombre_P1.AsFloat;{educarb.com}
  r13:=strtofloat(edit2.Text);{educarb.com}
{educarb.com}
  cur2 := Table1Prix_Achet.AsCurrency;{educarb.com}
{educarb.com}
  Table1.Edit;{educarb.com}
  Table1['Nom'] := Edit1.Text;{educarb.com}
  if (r12<>r13)and(edit2.Text <> '') then begin{educarb.com}
  Table1Nombre_P1.AsFloat := r13; r11:=r13-r12;{educarb.com}
  Table1['Nombre_P2']:=floattostr({educarb.com}
    strtofloat(Table1.FieldValues['Nombre_P2'])+r11); end;{educarb.com}
{educarb.com}
{educarb.com}
  InStr := '';  //2016{educarb.com}
  InStr := InputBox('Ëãä ÇáÔÑÇÁ ÇáÍÇáí','ÃßÊÈ Ëãä ÇáÔÑÇÁ',
            FormatFloat('0.00',Table1.FieldValues['Prix_Achet']));{educarb.com}
  if InStr <> '' then Table1['Prix_Achet'] := InStr;{educarb.com}
  cur3:=strtocurr(InStr); cur1:=cur3-cur2;{educarb.com}
{educarb.com}
  Table1['Prix'] := Edit3.Text;{educarb.com}
  Table1.Post;{educarb.com}
{educarb.com}
  if cur2 <> cur3 then begin{educarb.com}
  Table2.Open; {educarb.com}
  Table2.First;{educarb.com}
  Table2.Edit;{educarb.com}
{educarb.com}
  if MessageDlg('åá ÊÑíÏ ÊÛííÑ Ëãä '+
  #13#10#13#10+Edit1.Text+
'æÊØÈíÞ ÊÛííÑ Úáì ÇáËãä ÇáÞÏíã æÇáÌÏíÏ ãÜÜÚÇ ¿'
             , mtInformation, [mbYes,mbNo], 0)=mrYes then
  Table2Grand_Prix1.AsCurrency :=Table2Grand_Prix1.AsCurrency+(cur1*r13);{educarb.com}
  {educarb.com}
  Table1.Post; end;  {}{educarb.com} 
{educarb.com}
  {educarb.com}
  Query1.Active := false; Query1.Active := true;{educarb.com}
  cur1:=0; cur2:=0;cur3:=0;{educarb.com}
  r11:=0;r12:=0;r13:=0; InStr := '';{educarb.com}
end; {educarb.com}
{educarb.com}
procedure TForm2.FormShow(Sender: TObject);{educarb.com}
begin{educarb.com}
   Table1.Open;{educarb.com}
   chargComb(Form2);{educarb.com}
end; {educarb.com}
 {educarb.com}
procedure TForm2.ComboBox1Change(Sender: TObject);{educarb.com}
begin {educarb.com}
  Table1.Locate('Nom',Combobox1.Text,[LopartialKey]);{educarb.com}
  Edit1.Text := Table1Nom.Value;{educarb.com}
  Edit2.Text := Table1Nombre_P1.Value;{educarb.com}
  //Edit2.Text := Table1Nombre_P2.Value;{educarb.com}
  Edit3.Text := FormatFloat('0.00',Table1Prix.Value);{educarb.com}
  CheckBox1.Checked := False;{educarb.com}
  BitBtn1.Visible := False; BitBtn2.Visible := True;{educarb.com}
  CheckBox1.Caption := 'ÇÙåÇÑ ÇáÊÓÌíá';{educarb.com}
end; {educarb.com}
{educarb.com}
procedure TForm2.BitBtn3Click(Sender: TObject);{educarb.com}
begin {educarb.com}
  Combobox1.Text := 'ÎíÇÑÇÊ'; BitBtn1.Visible := True;{educarb.com}
  Edit1.Text := ''; Edit2.Text := ''; Edit3.Text := '';{educarb.com}
  BitBtn2.Visible := False; CheckBox1.Caption := 'ÇÎÝÇÁ ÇáÊÓÌíá';{educarb.com}
end; {educarb.com}
{educarb.com}
procedure TForm2.CheckBox1Click(Sender: TObject);{educarb.com}
begin {educarb.com}
 if CheckBox1.Checked = True then begin BitBtn1.Visible := True;{educarb.com}
    Edit1.Text := ''; Edit2.Text := '';{educarb.com}
    CheckBox1.Caption := 'ÇÎÝÇÁ ÇáÊÓÌíá';{educarb.com}
    Edit3.Text := ''; Combobox1.Text := 'ÎíÇÑÇÊ'; end{educarb.com}
   else begin BitBtn1.Visible := False;{educarb.com}
         CheckBox1.Caption := 'ÇÙåÇÑ ÇáÊÓÌíá'; end;{educarb.com}
end; {educarb.com}
{educarb.com}
procedure TForm2.BitBtn4Click(Sender: TObject);{educarb.com}
begin {educarb.com}
  Table1.Locate('Nom',Edit1.Text,[LopartialKey]);{educarb.com}
  if MessageDlg('åá ÊÑíÏ ÅÒÇáÉ åÐå ÇáÓáÚÉ ¿',mtConfirmation,[mbYes,mbNo],0){educarb.com}
   = mrYes then{educarb.com}
  begin {educarb.com}
   Table1.Delete; Edit1.Text := '';{educarb.com}
   Edit2.Text := ''; Edit3.Text := '';{educarb.com}
  end; {educarb.com}
 chargComb(Form2);{educarb.com}
 Query1.Active := false; Query1.Active := true;{educarb.com}
end;{educarb.com}
 {educarb.com}
procedure TForm2.DBGrid1DblClick(Sender: TObject);{educarb.com}
begin{educarb.com}
  if DBGrid1.SelectedField.FieldName='Code' then{educarb.com}
      Caption := DBGrid1.Fields[0].AsString{educarb.com}
  else if DBGrid1.SelectedField.FieldName='Nom' then{educarb.com}
      Edit1.Text := DBGrid1.Fields[1].AsString{educarb.com}
  else if DBGrid1.SelectedField.FieldName='Nombre_P1' then{educarb.com}
      Edit2.Text := DBGrid1.Fields[2].AsString{educarb.com}
  else if DBGrid1.SelectedField.FieldName='Nombre_P2' then{educarb.com}
      Edit2.Text := DBGrid1.Fields[3].AsString{educarb.com}
  else if DBGrid1.SelectedField.FieldName='Prix' then{educarb.com}
      Edit3.Text := FormatFloat('0.00',DBGrid1.Fields[4].asFloat);{educarb.com}
{educarb.com}
  Query1.Filtered := False;{educarb.com}
end;{educarb.com}
{educarb.com}
procedure TForm2.CheckBox2Click(Sender: TObject);{educarb.com}
var{educarb.com}
  x1: real;{educarb.com}
{educarb.com}
begin{educarb.com}
 if CheckBox2.Checked then{educarb.com}
 begin{educarb.com}
  x1 := 0;{educarb.com}
  Table1.DisableControls;{educarb.com}
  try{educarb.com}
  Table1.First;{educarb.com}
  while not Table1.Eof do{educarb.com}
  begin{educarb.com}
   x1 := x1+strtofloat(Table1Nombre_P1.Value);{educarb.com}
   Table1.Next;{educarb.com}
  end;{educarb.com}
   finally{educarb.com}
    Table1.EnableControls; end;{educarb.com}
  CheckBox2.Caption := floattostr(x1);{educarb.com}
 end;{educarb.com}
end;{educarb.com}
{educarb.com}
procedure TForm2.CheckBox3Click(Sender: TObject);{educarb.com}
var{educarb.com}
  x2: real;{educarb.com}
{educarb.com}
begin{educarb.com}
 if CheckBox3.Checked then{educarb.com}
 begin{educarb.com}
  x2 := 0;{educarb.com}
  Table1.DisableControls;{educarb.com}
  try{educarb.com}
  Table1.First;{educarb.com}
  while not Table1.Eof do{educarb.com}
  begin{educarb.com}
   x2 := x2+strtofloat(Table1Nombre_P2.Value);{educarb.com}
   CheckBox3.Caption := floattostr(x2);{educarb.com}
   Table1.Next;{educarb.com}
  end;{educarb.com}
   finally{educarb.com}
    Table1.EnableControls; end;{educarb.com}
  CheckBox3.Caption := floattostr(x2);{educarb.com}
 end;{educarb.com}
end;{educarb.com}
{educarb.com}
procedure TForm2.DisplayHint(Sender: TObject);{educarb.com}
begin{educarb.com}
  StatusBar1.SimpleText :=GetLongHint(Application.Hint);{educarb.com}
  Application.ShowHint :=True;{educarb.com}
end;{educarb.com}
{educarb.com}
procedure TForm2.Table2BeforeOpen(DataSet: TDataSet);{educarb.com}
begin{educarb.com}
  Session.AddPassword('1962'); // 2016{educarb.com}
end;{educarb.com}
{educarb.com}
end.{educarb.com}


مارأيك لووضعته بهذه الطريقة

ولكن اللغة العربية ظهرت برموز غريبة

 

ضغط فوق Browse وحملت الملف من الجهاز

وضغطت فوق "أرفاق هذا الملف" جاءت رسالة تقول

""خطـأ غير مسموح برفع هذة النوعية من الملفات ""

وحدث توجهي مباشرة الى مركز الخليج

 

فهل أقم برفعه هناك

 

شكرا

على توجيهات التي قدمتموها لي

 



#5
غير متصل   sabre

sabre

    Advanced Member

  • الأعضاء
  • Pip Pip Pip
  • 50 المشاركات
  • البلد: Country Flag

كود البرنامج هو هذا المرفق

تحياتي للجميع

 

تعليمات : تم تحميل الملف بنجاح

رابط الملف

https://www.gulf-up....o.php?id=313828

رابط للمنتديات
https://www.gulf-up....o.php?id=313828
 

 






عدد المتواجدون الآن فى الموضوع : 0

0 الأعضاء, 0 الزوار, 0 الأعضاء المجهولين