برنامج لــتسيير مكان لبيع منتوجات ما
صفحة 1 من اصل 1 • شاطر
برنامج لــتسيير مكان لبيع منتوجات ما
بسم الله الرحمن الرحيم
الصلاة والسلام على رسول الله
برنامج لــتسيير مكان لبيع منتوجات ما
مـــــــــــــــــاهـــو رأيكم في البرنامج
أي اخطاء ترونها اعلموني بها
أو اقترحات تحبون اضافتها وشكرا
1
الوحدة الاولى هي الواجهة الرئيسية للبرنامج فبمجرد الدخول
تستطيع الدخول الى كافة الاقسام في البرنامج
2
الوحدة الثانية
من خلالها تستطيع تسجيل كافة السلع الموجودة في المحل و التي ستجلب فيما بعد
فتسجيل كل السلع يجعل البرنامج يعمل بشكل جيد ، فقم بتسجيل كل الموجودات
طريقة التسجيل تكون بكتابة اسم السلعة في المربع الاول وكتابة
الكمية التي تم شراؤها في المربع الثاني
وكتابة ثمن السلعة في المربع الثالث أقصد ثمن البيع وليس ثمن الشراء
وكتابة ثمن شراءالسلعة في مربع حوار يضهر بعد ضغط فوق تسجيل
لأنك عندما تقوم فيما بعد باجراء عملية البيع لن تكون مضطر الى كتابة الثمن
لأنه سيتم جلبه آليا من قاعدة البيانات لأنه مسجل فيها
ملاحظة هامة
البرنامج يقبل الفواصل
أقصد أنه يعمل على كل الاعداد
فأرجــــــــو الانتباه الى ذلك عند تسجيل
مثال : هذه القيمة
546.00 دج
تقرأ خمس مئة وستة واربعون دج
3
الوحدة الثالثة لتحرير فاتــورة ما
كتابة اسم السلعة في المربع الاول
وكتابة عدد السلعة في المربع الثاني
والضغط فوق حساب
ظهور النتيجة في المربع الكبير بالتفصيل لكل سلعة
وظهور المجموع الكلي للسلع التي تم بيعها المربع "المجموع الكلي"
اذا كانت دين اشر على "تسجيل في قائمة الديون" قبل الكتابة اسم الدائن
اختر من القائمة اذا كان من أصحاب الديون الموجودين عندك أو
أكتب اسم صاحب الدين في المربع السفلي
اذا أردت تسجيل جديد ماعليك سوى الضغط فوق "جديد وحفظ"
ويمكنك حفظ ها في ملف نصي اذا أردت ذلك
وعند المغادرة تطالب بحفظ النتيجة كذلك
4
الوحدة الرابعة
تمثل المجموع الكلي أقصد مجوع المبيعات
ظهور "مجــمــوع المبيعات التي تمّ بيعها" في المربع الاول
كتابة كل ما تم شراه للمحل من سلع في المربع الثاني
الضغط فوق "تسجيل" وظهوره في الثالث
ظهور النسبة المأوية في المربع الرابع بعد الضقط فوق "حساب"
ديون المحل المتوجب على صاحب المحل سدادها
هي ديون استدان بها صاحب المحل
تكتب في المربع الخامس وظهورها في المربع السادس
لاظهار ديون المحل الضقط فوق "مجموع الدين"
لحذف الديون الضغط فوق "حـــذف مجــمو ع الديـن"
5
الوحدة الخامسة
لعرض أصحاب الديون
المربع الاول اسم صاحب الدين
المربع الثاني المبلغ والضغط فوق "تسجيل"
المربع الثالث لتحذيرات أقصد عدد السلعة التي سيتم تحذرك به
أكتب فيه عدد السلع مثلا 10 أو 3
اذا بقية لك 10 أو 3 تأتيك رسالة تنبهك على أن السلعة قد نفذت من المحل
المربع الرابع لضريبة تيفيا TVA اكتب في المربع مثلا 17 أو غيرها
اضغط فوق "تسجيل"
وفي الشبكة
سيتم عرض أصحاب الديون المتوجب عليهم سدادها
mediafire . com
رابط تحميل البرنامج
http://www.mediafire.com/file/ackcei43hnciiqd/March.rar
2 رابط تحميل البرنامج
http://download1722.mediafireuserdownload.com/vrj4rekxgwrg/ackcei43hnciiqd/March.rar
رابط تحميل الصور لتوضيح عمل البرنامج
http://www.mediafire.com/file/ucntjr44bjfbi89/imag.rar
رابط تحميل المساعد النصي
http://www.mediafire.com/file/d16wut8thbxp3bb/HELP+MARCH.txt
====
file-upload . com
رابط تحميل البرنامج
https://www.file-upload.com/valzok28wzwg
رابط تحميل المساعد النصي
https://www.file-upload.com/34pty7cyu8uw
===
up-4ever . com
رابط التحميل البرنامج
https://www.up-4ever.com/qje2ldo1u5qu
رابط التحميل الصور التي تشرح عمل البرنامج
https://www.up-4ever.com/50wek1zn9pmy
رابط التحميل ملف نصي مساعد
https://www.up-4ever.com/b3cl8xqleq9t
الصلاة والسلام على رسول الله
برنامج لــتسيير مكان لبيع منتوجات ما
مـــــــــــــــــاهـــو رأيكم في البرنامج
أي اخطاء ترونها اعلموني بها
أو اقترحات تحبون اضافتها وشكرا
1
الوحدة الاولى هي الواجهة الرئيسية للبرنامج فبمجرد الدخول
تستطيع الدخول الى كافة الاقسام في البرنامج
2
الوحدة الثانية
من خلالها تستطيع تسجيل كافة السلع الموجودة في المحل و التي ستجلب فيما بعد
فتسجيل كل السلع يجعل البرنامج يعمل بشكل جيد ، فقم بتسجيل كل الموجودات
طريقة التسجيل تكون بكتابة اسم السلعة في المربع الاول وكتابة
الكمية التي تم شراؤها في المربع الثاني
وكتابة ثمن السلعة في المربع الثالث أقصد ثمن البيع وليس ثمن الشراء
وكتابة ثمن شراءالسلعة في مربع حوار يضهر بعد ضغط فوق تسجيل
لأنك عندما تقوم فيما بعد باجراء عملية البيع لن تكون مضطر الى كتابة الثمن
لأنه سيتم جلبه آليا من قاعدة البيانات لأنه مسجل فيها
ملاحظة هامة
البرنامج يقبل الفواصل
أقصد أنه يعمل على كل الاعداد
فأرجــــــــو الانتباه الى ذلك عند تسجيل
مثال : هذه القيمة
546.00 دج
تقرأ خمس مئة وستة واربعون دج
3
الوحدة الثالثة لتحرير فاتــورة ما
كتابة اسم السلعة في المربع الاول
وكتابة عدد السلعة في المربع الثاني
والضغط فوق حساب
ظهور النتيجة في المربع الكبير بالتفصيل لكل سلعة
وظهور المجموع الكلي للسلع التي تم بيعها المربع "المجموع الكلي"
اذا كانت دين اشر على "تسجيل في قائمة الديون" قبل الكتابة اسم الدائن
اختر من القائمة اذا كان من أصحاب الديون الموجودين عندك أو
أكتب اسم صاحب الدين في المربع السفلي
اذا أردت تسجيل جديد ماعليك سوى الضغط فوق "جديد وحفظ"
ويمكنك حفظ ها في ملف نصي اذا أردت ذلك
وعند المغادرة تطالب بحفظ النتيجة كذلك
4
الوحدة الرابعة
تمثل المجموع الكلي أقصد مجوع المبيعات
ظهور "مجــمــوع المبيعات التي تمّ بيعها" في المربع الاول
كتابة كل ما تم شراه للمحل من سلع في المربع الثاني
الضغط فوق "تسجيل" وظهوره في الثالث
ظهور النسبة المأوية في المربع الرابع بعد الضقط فوق "حساب"
ديون المحل المتوجب على صاحب المحل سدادها
هي ديون استدان بها صاحب المحل
تكتب في المربع الخامس وظهورها في المربع السادس
لاظهار ديون المحل الضقط فوق "مجموع الدين"
لحذف الديون الضغط فوق "حـــذف مجــمو ع الديـن"
5
الوحدة الخامسة
لعرض أصحاب الديون
المربع الاول اسم صاحب الدين
المربع الثاني المبلغ والضغط فوق "تسجيل"
المربع الثالث لتحذيرات أقصد عدد السلعة التي سيتم تحذرك به
أكتب فيه عدد السلع مثلا 10 أو 3
اذا بقية لك 10 أو 3 تأتيك رسالة تنبهك على أن السلعة قد نفذت من المحل
المربع الرابع لضريبة تيفيا TVA اكتب في المربع مثلا 17 أو غيرها
اضغط فوق "تسجيل"
وفي الشبكة
سيتم عرض أصحاب الديون المتوجب عليهم سدادها
mediafire . com
رابط تحميل البرنامج
http://www.mediafire.com/file/ackcei43hnciiqd/March.rar
2 رابط تحميل البرنامج
http://download1722.mediafireuserdownload.com/vrj4rekxgwrg/ackcei43hnciiqd/March.rar
رابط تحميل الصور لتوضيح عمل البرنامج
http://www.mediafire.com/file/ucntjr44bjfbi89/imag.rar
رابط تحميل المساعد النصي
http://www.mediafire.com/file/d16wut8thbxp3bb/HELP+MARCH.txt
====
file-upload . com
رابط تحميل البرنامج
https://www.file-upload.com/valzok28wzwg
رابط تحميل المساعد النصي
https://www.file-upload.com/34pty7cyu8uw
===
up-4ever . com
رابط التحميل البرنامج
https://www.up-4ever.com/qje2ldo1u5qu
رابط التحميل الصور التي تشرح عمل البرنامج
https://www.up-4ever.com/50wek1zn9pmy
رابط التحميل ملف نصي مساعد
https://www.up-4ever.com/b3cl8xqleq9t
رد: برنامج لــتسيير مكان لبيع منتوجات ما
اضافة كود سورس البرنامج في مرفق
لم يفلح رفع
الرسالة تقول
"الملف الذي تحاول تحميله به مشكل: اسم الملف غير صحيح."
لم يفلح رفع
الرسالة تقول
"الملف الذي تحاول تحميله به مشكل: اسم الملف غير صحيح."
رد: برنامج لــتسيير مكان لبيع منتوجات ما
كود البرنامج
- الكود:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls, Buttons, ExtCtrls,
ComCtrls, Db, DBTables, XPMan;
type
TForm1 = class(TForm)
GroupBox1: TGroupBox;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
BitBtn4: TBitBtn;
BitBtn5: TBitBtn;
Panel1: TPanel;
StatusBar1: TStatusBar;
Table1: TTable;
Table2: TTable;
Timer1: TTimer;
Label1: TLabel;
Timer2: TTimer;
Label2: TLabel;
Label3: TLabel;
Table1Code: TFloatField;
Table1Nom: TStringField;
Table1Nombre_P1: TStringField;
Table1Nombre_P2: TStringField;
Table1Prix: TCurrencyField;
Table1DateTimes: TDateTimeField;
Table2Code: TFloatField;
Table2Aton_tion: TStringField;
Table2TVA: TStringField;
XPManifest1: TXPManifest;
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure BitBtn1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure BitBtn2MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure BitBtn3MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure BitBtn4MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure BitBtn5MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Table2BeforeOpen(DataSet: TDataSet);
procedure Timer1Timer(Sender: TObject);
procedure Timer2Timer(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Label3Click(Sender: TObject);
procedure Table1BeforeOpen(DataSet: TDataSet);
private
public
end;
const sa1 = 'Ê'; sa2 = 'Ó'; sa3 = 'í'; sa4 = 'í';
sa5 = 'Ñ'; sa6 = ' '; sa7 = 'ã'; sa8 = 'Í';
sa9 = 'á'; sa10 = ' '; sa11 = 'Ê'; sa12 = 'Ì';
sa13 = 'Ç'; sa14 = 'Ñ'; sa15 = 'í'; sa16 = ' ';
sa17 = ' ';
aad: array[1..17] of string[1] = (
sa1,sa2,sa3,sa4,sa5,sa6
,sa7,sa8,sa9,sa10,sa11,sa12
,sa13,sa14,sa15,sa16,sa17);
var
Form1: TForm1; q: integer;
delph_forumalgerie_net: string;
implementation
uses Unit2, Unit3, Unit4, Unit5;
{$R *.DFM}
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Table2.Open; Table2.First;
if strtofloat(Table2Aton_tion.Value) > 0 then
begin
Table1.Open;
Table1.DisableControls;
try
Table1.First;
while not Table1.Eof do
begin
if strtofloat(Table1Nombre_P2.Value) <= strtofloat(Table2Aton_tion.Value) then
MessageDlg
('ÊÜÜÍÐíÜÜÜÑ äÝÜÜÜÇÐ åÜÐå ÇáÜÓáÚÜÉ ãÜÜä ÇáãÜÜÍÜá ÇáÊÜÜÌÇÑí .'#13#10#13#10+
'ÇáãÜÜÇÏÉ åÜÜí : '+Table1Nom.Value+' = '+
Table1Nombre_P2.Value, mtInformation,
[mbOk], 0);
Table1.Next;
end;
finally
Table1.EnableControls; end;
end;
Form2.Show;
Form2.Visible := True;
Form1.Visible := False;
Timer1.Enabled := False;
Label3.Caption := '';
end;
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
Table2.Open; Table2.First;
if strtofloat(Table2Aton_tion.Value) > 0 then
begin
Table1.Open;
Table1.DisableControls;
try
Table1.First;
while not Table1.Eof do
begin
if strtofloat(Table1Nombre_P2.Value) <= strtofloat(Table2Aton_tion.Value) then
MessageDlg
('ÊÜÜÍÐíÜÜÜÑ äÝÜÜÜÇÐ åÜÐå ÇáÜÓáÚÜÉ ãÜÜä ÇáãÜÜÍÜá ÇáÊÜÜÌÇÑí .'#13#10#13#10+
'ÇáãÜÜÇÏÉ åÜÜí : '+Table1Nom.Value+' = '+
Table1Nombre_P2.Value, mtInformation,
[mbOk], 0);
Table1.Next;
end;
finally
Table1.EnableControls; end;
end;
Form3.Show;
Form3.Visible := True;
Form3.Memo1.Clear;
Form1.Visible := False;
Timer1.Enabled := False;Label3.Caption := '';
end;
procedure TForm1.BitBtn3Click(Sender: TObject);
begin
Form4.Show;
Form4.Visible := True;
Form1.Visible := False;
Timer1.Enabled := False;
Label3.Caption := '';
end;
procedure TForm1.BitBtn4Click(Sender: TObject);
begin
Form5.Show;
Form5.Visible := True;
Form1.Visible := False;
Timer1.Enabled := False;Label3.Caption := '';
end;
procedure TForm1.FormActivate(Sender: TObject);
begin
Form2.Visible := False; Form3.Visible := False;
Form4.Visible := False; Form5.Visible := False;
Form2.BitBtn2.Visible := False;
Form2.Combobox1.Text := 'ÎíÇÑÇÊ'; Form2.BitBtn1.Visible := True;
Form2.Edit1.Text := ''; Form2.Edit2.Text := ''; Form2.Edit3.Text := '';
end;
procedure TForm1.BitBtn1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
StatusBar1.SimpleText
:= 'íÌÜÜÈ ÊÓÌÜÜÜÜíá ßá ÇáÓáÚ Ãæ ÇáãÔÊÑíÇÊ ÇáãæÌæÏÉ Ýí ÇáãÍá ÇáÊÌÇÑí';
end;
procedure TForm1.BitBtn2MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
StatusBar1.SimpleText:='Ýí ÍÇáÉ ÈíÚ ÇáÓáÚ ÇáÊæÝÑÉ Ýí ÇáãÍá ÇáÊÌÇÑí íÌÈ ÇáÏÎæá åäÇ';
end;
procedure TForm1.BitBtn3MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
StatusBar1.SimpleText := 'ßá ÇáãÈíÚÇÊ ÇáÊí Êã ÈíÚåÇ ÓÊÓÌá';
end;
procedure TForm1.BitBtn4MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
StatusBar1.SimpleText := 'ÇÕÍÇÈ ÇáÏíæä æÇáÏíæä ÇáÊæÌÈ Úáíåã ÓÏÇÏåÇ';
end;
procedure TForm1.BitBtn5MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
StatusBar1.SimpleText := 'ÇáÎÜÜÜÑæÌ ÇáäåÇÆí ãÜä ÇáÜÜÑäÜÜÇãÜÜÌ';
end;
procedure TForm1.Table2BeforeOpen(DataSet: TDataSet);
begin
Session.AddPassword('1962');
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
q := q + 1;
Panel1.Caption := Panel1.Caption + aad[q];
Form1.Caption := Form1.Caption + aad[q];
if q >= 17 then
begin
q := 0;
Panel1.Caption := '';
Form1.Caption := '';
end;
end;
procedure TForm1.Timer2Timer(Sender: TObject);
var
DateTime : TDateTime;
str : string ;
begin
DateTime := Time; //
str := TimeToStr(DateTime); //
Label1.Caption := str; // affiche
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Label2.Caption := datetostr(Now);
end;
procedure TForm1.Label3Click(Sender: TObject);
begin
delph_forumalgerie_net := inputbox('åÐÇ ÇáÈÑäÇãÌ ÇäÌÒ ãä ØÑÝ ÇáÓíÏ : Çá'
,'ÃÏÎá ßáãÉ ÇáãÑæÑ ãä ÝÖáß ÍÊì ÊÊÚÑÝ Úáì ÇáÇÓã'
,'');
if delph_forumalgerie_net = '' then
Label3.Caption := 'http://delph.forumalgerie.net'
; //else Label3.Enabled := false
end;
procedure TForm1.Table1BeforeOpen(DataSet: TDataSet);
begin
Session.AddPassword('1962');
end;
end.
رد: برنامج لــتسيير مكان لبيع منتوجات ما
- الكود:
unit Unit2;{ahl-dz.yoo7.com}
{ahl-dz.yoo7.com}
interface{ahl-dz.yoo7.com}
{ahl-dz.yoo7.com}
uses{ahl-dz.yoo7.com}
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,{ahl-dz.yoo7.com}
Db, DBTables, StdCtrls, Buttons, Grids, DBGrids, ComCtrls, math;{ahl-dz.yoo7.com}
{ahl-dz.yoo7.com}
type{ahl-dz.yoo7.com}
TForm2 = class(TForm){ahl-dz.yoo7.com}
Table1: TTable;{ahl-dz.yoo7.com}
Edit1: TEdit;{ahl-dz.yoo7.com}
Edit2: TEdit;{ahl-dz.yoo7.com}
Edit3: TEdit;{ahl-dz.yoo7.com}
BitBtn1: TBitBtn;{ahl-dz.yoo7.com}
DBGrid1: TDBGrid;{ahl-dz.yoo7.com}
DataSource1: TDataSource;{ahl-dz.yoo7.com}
BitBtn2: TBitBtn;{ahl-dz.yoo7.com}
BitBtn3: TBitBtn;{ahl-dz.yoo7.com}
ComboBox1: TComboBox;{ahl-dz.yoo7.com}
CheckBox1: TCheckBox;{ahl-dz.yoo7.com}
BitBtn4: TBitBtn;{ahl-dz.yoo7.com}
Label1: TLabel;{ahl-dz.yoo7.com}
Label2: TLabel;{ahl-dz.yoo7.com}
Label3: TLabel;{ahl-dz.yoo7.com}
BitBtn5: TBitBtn;{ahl-dz.yoo7.com}
Query1: TQuery;{ahl-dz.yoo7.com}
Table1Code: TFloatField;{ahl-dz.yoo7.com}
Table1Nom: TStringField;{ahl-dz.yoo7.com}
Table1Nombre_P1: TStringField;{ahl-dz.yoo7.com}
Table1Nombre_P2: TStringField;{ahl-dz.yoo7.com}
Table1Prix: TCurrencyField;{ahl-dz.yoo7.com}
Table1DateTimes: TDateTimeField;{ahl-dz.yoo7.com}
Query1Code: TFloatField;{ahl-dz.yoo7.com}
Query1Nom: TStringField;{ahl-dz.yoo7.com}
Query1Nombre_P1: TStringField;{ahl-dz.yoo7.com}
Query1Nombre_P2: TStringField;{ahl-dz.yoo7.com}
Query1Prix: TCurrencyField;{ahl-dz.yoo7.com}
Query1DateTimes: TDateTimeField;{ahl-dz.yoo7.com}
CheckBox2: TCheckBox;{ahl-dz.yoo7.com}
CheckBox3: TCheckBox;{ahl-dz.yoo7.com}
StatusBar1: TStatusBar;{ahl-dz.yoo7.com}
Table1Prix_Achet: TCurrencyField;{ahl-dz.yoo7.com}
Query1Prix_Achet: TCurrencyField;{ahl-dz.yoo7.com}
Table2: TTable;{ahl-dz.yoo7.com}
Table2Code: TFloatField;{ahl-dz.yoo7.com}
Table2Grand_Prix: TCurrencyField;{ahl-dz.yoo7.com}
Table2Grand_Prix1: TCurrencyField;{ahl-dz.yoo7.com}
Table2Datetaimes: TDateTimeField;{ahl-dz.yoo7.com}
Label4: TLabel;{ahl-dz.yoo7.com}
procedure FormClose(Sender: TObject; var Action: TCloseAction);{ahl-dz.yoo7.com}
procedure FormActivate(Sender: TObject);{ahl-dz.yoo7.com}
procedure FormCreate(Sender: TObject);{ahl-dz.yoo7.com}
procedure Table1BeforeOpen(DataSet: TDataSet);{ahl-dz.yoo7.com}
procedure BitBtn1Click(Sender: TObject);{ahl-dz.yoo7.com}
procedure Edit1Change(Sender: TObject);{ahl-dz.yoo7.com}
procedure Edit2Change(Sender: TObject);{ahl-dz.yoo7.com}
procedure BitBtn2Click(Sender: TObject);{ahl-dz.yoo7.com}
procedure FormShow(Sender: TObject);{ahl-dz.yoo7.com}
procedure ComboBox1Change(Sender: TObject);{ahl-dz.yoo7.com}
procedure BitBtn3Click(Sender: TObject);{ahl-dz.yoo7.com}
procedure CheckBox1Click(Sender: TObject);{ahl-dz.yoo7.com}
procedure BitBtn4Click(Sender: TObject);{ahl-dz.yoo7.com}
procedure chargComb(Sender: TObject);{ahl-dz.yoo7.com}
procedure DBGrid1DblClick(Sender: TObject);{ahl-dz.yoo7.com}
procedure CheckBox2Click(Sender: TObject);{ahl-dz.yoo7.com}
procedure CheckBox3Click(Sender: TObject);{ahl-dz.yoo7.com}
procedure Table2BeforeOpen(DataSet: TDataSet);{ahl-dz.yoo7.com}
private public{ahl-dz.yoo7.com}
procedure DisplayHint(Sender:TObject);{ahl-dz.yoo7.com}
end;{ahl-dz.yoo7.com}
{ahl-dz.yoo7.com}
var{ahl-dz.yoo7.com}
Form2: TForm2; i: Integer;{ahl-dz.yoo7.com}
{ahl-dz.yoo7.com}
implementation{ahl-dz.yoo7.com}
{ahl-dz.yoo7.com}
uses Unit1;{ahl-dz.yoo7.com}
{ahl-dz.yoo7.com}
{$R *.DFM}{ahl-dz.yoo7.com}
{ahl-dz.yoo7.com}
procedure TForm2.chargComb(Sender: TObject);{ahl-dz.yoo7.com}
begin{ahl-dz.yoo7.com}
Combobox1.Clear;{ahl-dz.yoo7.com}
Combobox1.Text := 'ÎíÇÑÇÊ';{ahl-dz.yoo7.com}
{ahl-dz.yoo7.com}
Table1.DisableControls;{ahl-dz.yoo7.com}
try{ahl-dz.yoo7.com}
Table1.First;{ahl-dz.yoo7.com}
while not Table1.Eof do{ahl-dz.yoo7.com}
begin{ahl-dz.yoo7.com}
Combobox1.Items.Add(Table1Nom.Value);{ahl-dz.yoo7.com}
Table1.Next;{ahl-dz.yoo7.com}
end;{ahl-dz.yoo7.com}
finally {ahl-dz.yoo7.com}
Table1.EnableControls; end;{ahl-dz.yoo7.com}
end;{ahl-dz.yoo7.com}
{ahl-dz.yoo7.com}
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);{ahl-dz.yoo7.com}
begin{ahl-dz.yoo7.com}
Form1.Visible := True;{ahl-dz.yoo7.com}
i := 0;{ahl-dz.yoo7.com}
Form1.Timer1.Enabled := True;{ahl-dz.yoo7.com}
Query1.Active := False;{ahl-dz.yoo7.com}
end;{ahl-dz.yoo7.com}
{ahl-dz.yoo7.com}
procedure TForm2.FormActivate(Sender: TObject);{ahl-dz.yoo7.com}
begin{ahl-dz.yoo7.com}
Form2.Left := 163;{ahl-dz.yoo7.com}
Form2.Top := 86;{ahl-dz.yoo7.com}
Form2.Height := 520;{ahl-dz.yoo7.com}
Form2.Width := 720; i := 0;{ahl-dz.yoo7.com}
Query1.Active := True;{ahl-dz.yoo7.com}
end;{ahl-dz.yoo7.com}
{ahl-dz.yoo7.com}
procedure TForm2.FormCreate(Sender: TObject);{ahl-dz.yoo7.com}
begin{ahl-dz.yoo7.com}
Table1.Open;{ahl-dz.yoo7.com}
//////// http://Query1.Active := True;{ahl-dz.yoo7.com}
Application.OnHint :=DisplayHint;{ahl-dz.yoo7.com}
{ahl-dz.yoo7.com}
end;{ahl-dz.yoo7.com}
{ahl-dz.yoo7.com}
procedure TForm2.Table1BeforeOpen(DataSet: TDataSet);{ahl-dz.yoo7.com}
begin{ahl-dz.yoo7.com}
Session.AddPassword('1962');{ahl-dz.yoo7.com}
end;{ahl-dz.yoo7.com}
{ahl-dz.yoo7.com}
procedure TForm2.BitBtn1Click(Sender: TObject);{ahl-dz.yoo7.com}
var ba: array[0..1] of string;{ahl-dz.yoo7.com}
boo: boolean;{ahl-dz.yoo7.com}
InStr: string;{ahl-dz.yoo7.com}
begin{ahl-dz.yoo7.com}
boo := False; InStr := '';{ahl-dz.yoo7.com}
ba[1] := Edit1.Text;{ahl-dz.yoo7.com}
Table1.Open;{ahl-dz.yoo7.com}
Table1.DisableControls;{ahl-dz.yoo7.com}
try{ahl-dz.yoo7.com}
Table1.First;{ahl-dz.yoo7.com}
while not Table1.Eof do{ahl-dz.yoo7.com}
begin{ahl-dz.yoo7.com}
if ba[1] = Table1Nom.Value then boo := True;{ahl-dz.yoo7.com}
Table1.Next;{ahl-dz.yoo7.com}
end;{ahl-dz.yoo7.com}
finally{ahl-dz.yoo7.com}
Table1.EnableControls; end;{ahl-dz.yoo7.com}
if boo = False then{ahl-dz.yoo7.com}
begin{ahl-dz.yoo7.com}
Table1.Last;{ahl-dz.yoo7.com}
if Table1Code.Text = '' then i := 0{ahl-dz.yoo7.com}
else i := strtoint(Table1Code.Text);{ahl-dz.yoo7.com}
i := i + 1;{ahl-dz.yoo7.com}
Table1.Append;{ahl-dz.yoo7.com}
Table1Code.Text := inttostr(i);{ahl-dz.yoo7.com}
Table1Nom.Value := Edit1.Text;{ahl-dz.yoo7.com}
Table1Nombre_P1.Value := Edit2.Text;{ahl-dz.yoo7.com}
Table1Nombre_P2.Value := Edit2.Text;{ahl-dz.yoo7.com}
Table1Prix.Value := StrToCurr(Edit3.Text);{ahl-dz.yoo7.com}
InStr := InputBox('ÔÑÇÁ ÇáÓáÚ ÈÇáæÍÏÉ ÇÎÊíÇÑí','ÃßÊÈ Ëãä ÔÑÇÁ ÇáÓáÚÉ ÈÇáæÍÏÉ',{ahl-dz.yoo7.com}
'');{ahl-dz.yoo7.com}
if InStr <> '' then Table1['Prix_Achet'] := InStr;{ahl-dz.yoo7.com}
{ahl-dz.yoo7.com}
Table1DateTimes.Value := Now;{ahl-dz.yoo7.com}
Table1.Post;{ahl-dz.yoo7.com}
{ahl-dz.yoo7.com}
// 2016{ahl-dz.yoo7.com}
{ahl-dz.yoo7.com}
Table2.Open; // 2016{ahl-dz.yoo7.com}
Table2.First; // 2016{ahl-dz.yoo7.com}
Table2.Edit;{ahl-dz.yoo7.com}
Table2['Grand_Prix1']:=CurrToStr(StrToCurr(InStr)*StrToCurr(Edit2.Text)+{ahl-dz.yoo7.com}
Table2Grand_Prix1.Value);{ahl-dz.yoo7.com}
Table2.Post;{ahl-dz.yoo7.com}
{ahl-dz.yoo7.com}
/// 2016{ahl-dz.yoo7.com}
{ahl-dz.yoo7.com}
{ahl-dz.yoo7.com}
end else if boo = True then{ahl-dz.yoo7.com}
begin {ahl-dz.yoo7.com}
Table1.Locate('Nom',Edit1.Text,[LopartialKey]);{ahl-dz.yoo7.com}
Table1.Edit; {ahl-dz.yoo7.com}
Table1['Nombre_P1'] := strtofloat(Table1Nombre_P1.Value) + strtofloat(Edit2.Text);{ahl-dz.yoo7.com}
Table1['Nombre_P2'] := strtofloat(Table1Nombre_P2.Value) + strtofloat(Edit2.Text);{ahl-dz.yoo7.com}
if Edit3.Text <> '' then{ahl-dz.yoo7.com}
Table1Prix.Value := StrToCurr(Edit3.Text);{ahl-dz.yoo7.com}
Table1.Post; {ahl-dz.yoo7.com}
end; {ahl-dz.yoo7.com}
Edit1.Text := ''; Edit2.Text := '';{ahl-dz.yoo7.com}
Edit3.Text := ''; {ahl-dz.yoo7.com}
BitBtn1.Enabled := False;{ahl-dz.yoo7.com}
chargComb(Form2);{ahl-dz.yoo7.com}
Edit1.TabOrder := 0; Edit2.TabOrder := 1; Edit3.TabOrder := 2;{ahl-dz.yoo7.com}
Query1.Active := false; Query1.Active := true;{ahl-dz.yoo7.com}
Query1.Filtered := False;{ahl-dz.yoo7.com}
Query1.Last;{ahl-dz.yoo7.com}
Edit1.SetFocus;{ahl-dz.yoo7.com}
end;{ahl-dz.yoo7.com}
{ahl-dz.yoo7.com}
procedure TForm2.Edit1Change(Sender: TObject);{ahl-dz.yoo7.com}
begin{ahl-dz.yoo7.com}
if (Edit1.Text <> '')and(Edit2.Text <> '')and(Edit3.Text <> '') then begin{ahl-dz.yoo7.com}
BitBtn1.Enabled := True; BitBtn2.Enabled := True;{ahl-dz.yoo7.com}
BitBtn4.Enabled := True; end {ahl-dz.yoo7.com}
else begin BitBtn1.Enabled := False;{ahl-dz.yoo7.com}
BitBtn2.Enabled := False; BitBtn4.Enabled := False;{ahl-dz.yoo7.com}
end;{ahl-dz.yoo7.com}
{ahl-dz.yoo7.com}
///////////////////////////////{ahl-dz.yoo7.com}
{ahl-dz.yoo7.com}
Query1.First;{ahl-dz.yoo7.com}
Query1.Filter := 'Nom='+chr(39)+Edit1.Text+'*'+chr(39);{ahl-dz.yoo7.com}
Query1.Filtered := True;{ahl-dz.yoo7.com}
{ahl-dz.yoo7.com}
end; {ahl-dz.yoo7.com}
{ahl-dz.yoo7.com}
procedure TForm2.Edit2Change(Sender: TObject);{ahl-dz.yoo7.com}
begin{ahl-dz.yoo7.com}
if (Edit1.Text <> '')and(Edit2.Text <> '')and(Edit3.Text <> '') then begin{ahl-dz.yoo7.com}
BitBtn1.Enabled := True; BitBtn2.Enabled := True;{ahl-dz.yoo7.com}
BitBtn4.Enabled := True; end{ahl-dz.yoo7.com}
else begin BitBtn1.Enabled := False;{ahl-dz.yoo7.com}
BitBtn2.Enabled := False; BitBtn4.Enabled := False; end;{ahl-dz.yoo7.com}
{ahl-dz.yoo7.com}
{procedure TForm2.Edit3Change(Sender: TObject);
begin//ahl-dz.yoo7.com
if (Edit1.Text <> '')and(Edit2.Text <> '')and(Edit3.Text <> '') then begin
BitBtn1.Enabled := True; BitBtn2.Enabled := True;//ahl-dz.yoo7.com
BitBtn4.Enabled := True; end
else begin BitBtn1.Enabled := False;
BitBtn2.Enabled := False; BitBtn4.Enabled := False; end;
end;
}
{ahl-dz.yoo7.com}
end;{ahl-dz.yoo7.com}
{ahl-dz.yoo7.com}
procedure TForm2.BitBtn2Click(Sender: TObject);{ahl-dz.yoo7.com}
var{ahl-dz.yoo7.com}
InStr: string;{ahl-dz.yoo7.com}
r11,r12,r13: real;{ahl-dz.yoo7.com}
cur1,cur2,cur3: currency;{ahl-dz.yoo7.com}
{ahl-dz.yoo7.com}
begin{ahl-dz.yoo7.com}
Table1.Locate('Nom',Edit1.Text,[LopartialKey]);{ahl-dz.yoo7.com}
{ahl-dz.yoo7.com}
r12:=Table1Nombre_P1.AsFloat;{ahl-dz.yoo7.com}
r13:=strtofloat(edit2.Text);{ahl-dz.yoo7.com}
{ahl-dz.yoo7.com}
cur2 := Table1Prix_Achet.AsCurrency;{ahl-dz.yoo7.com}
{ahl-dz.yoo7.com}
Table1.Edit;{ahl-dz.yoo7.com}
Table1['Nom'] := Edit1.Text;{ahl-dz.yoo7.com}
if (r12<>r13)and(edit2.Text <> '') then begin{ahl-dz.yoo7.com}
Table1Nombre_P1.AsFloat := r13; r11:=r13-r12;{ahl-dz.yoo7.com}
Table1['Nombre_P2']:=floattostr({ahl-dz.yoo7.com}
strtofloat(Table1.FieldValues['Nombre_P2'])+r11); end;{ahl-dz.yoo7.com}
{ahl-dz.yoo7.com}
{ahl-dz.yoo7.com}
InStr := ''; //2016{ahl-dz.yoo7.com}
InStr := InputBox('Ëãä ÇáÔÑÇÁ ÇáÍÇáí','ÃßÊÈ Ëãä ÇáÔÑÇÁ',{ahl-dz.yoo7.com}
FormatFloat('0.00',Table1.FieldValues['Prix_Achet']));{ahl-dz.yoo7.com}
if InStr <> '' then Table1['Prix_Achet'] := InStr;{ahl-dz.yoo7.com}
cur3:=strtocurr(InStr); cur1:=cur3-cur2;{ahl-dz.yoo7.com}
{ahl-dz.yoo7.com}
Table1['Prix'] := Edit3.Text;{ahl-dz.yoo7.com}
Table1.Post;{ahl-dz.yoo7.com}
{ahl-dz.yoo7.com}
{ if cur2 <> cur3 then begin
Table2.Open;
Table2.First;
Table2.Edit;
if MessageDlg('åá ÊÑíÏ ÊÛííÑ Ëãä +
#13#10#13#10+Edit1.Text+
'æÊØÈíÞ ÊÛííÑ Úáì ÇáËãä ÇáÞÏíã æÇáÌÏíÏ ãÜÜÚÇ ¿'
, mtInformation,
[mbYes,mbNo], 0)=mrYes then
Table2Grand_Prix1.AsCurrency :=Table2Grand_Prix1.AsCurrency+(cur1*r13)
;
Table1.Post; end; {}{ahl-dz.yoo7.com}
{ahl-dz.yoo7.com}
{ahl-dz.yoo7.com}
Query1.Active := false; Query1.Active := true;{ahl-dz.yoo7.com}
cur1:=0; cur2:=0;cur3:=0;{ahl-dz.yoo7.com}
r11:=0;r12:=0;r13:=0; InStr := '';{ahl-dz.yoo7.com}
end; {ahl-dz.yoo7.com}
{ahl-dz.yoo7.com}
procedure TForm2.FormShow(Sender: TObject);{ahl-dz.yoo7.com}
begin{ahl-dz.yoo7.com}
Table1.Open;{ahl-dz.yoo7.com}
chargComb(Form2);{ahl-dz.yoo7.com}
end; {ahl-dz.yoo7.com}
{ahl-dz.yoo7.com}
procedure TForm2.ComboBox1Change(Sender: TObject);{ahl-dz.yoo7.com}
begin {ahl-dz.yoo7.com}
Table1.Locate('Nom',Combobox1.Text,[LopartialKey]);{ahl-dz.yoo7.com}
Edit1.Text := Table1Nom.Value;{ahl-dz.yoo7.com}
Edit2.Text := Table1Nombre_P1.Value;{ahl-dz.yoo7.com}
http://Edit2.Text := Table1Nombre_P2.Value;{ahl-dz.yoo7.com}
Edit3.Text := FormatFloat('0.00',Table1Prix.Value);{ahl-dz.yoo7.com}
CheckBox1.Checked := False;{ahl-dz.yoo7.com}
BitBtn1.Visible := False; BitBtn2.Visible := True;{ahl-dz.yoo7.com}
CheckBox1.Caption := 'ÇÙåÇÑ ÇáÊÓÌíá';{ahl-dz.yoo7.com}
end; {ahl-dz.yoo7.com}
{ahl-dz.yoo7.com}
procedure TForm2.BitBtn3Click(Sender: TObject);{ahl-dz.yoo7.com}
begin {ahl-dz.yoo7.com}
Combobox1.Text := 'ÎíÇÑÇÊ'; BitBtn1.Visible := True;{ahl-dz.yoo7.com}
Edit1.Text := ''; Edit2.Text := ''; Edit3.Text := '';{ahl-dz.yoo7.com}
BitBtn2.Visible := False; CheckBox1.Caption := 'ÇÎÝÇÁ ÇáÊÓÌíá';{ahl-dz.yoo7.com}
end; {ahl-dz.yoo7.com}
{ahl-dz.yoo7.com}
procedure TForm2.CheckBox1Click(Sender: TObject);{ahl-dz.yoo7.com}
begin {ahl-dz.yoo7.com}
if CheckBox1.Checked = True then begin BitBtn1.Visible := True;{ahl-dz.yoo7.com}
Edit1.Text := ''; Edit2.Text := '';{ahl-dz.yoo7.com}
CheckBox1.Caption := 'ÇÎÝÇÁ ÇáÊÓÌíá';{ahl-dz.yoo7.com}
Edit3.Text := ''; Combobox1.Text := 'ÎíÇÑÇÊ'; end{ahl-dz.yoo7.com}
else begin BitBtn1.Visible := False;{ahl-dz.yoo7.com}
CheckBox1.Caption := 'ÇÙåÇÑ ÇáÊÓÌíá'; end;{ahl-dz.yoo7.com}
end; {ahl-dz.yoo7.com}
{ahl-dz.yoo7.com}
procedure TForm2.BitBtn4Click(Sender: TObject);{ahl-dz.yoo7.com}
begin {ahl-dz.yoo7.com}
Table1.Locate('Nom',Edit1.Text,[LopartialKey]);{ahl-dz.yoo7.com}
if MessageDlg('åá ÊÑíÏ ÅÒÇáÉ åÐå ÇáÓáÚÉ ¿',mtConfirmation,[mbYes,mbNo],0){ahl-dz.yoo7.com}
= mrYes then{ahl-dz.yoo7.com}
begin {ahl-dz.yoo7.com}
Table1.Delete; Edit1.Text := '';{ahl-dz.yoo7.com}
Edit2.Text := ''; Edit3.Text := '';{ahl-dz.yoo7.com}
end; {ahl-dz.yoo7.com}
chargComb(Form2);{ahl-dz.yoo7.com}
Query1.Active := false; Query1.Active := true;{ahl-dz.yoo7.com}
end;{ahl-dz.yoo7.com}
{ahl-dz.yoo7.com}
procedure TForm2.DBGrid1DblClick(Sender: TObject);{ahl-dz.yoo7.com}
begin{ahl-dz.yoo7.com}
if DBGrid1.SelectedField.FieldName='Code' then{ahl-dz.yoo7.com}
Caption := DBGrid1.Fields[0].AsString{ahl-dz.yoo7.com}
else if DBGrid1.SelectedField.FieldName='Nom' then{ahl-dz.yoo7.com}
Edit1.Text := DBGrid1.Fields[1].AsString{ahl-dz.yoo7.com}
else if DBGrid1.SelectedField.FieldName='Nombre_P1' then{ahl-dz.yoo7.com}
Edit2.Text := DBGrid1.Fields[2].AsString{ahl-dz.yoo7.com}
else if DBGrid1.SelectedField.FieldName='Nombre_P2' then{ahl-dz.yoo7.com}
Edit2.Text := DBGrid1.Fields[3].AsString{ahl-dz.yoo7.com}
else if DBGrid1.SelectedField.FieldName='Prix' then{ahl-dz.yoo7.com}
Edit3.Text := FormatFloat('0.00',DBGrid1.Fields[4].asFloat);{ahl-dz.yoo7.com}
{ahl-dz.yoo7.com}
Query1.Filtered := False;{ahl-dz.yoo7.com}
end;{ahl-dz.yoo7.com}
{ahl-dz.yoo7.com}
procedure TForm2.CheckBox2Click(Sender: TObject);{ahl-dz.yoo7.com}
var{ahl-dz.yoo7.com}
x1: real;{ahl-dz.yoo7.com}
{ahl-dz.yoo7.com}
begin{ahl-dz.yoo7.com}
if CheckBox2.Checked then{ahl-dz.yoo7.com}
begin{ahl-dz.yoo7.com}
x1 := 0;{ahl-dz.yoo7.com}
Table1.DisableControls;{ahl-dz.yoo7.com}
try{ahl-dz.yoo7.com}
Table1.First;{ahl-dz.yoo7.com}
while not Table1.Eof do{ahl-dz.yoo7.com}
begin{ahl-dz.yoo7.com}
x1 := x1+strtofloat(Table1Nombre_P1.Value);{ahl-dz.yoo7.com}
Table1.Next;{ahl-dz.yoo7.com}
end;{ahl-dz.yoo7.com}
finally{ahl-dz.yoo7.com}
Table1.EnableControls; end;{ahl-dz.yoo7.com}
CheckBox2.Caption := floattostr(x1);{ahl-dz.yoo7.com}
end;{ahl-dz.yoo7.com}
end;{ahl-dz.yoo7.com}
{ahl-dz.yoo7.com}
procedure TForm2.CheckBox3Click(Sender: TObject);{ahl-dz.yoo7.com}
var{ahl-dz.yoo7.com}
x2: real;{ahl-dz.yoo7.com}
{ahl-dz.yoo7.com}
begin{ahl-dz.yoo7.com}
if CheckBox3.Checked then{ahl-dz.yoo7.com}
begin{ahl-dz.yoo7.com}
x2 := 0;{ahl-dz.yoo7.com}
Table1.DisableControls;{ahl-dz.yoo7.com}
try{ahl-dz.yoo7.com}
Table1.First;{ahl-dz.yoo7.com}
while not Table1.Eof do{ahl-dz.yoo7.com}
begin{ahl-dz.yoo7.com}
x2 := x2+strtofloat(Table1Nombre_P2.Value);{ahl-dz.yoo7.com}
CheckBox3.Caption := floattostr(x2);{ahl-dz.yoo7.com}
Table1.Next;{ahl-dz.yoo7.com}
end;{ahl-dz.yoo7.com}
finally{ahl-dz.yoo7.com}
Table1.EnableControls; end;{ahl-dz.yoo7.com}
CheckBox3.Caption := floattostr(x2);{ahl-dz.yoo7.com}
end;{ahl-dz.yoo7.com}
end;{ahl-dz.yoo7.com}
{ahl-dz.yoo7.com}
procedure TForm2.DisplayHint(Sender: TObject);{ahl-dz.yoo7.com}
begin{ahl-dz.yoo7.com}
StatusBar1.SimpleText :=GetLongHint(Application.Hint);{ahl-dz.yoo7.com}
Application.ShowHint :=True;{ahl-dz.yoo7.com}
end;{ahl-dz.yoo7.com}
{ahl-dz.yoo7.com}
procedure TForm2.Table2BeforeOpen(DataSet: TDataSet);{ahl-dz.yoo7.com}
begin{ahl-dz.yoo7.com}
Session.AddPassword('1962'); // 2016{ahl-dz.yoo7.com}
end;{ahl-dz.yoo7.com}
{ahl-dz.yoo7.com}
end.{ahl-dz.yoo7.com}
مواضيع مماثلة
» برنامج بسيط
» فتح أي برنامج أو مجلد بـدلفي
» برنامج التحميل من يوتيوب بكل الجودات
» برنامج حساب الغاز والكهربة
» برنامج صانع الاكواد delphi
» فتح أي برنامج أو مجلد بـدلفي
» برنامج التحميل من يوتيوب بكل الجودات
» برنامج حساب الغاز والكهربة
» برنامج صانع الاكواد delphi
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى