【delphi开源代码栏目提醒】:网学会员delphi开源代码为您提供BaseStr.pas参考,解决您在BaseStr.pas学习中工作中的难题,参考学习。
unit BaseStr;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, Buttons, ImgList,ADODB,DB,DateUtils;
const
Validate = 'Validate';
QuitAuditing = 'QuitAuditing';
type
TDataState = (dsNone,
dsBrowers,
dsInserts,
dsEdits,
dsAuditing,
dsNotAuditing,
dsSubmit);
TValidate = (tvNone,
tvValidate,
tvAuditing);
TIsClose = (icNone, icYes, icNo);
TPassword = (tpNone, tpValidate, tpQuitAuditing);
var
FormList:TStringList;
implementation
end.
上一篇:
baseinputUnit1.pas
下一篇:
她要是喜欢我